Показать сообщение отдельно
Старый 19.01.2010, 17:26   #9 (permalink)
Step-93
Member
 
Аватар для Step-93
 
Регистрация: 21.12.2009
Сообщений: 98
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 2
Smile Мой калькулятор на Паскале.

Добрый день, буквально 2 месяца изучаю программирование(Паскаль). Самостоятельно, так как в школе ничему подобному не учат.
Написал прогу "Калькулятор(простой)". Мне бы хотелось чтобы вы оценили его и сказали что в коде лишнее или что следует добавить .

Вот код порграммы :

__________________________________________________ ___________________________________

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.
__________________________________________________ _____________________________________
Step-93 вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070