05.09.2012, 01:13
|
#2 (permalink)
|
|
С# - learn or die
Регистрация: 17.12.2011
Сообщений: 2,438
Сказал(а) спасибо: 21
Поблагодарили 49 раз(а) в 11 сообщениях
Репутация: 19701
|
Задача 2
Ввести и вывести значения с помощью констант.
Цитата:
program read_write_2;
uses crt;
const D=45;L=-0.45;N=4;K=8.9;
BEGIN
clrscr; {Очистка экрана}
WriteLn ('D=',D,' N=',N,' K=',K,' L=',L);
Readln; {Задержка экрана}
END.
|
Задача 2
Научится вводить данные с помощью переменных и выводить их.
Цитата:
program read_write_3;
uses crt;
var D,N:integer;
K,L:real;
begin
clrscr; {Очистка экрана}
D:=45;
N:=4;
L:=-0.45;
K:=8.9;
writeln ('D=',D,' N=',N,' K=',K,' L=',L);
readln; {Задержка экрана}
end.
|
Цитата:
Сообщение от sunny-plum
Ввожу это все в программе FreePascal,нажимаю "run" мелькает черный экран,с какими-то надписями(похожий на тот,какой и должен быть при выполнении программы),не успеваю прочитать и вновь возвращает меня к программе,сообщений о ошибке никаких нет...
|
Для этого используют readln, который задерживает экран. После того как выдаст результат, нужно нажать Enter и Вы увидите опять код программы.
|
|
|