Практическая работа по информатике Проект Калькулятор в среде программирования PascalABC.NET (9 класс)

Муниципальное бюджетное образовательное учреждение
«Средняя общеобразовательная школа №19»
Методическая разработка по информатике для 9 класса
Практическая работа №4
Проект «Калькулятор»
(В среде программирования PascalABC.NET)
Разработала Смирнова С.В.
учитель информатики высшей категории
Яровое, 2016
Практическая работа №4
Проект «Калькулятор»
Аппаратное и программное обеспечение.
Компьютер с установленной операционной системой Windows и программой PascalABC.NET.
Цель работы: создать условия для проектной деятельности обучающихся по закреплению ветвления на языке программирования и освоения оператора выбора в среде PascalABC.NET.
Задание: Разработать проект «Калькулятор», т.е. написать программу на языке Паскаль, которая бы выполняла  простейшие арифметические операции над числами: сложение, вычитание, умножение и деление.
Ход работы:
Рассмотрите предложенную блок-схему «Калькулятор» и программу по данной блок-схеме. Наберите программу в среде PascalABC.NET и проанализируйте программу.
начало


Ввод чисел x, yВвод операции +,-,*,/

да

нет
«+»


нет
да
«-»
z = x + yВывод z

z = x * yВывод z
«*»
z = x - yВывод z

нет
да


z = x / yВывод z
y<>0

нет
да



Вывод “Деление на ноль”



конец

Программа:
Program Kalkulytor;
var
x,y,z: real;
op: char;
begin write('Введите x >> '); readln(x);
write('Введите y >> '); readln(y);
writeln('Введите операцию: + , - , * , /'); readln(op);
if op = '+' then
begin z := x + y;
writeln('x+y=',z:5:2)
end else
if op='-'then
begin z := x-y; writeln('x-y=',z:5:2);
end else
if op ='*'then
begin
z := x * y;writeln('x*y=',z:5:2);
end else
if y <> 0 then
begin z := x / y;writeln('x:y=',z:5:2)
end else
writeln('Деление на ноль!!');
end.
Рассмотрим условный оператор множественного выбора Сase of , который позволяет сделать выбор из множества представленных значений переменной.
case <селектор (логическое выражение, математическое выражение, переменная)> ofзначение 1 : оператор;значение 2 : оператор;. . . . . . . . . .значение N : оператор;else оператор;end;
Теперь в нашей программе используем оператор выбора, что получим.
Program Kalkulytor;
var
x,y,z: real;
op: char;
beginwrite('Введите x >> '); readln(x);
write('Введите y >> '); readln(y);
writeln('Введите операцию: + , - , * , /'); readln(op);
case op of
'+': begin z := x + y; writeln('x + y = ',z:5:2);end;
'-': begin z := x - y; writeln('x - y = ',z:5:2);end;
'*': begin z := x * y; writeln('x * y = ',z:5:2);end;
'/': if y <> 0 then begin z := x / y;
writeln('x:y=',z:5:2)
endelse
writeln('Деление на ноль!!');
end;
end.
Наберите программу в среде PascalABC.NET и проанализируйте программу.
Составьте программу, имитирующую своеобразный калькулятор, где
1 - сумма двух чисел,
2 - разность двух чисел,
3 - произведение двух чисел,
4 - целая часть от деления,
5 - остаток от деления,
6 - квадратный корень числа,
иначе введен неизвестный номер операции.