Калькулятор на pascal
Program kalkulator;
Var a,c: real;
b: char;
Begin Write('Первое число:');
readln (a);
Write ('Введите знак');
readln (b);
Write ('Второе число');
readln (c);
case b of
'+': a:=a+c;
'-': a:=a-c;
'*':a:=a*c;
'/':a:=a/c;
end;
Write ('Результат:',a);
readln;
End.
| |
| Категория: Уроки по Pascal | Добавил: Программист_Админ (06.01.2012) | |
| Просмотров: 1123 |