Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Паскаль не поддаётся
Мне решили задачу, но выдаёт ошибку, что не правильно:

С помощью цикла for и функции Odd напишите программу, выводящую, все нечетные числа из диапазона 1..100.

program qqq;
uses crt;
var i;
begin
for i:=1 to 100 do
if odd(i) then writeln(i,', ');
end.

А во второй задаче слишком длинная строка, как исправить:

diametr: real;
distance:real;
end;

var
planeta: array[1..8] of systema;
i: integer;

begin
writeln('вводим данные о планетах');
for i := 1 to 8 do
begin
with planeta[i] do
begin
writeln('название');
readln(nazvanie);
writeln('объем');
readln(obiom);
writeln('diametr');
readln(diametr);
writeln('номер');
readln(nomer);
writeln('дистанция');
readln(distance);
end;
end;
for i := 1 to 8 do
begin
writeln(planeta[i].nazvanie, ' ', planeta[i].nomer, ' ', planeta[i].obiom, ' ', planeta[i].diametr,' ',planeta[i].distance);
end;
readln;
end.
Очень жду ответа!!!!!

1 | Автор: mishenkokseniya | 2010-04-22, 16:18   |  Репутация: [ + 0 ]
А можно конкретнее что за ошибка. Код ошибки или строку на которую указывает компилятор.
2 | Автор: admin | 2010-04-22, 16:33   |  Репутация: [ + 22 ]
в первой задаче на var i: указывает, а во второй говорит, что строка writeln(planeta[i].nazvanie, ' ', planeta[i].nomer, ' ', planeta[i].obiom, ' ', planeta[i].diametr,' ',planeta[i].distance); слишком длинная, а я не знаю, что с этим делать, не программист я! smile
3 | Автор: mishenkokseniya | 2010-04-22, 16:42   |  Репутация: [ + 0 ]
В первой задаче напиши

var i:integer;

Во второй разбе строку на две

write(planeta[i].nazvanie, ' ', planeta[i].nomer, ' ', planeta[i].obiom, ' ')
write (planeta[i].diametr,' ',planeta[i].distance); writeln;

4 | Автор: admin | 2010-04-22, 22:04   |  Репутация: [ + 22 ]
  • Страница 1 из 1
  • 1
Поиск: