Тема #187329

 #  

 #  

#1182943 пишет

квадратного уравнения

биквадратное

 #  

#1182943 пишет

Какую программу сделать в паскале

шоб деньги с пентагона качала

 #  

#1182943 пишет

Какую программу сделать в паскале

Такую, чтоб все ох.....

 #  

Авторегер твиттер аккаунтов и автопостер по созданным аккам. Создашь нормально - куплю.

 #  

#1182943 пишет

Какую программу сделать в паскале
С операторами Case of
и IF THEN ELSE?
Кроме квадратного уравнения

Игру "Поле чудес"

 #  

myers97 пишет

Авторегер твиттер аккаунтов и автопостер по созданным аккам. Создашь нормально - куплю.

 #  

калькулятор че

как минимум кредит за отличную идею! :)

 #  

program Calculator;
uses crt;
label metka;

var a,b,sum:real;
simbol1,simbol2,simbol3:char;

BEGIN
clrscr;
writeln;
writeln('Введите действие. Например: "5 + 3"(через пробел,ковычки не ставить) ');

writeln;
writeln;
metka: readln(a,simbol1,simbol2,simbol3,b);

writeln;

case simbol2 of
'+':sum:=a+b;
'-':sum:=a-b;
'*':sum:=a*b;
'/':sum:=a / b;
else begin
writeln('Некорректно введено действие. Введите правильно:');
goto metka;
end;
end;
writeln('Ответ:',sum:6:2,'.' );
writeln;
writeln('***************************************** *******************************');
readln;



END

 #  

#516563 пишет

program Calculator;
uses crt;
label metka;

var a,b,sum:real;
simbol1,simbol2,simbol3:char;

BEGIN
clrscr;
nowriteln;
nowriteln('Введите действие. Например: "5 + 3"(через пробел,ковычки не ставить) ');

nowriteln;
nowriteln;
metka: readln(a,simbol1,simbol2,simbol3,b);

nowriteln;

case simbol2 of
'+':sum:=a+b;
'-':sum:=a-b;
'*':sum:=a*b;
'/':sum:=a / b;
else begin
nowriteln('Некорректно введено действие. Введите правильно:');
goto metka;
end;
end;
nowriteln('Ответ:',sum:6:2,'.' );
nowriteln;
nowriteln('***************************************** *******************************');
readln;



END

Что значит nowriteln и Char?