Transcript Арифметические выражения в Паскале

Арифметические
выражения в
Паскале
Цели урока:
 Научиться
правильно записывать
арифметические выражения в
Паскале;
 Определить
порядок составления
программы в Паскале.
Актуализация знаний
Что означают операторы WriteLn и
ReadLn?
 Какие типы переменных означают
Integer, Real?
 Определите, что будет напечатано при
выполнении следующих фрагментов
программ:
А) a:=10; a:=10*a-5; WriteLn(a); 95

Б) a:=50; a:=-a; WriteLn (a);
-50
В) a:=25; b:=20; a:=b-a; b:=a-b; WriteLn(a, ‘ ‘,
b); -5 -25
Арифметическое выражение
описывает правило вычисления
значения некоторой величины.
Оно может содержать числа,
переменные, функции,
объединенные знаками
арифметических операций.
Запись арифметических
выражений
ОПЕРАЦИЯ
РЕЗУЛЬТАТ
ОПИСАНИЕ
2
+ 3
5
плюс
4
-
1
3
минус
2
*
3
6
умножить
10 /
5
2
разделить
3
целочисленное При
использовании
деление
17 DIV 5
2
17 MOD 5
операций DIV,
MOD всегда
остаток от
применяются
целочислен- только целые
ного деления
числа.
Примеры:
A
В
А/В
А div В
33
7
4.7142
4
5
-33
7
-4.7142
-4
-5
-21
-8
2.625
2
А mod В
5
Стандартные функции числовых
данных
ФУНКЦИЯ
РЕЗУЛЬТАТ
ОПИСАНИЕ
Sqr (5)
25
возведение в квадрат
Sqrt (25)
5
корень квадратный
Pi
3.1415...
число пи
Frac (23.192)
0.192
дробная часть числа
Int (3.98)
3.0
целая часть числа
Round (5.8)
6
округление
Abs ( -20)
20
абсолютная величина (модуль) числа
Random
0.73088
случайное число из диапазона (0 - 1)
106
случайное целое число из диапазона (0 199)
Random (200)
Порядок выполнения операций:
1. вычисление функции;
2. операция смены знака (–);
3. *, /, div, mod;
4. +, –.
Операции в скобках выполняются
в первую очередь.
Вычислить:
1) 10+Sqr(2+1)=
19
2) 3-8+21 div 3= 2
3) round(6.9)-round(6.2)= 1
4) 5*2-4*20/4 mod 3= 8
5) Sqrt(8+Int(41.5)) = 7
6) 40 mod (4 div 2) =
0
Определить,что напечатает
данная программа:
Program t;
Var a,b:integer;
BEGIN
a:=(Sqr(2)-1)*(2-Sqr(2-2))-11; -5
b:=11 div (a-4); -1
WriteLn(Sqr(a)+b-1); 23
END.
Гимнастика для глаз по методике Э.В. Аветисова
Все упражнения повторять по 3 раза:
1. Сомкните веки обоих глаз и посчитайте до 5.
2. Быстро моргайте обоими глазами в течении 5 секунд.
3. Медленно переведите взгляд с пола на потолок и
обратно.
4. Медленно переведите взгляд вправо, влево и обратно.
5. Делайте круговые движения глазами в одном, затем в
другом направлении.
Порядок составления программы:
1. Знать решение задачи.
2. Дать имена переменным.
3. Определить тип переменных.
4. Задать исходные данные задачи.
5. Совершить действия с исходными
данными для получения результата.
6. Напечатать результат.
Определить количество оставшихся
яблок, если их делили на 4 человек
Определить количество оставшихся
яблок, если их делили на 4 человек
Program m;
Var a,b: integer;
BEGIN
write (‘Количество яблок = ');
readln (a);
b:= a mod 4;
writeln(‘Осталось ‘,b,’ яблок’);
END.
Определить, сколько попугаев
поместится на удаве
Определить, сколько попугаев
поместится на удаве
Program m;
Var a,b,с: integer;
BEGIN
write ('a='); readln (a);
write ('b='); readln (b);
c:= b div a;
writeln ('Поместится', с, попугаев');
END.
Вычислить гипотенузу прямоугольного
треугольника (длина катетов - a и
b)(‘дополнительная задача’)
a
b
Вычислить гипотенузу прямоугольного
треугольника (длина катетов -a и b)
Program m;
Var a,b,с: real;
BEGIN
write ('a='); readln (a);
write ('b='); readln (b);
c:= sqrt (sqr(a) + sqr(b) );
writeln ('c=', с:8:2);
END.
Домашнее задание:
Написать программу для решения
задачи:
Даны два целых числа. Вычислить
среднее арифметическое и среднее
геометрическое их модулей.