Страница 2 из 2

Re: Перевести на Turbo Pascal

Добавлено: 21 ноя 2010, 22:11
dr.Jekill
По ссылке программы консольные.
Которые без динам. массивов моежет смело переносить в Pascal

Re: Перевести на Turbo Pascal

Добавлено: 21 ноя 2010, 22:46
Мамай
Возможно я неправильно выразился.
Я попробовал сам первую задачу написать:
[syntax='pascal']
program 1;
var
i, n, minus, plus: integer;
m: array[1..n] of integer;

begin
randomize;
write('n=')
readln(n);
for i: 1 to n do
;
m = random(1000) / 10 - 50;
if m < 0 then
inc(minus);
if m > 0 then
inc(plus);
writeln;
if minus > plus then
write("minus > plus");
if minus < plus then
write("plus > minus");
if minus = plus then
write("plus = minus");
end.
[/syntax]
Заключайте код в тэги! Я больше не буду повторять.

Вот таким языком надо написать прогу. Вроде это паскаль называется. Исправьте (если неверно) и напишите решение 2,3, 4 задач, пожалуйста. Завтра уже сдать нужно!!!

Re: Paskal массивы

Добавлено: 21 ноя 2010, 23:37
dr.Jekill
попробуй сам перевести
если что конкретно не понятно - спрашивай