- Преподавателю
- Информатика
- Практическая работа по информатике Проект Калькулятор в среде программирования PascalABC. NET (9 класс)
Практическая работа по информатике Проект Калькулятор в среде программирования PascalABC. NET (9 класс)
| Раздел | Информатика |
| Класс | 9 класс |
| Тип | Другие методич. материалы |
| Автор | Смирнова С.В. |
| Дата | 05.03.2016 |
| Формат | docx |
| Изображения | Есть |
Муниципальное бюджетное образовательное учреждение
«Средняя общеобразовательная школа №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;
begin
write('Введите 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)
end
else
writeln('Деление на ноль!!');
end;
end.
-
Наберите программу в среде PascalABC.NET и проанализируйте программу.
-
Составьте программу, имитирующую своеобразный калькулятор, где
1 - сумма двух чисел,
2 - разность двух чисел,
3 - произведение двух чисел,
4 - целая часть от деления,
5 - остаток от деления,
6 - квадратный корень числа,
иначе введен неизвестный номер операции.