Помогите составить выражение для программы Pascal
Выражение номер 3
НАПИСАТЬ ДЛЯ СТАРОЙ ВЕРСИИ ПРОГРАММЫ

Помогите составить выражение для программы Pascal<br> Выражение номер 3<br>НАПИСАТЬ ДЛЯ СТАРОЙ ВЕРСИ

4 комментария:

Старая - это как в книге Йенсен К., Вирт Н. "Паскаль. Руководство для пользователя и описание языка" (1982) ?

Да

А точно только третье?

Да(если не трудно и 4)

Ответы

Гость

3)

Var
n,m,y:integer;
Begin
Write('n = ');
ReadLn(n);
Write('m = ');
ReadLn(m);
if n >= m then y:=4*n+2*m
else y:=4*n-2*m;
WriteLn('y = ',y);
End.

4)

Var x,B:real;
Begin
Write('x = ');ReadLn(x);
if x < 0 then B:=Tan(x)
else if x > 0 then B:=1/Tan(x);
WriteLn('B = ',B);
End.

7 комментария:

Спасибооо

Это не Вирту код. Так должен быть заголовок program XXX (input, output);

"Строка program даже у Вирта была опциональной" !

Да. Если программа не содержала операторов ввода и вывода, а осуществляла их в вызываемых процедурах и функциях.

Вирт писал компилятор уже после того, как опубликовал описание языка. И вопрос мной был задан не про Паскаль Н.Вирта, а про Паскаль, который "как в книге...". А в книге описан Паскаль под конкретную реализацию, где input/output, как принято в операционках *nix, связывали файлы с потоками.

Задание выполнено правильно

А я не пишу, что неправильно. Я написал, что не точности в моим комментарием и Вашим ответом на него. Т.е. Вы сами себе противоречите. Но это из-за своего глупого подросткового упрямства, потому что я ранее давал Вам совет, как надо указать разновидность Паскаля, чтобы вопросов не было, но Вы поступили по-своему.