Помогите пожалуйста в написании программы на языке Turbo Pascal

[sunny-plum]

Помогите пожалуйста в написании программы на языке Turbo Pascal

Помогите пожалуйста в написании программы на языке Turbo Pascal


Задача 2
Ввести и вывести значения с помощью констант.
Пример,L,N,K.

program read_write_2;
const D=45;L=-0.45;N=4;K=8.9;

BEGIN
WriteLn ('D=',D,'N=',N,'K=',K,'L=',L)
END.

Задача 2
Научится вводить данные с помощью переменных и выводить их.

program read_write_3;
var D,N:integer;
K,L:real;
begin
D:=45;
N:=4;
L:=-0.45;
K:=8.9;
writeln('D=',D,'N=',N,'K=',K,'L=',L)
end.

Ввожу это все в программе FreePascal,нажимаю "run" мелькает черный экран,с какими-то надписями(похожий на тот,какой и должен быть при выполнении программы),не успеваю прочитать и вновь возвращает меня к программе,сообщений о ошибке никаких нет...Скажите,так и должно быть,или я что-то делаю не так?:tehnari_ru_837:
Помогите пожалуйста новичку!:tehnari_ru_942:

 

[Léon1]

Задача 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.

Ввожу это все в программе FreePascal,нажимаю "run" мелькает черный экран,с какими-то надписями(похожий на тот,какой и должен быть при выполнении программы),не успеваю прочитать и вновь возвращает меня к программе,сообщений о ошибке никаких нет...

Для этого используют readln, который задерживает экран. После того как выдаст результат, нужно нажать Enter и Вы увидите опять код программы.