Автор: Пользователь скрыл имя, 18 Ноября 2011 в 05:08, контрольная работа
Pascal
Pascal – язык программирования высокого уровня, написанный Никлаусом Виртомом, является компилятором, преобразует программу для запуска и занимает больший объем, чем, например, Basic, который является интерпретатором и занимает меньший объем.
Калькулятор 1
Кодирование программных модулей начинается с управляющего программного модуля, в результате чего получаем оттестированный управляющий программный модуль «Калькулятор 1». Для тестирования и отладки программные модули второго уровня заменяются заглушками, за исключением программного модуля «ожидание» (Wait), который взят из библиотеки стандартных программных процедур, поэтому его можно подключать к программному комплексу без тестирования[1]. На рисунке 1 показан пример того, как выглядит сам Pascal, а так же написание программы «Калькулятор 1».
WaitDos (3); end;
{---------Сложение----------}
procedure add;
begin rezult:=a+b ; writeln ('a+b=', rezult:6:3);
end;
{---------Вычитание---------}
procedure subtract;
begin rezult:=a-b ; writeln ('a-b=', rezult:6:3); end;
{---------Умножение----------}
procedure multiplay;
begin rezult:=a*b ; writeln ('a*b=', rezult:6:3); end;
{---------Деление------------}
procedure devision;
begin rezult:=a/b ;
if b=0 then
writeln ('На 0 делить нельзя')
else begin rezult:=a/b;
writeln ('a/b=', rezult:6:3); end; end;
{----------Ввод a и b----------}
procedure input;
begin writeln ('Введите значение a'); readln (a);
writeln ('Введите значение b'); readln (b); end;
{-------Ввод требуемого
арифметического действия------
procedure operation;
var Flag: boolean;
Продолжение приложения
В
begin writeln;
repeat gotoxy (1,17); ClrEol; gotoxy (1,17);
Write ('Введите требуемое действие '); readln (N);
Flag :=(N='+') or (N ='-') or (N='*') or (N='/');
if not Flag then
begin gotoxy(1,19);
Writeln ('Вы ошиблись, повторите ввод'); end;
until Flag;
gotoxy (1,19); ClrEol; Writeln;
end;
{------------Вычисления-------
procedure calculation;
begin
Case N of
'+':Add;
'-':Subtract;
'*':Multiplay;
'/':Devision;
end;
end;
{----Временная
остановка выполнения
procedure wait;
begin
gotoxy(1,23);write ('Выход-Enter'); readln;
end;
{-----Управляющая программа-----}
begin
Zastavka; Menu;
Input;
Operation;
Calculation; Wait;
end.