Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
|
|
270835.ПР.15.ПЗ |
Лист |
||||
|
Пров |
Щепина Е.С. |
|||||
|
Изм. |
Лист |
N докум. |
Подпись |
Дата |
Практическая работа №6
Тема: TurboPascal меню, окна.
Цель: Изучение системы программирования Turbo Pascal.
Задание:
program Рrisvoenie;
uses dos, crt;
var
A, B, S, Ostatok : integer;
Delenie : real;
begin
clrscr;
A:=125;
B:=34;
S:=A*B;
Ostatok:=A mod B;
Delenie:=A/B;
writeln(‘ЧислоA=’, A:4, ‘числоB=’, B:4);
writeln(‘Произведение чисел Aна B=’, S:4);
writeln(‘Частное отделения Aна B=’, Delenie:7:3);
writeln(‘Остаток от деления Aна B=’, Ostatok:4);
readln;
end.
Ход работы:
Вывод: