В непосредственном режиме- видимо без ввода программы, ввести последовательно строки (сначала присваиваем значение переменной икс, затем вычисляем выражение и помещаем это значение в переменную игрек, и после печатаем значение переменной игрек):
LET X=1.12
LET Y=SQR (X^3+EXP X-LN (3*X))*(1+4*SIN (X/2)+5*EXP (SIN X))
PRINT Y
И записать результат вычислений, который высветится на экране (у меня получилось 27.839525 но у вас может немного отличаться).
Надеюсь, что в вашей версии бейсика нет отличий от той, что у меня (она весьма старая).
Это на 1ое
Program z1;
var a,b,c,max:integer;
begin
writeln(Введите 3 целых числа);
readln(a,b,c);
if agt;b then max:=a
else
if bgt;c then max:=b
else max:=c;
writeln(Наибольшее число = ,max);
end.
Это на 2ое
Program z2;
var a, b, c, d, e, max:integer; //задаем переменные целого типа
begin
write( введите первое число ); // вводим с клавиатуры 1-ое число
read(a);
write( введите 2-ое число ); // вводим с клавиатуры 2-ое число
read(b);
write( введите третье число ); // вводим с клавиатуры третье число
read(c);
write( введите четвертое число ); // вводим с клавиатуры 4-ое число
read(d);
write( введите 5-ое число ); // вводим с клавиатуры 5-ое число
read(e);
if (agt;b)and(agt;c)and(agt;d)and(agt;e) then max:=a;
if (bgt;a)and(bgt;c)and(bgt;d)and(bgt;e) then max:=b;
if (cgt;b)and(cgt;a)and(cgt;d)and(cgt;e) then max:=c;
if (dgt;b)and(dgt;c)and(dgt;a)and(dgt;e) then max:=d;
if (egt;b)and(egt;c)and(egt;d)and(egt;a) then max:=e;
write( наибольшее среди пяти чисел = , max); // выводим ответ
end.
В непосредственном режиме- видимо без ввода программы, ввести последовательно строки (сначала присваиваем значение переменной икс, затем вычисляем выражение и помещаем это значение в переменную игрек, и после печатаем значение переменной игрек):
LET X=1.12
LET Y=SQR (X^3+EXP X-LN (3*X))*(1+4*SIN (X/2)+5*EXP (SIN X))
PRINT Y
И записать результат вычислений, который высветится на экране (у меня получилось 27.839525 но у вас может немного отличаться).
Надеюсь, что в вашей версии бейсика нет отличий от той, что у меня (она весьма старая).