План урока
Повторение пройденного
Форматы печати
Схема программы на Паскале
Стандартные функции.
Решение задач
04.05.2021
Стрельникова Л.В. - автор презентации
Подумай!
Ввести с клавиатуры два числа A,B
Readln (A,B);
Переменным A,B присвоить значения
A:=5; B:=3;
Вывести на печать два числа A,B
Writeln (А,В);
Вывести на экран значения двух чисел A,B
Writeln (А,В);
04.05.2021
Стрельникова Л.В. - автор презентации
Печать целых чисел
Пусть А=45, В=123, тогда при выполнении Writeln (А,В); значения А и В сольются в одно число:
45123
Чтобы разделить числа, используют форматы печати, определяя для каждой переменной количество позиций в строке.
Оно записывается после имени переменной через ":"
Таким образом, оператор можно записать так:
Writeln (A:4, B:6); и на экране:
_ _45_ _ _123
04.05.2021
Стрельникова Л.В. - автор презентации
Печать дробных чисел
1243,563 = 1.2435630000Е+03
Writeln (X:6:2); ==> 234.56
04.05.2021
Стрельникова Л.В. - автор презентации
Число с фиксированной точкой
Writeln (имя переменной: кол. всех знаков: кол. знаков на дроб.часть);
04.05.2021
Стрельникова Л.В. - автор презентации
Примеры
Пусть Х=1243,563
04.05.2021
Стрельникова Л.В. - автор презентации
Вид программы в Паскале
Программа на языке Паскаль представляет собой текст.
Она может быть написана в любом текстовом редакторе, с расширением pas.
Программа состоит из 4х основных частей:
Заголовок программы
Раздел описаний (соглашения)
Исполняемая часть (операторы)
Вывод результатов.
04.05.2021
Стрельникова Л.В. - автор презентации
Схема программы
I. Заголовок
Program dialog;
Var a, b, c, d: string;
Begin
writeln ('Как тебя зовут?'); readln(a);
writeln ('Привет!',a);
writeln ('Сколько тебе лет?’); readln(b);
writeln (b,' это много!', a);
End.
04.05.2021
Стрельникова Л.В. - автор презентации
Функция | Название | Примеры |
abs(x) | Модуль Х | abs(-5) = 5 |
sqr(x) | Квадрат Х | sqr(3) = 9 |
sqrt(x) | Корень из Х | sqrt(16) = 4, x >= 0 |
Int(x) | Целая часть от Х | Int(2.8) = 2.0000000000E+00 |
round(x) | Округление до целых | Round(2.8) = 3 |
trunc(X) | Целая часть от Х | Trunc(2.8) = 2 |
frac (X) | Дробная часть от Х | Frac(2.1358) = 0.1358 = 1.3580000000Е-01 |
04.05.2021
Стрельникова Л.В. - автор презентации
Функция | Название | Комментарии |
sin(x) | sin x | Аргумент записывается |
cos(x) | cos x | |
pi | число | Pi = 3.14... |
random (x) | Случайное число от 0 до x | random (30) |
04.05.2021
Стрельникова Л.В. - автор презентации
Подумай и реши?
ЗАДАЧА. Ввести с клавиатуры длины катетов треугольника. Найти гипотенузу.
Аргументы: а, b
Результаты: c
Формулы: c:=Sqrt (Sqr(a)+Sqr(b));
04.05.2021
Стрельникова Л.В. - автор презентации
Решение задачи
Program Gip;
Var a, b, c: real;
Begin
Write ('Ввести А и В ');
Readln (a,b);
c:=Sqrt (Sqr(a)+Sqr(b));
Writeln ('c=',c:6:2);
End.
04.05.2021
Стрельникова Л.В. - автор презентации
Случайные числа
1) Включить генератор случайных чисел Randomize.
2) Значение переменной с помощью функции"Random"
а) для дробных чисел из интервала [ X0; X1 ]:
X:=Random * (X1-X0) + X0;
б) для целых чисел из интервала [ X0; X1 ]:
X:=Random (X1-X0) + X0;
в) упрощённый вариант
X:=Random (30);
04.05.2021
Стрельникова Л.В. - автор презентации
Задача №1
Значение массы тела m ввести с использованием функции random. Считая g=9.8, найти вес тела P.
Аргументы: g, m
Результаты: P
Program Ves;
uses сrt;
const g=9.8;
var m: integer;
P: real;
Begin
m:=Random (30);
P:=m*g;
Writeln ('Веc=', P:5:0)
End.
Решение
04.05.2021
Стрельникова Л.В. - автор презентации
Операции div и mod
program n_4;
var x, a, b, c, s: integer;
begin
write ('Введите исходное число>>');
readln (x);
a:=x div 100;
b:=x mod 100 div 10;
c:=x mod 10;
s:=a+b+c ;
writeln ('s= ', s)
end.
Трёхзначное число можно представить в виде следующей суммы: x = a·100 + b·10 + c, где а, b, с - цифры числа.
Программа нахождения суммы цифр вводимого с клавиатуры целого трёхзначного числа:
04.05.2021
Стрельникова Л.В. - автор презентации
Типы данных в языке Паскаль: вещественный, целочисленный, символьный, строковый, логический.
04.05.2021
Стрельникова Л.В. - автор презентации
Логический тип данных
Пусть ans - логическая переменная, n - целая переменная.
В результате выполнения оператора присваивания ans:=n mod 2=0
переменной ans будет присвоено значение true при любом чётном n и false в противном случае.
//Определение истинности высказывания о чётности числа
04.05.2021
Стрельникова Л.В. - автор презентации
Логический тип данных
Величины логического типа принимают всего два значения:
false и true;
false < true.
Логические значения получаются в результате выполнения операций сравнения числовых, символьных, строковых и логических выражений.
В Паскале логической переменной можно присваивать результат операции сравнения.
04.05.2021
Стрельникова Л.В. - автор презентации
Логический тип данных
Логическим переменным можно присваивать значения логических выражений, построенных с помощью логических функций и (and), или (or), не (not).
Логическая операция | Название операции |
and | конъюнкция |
or | дизъюнкция |
not | отрицание (инверсия) |
04.05.2021
Стрельникова Л.В. - автор презентации
program n_7;
var a, b, c: integer; ans: boolean;
begin
writeln ('Определение истинности высказывания
о равнобедренном треугольнике');
write ('Введите значения a, b, c>>');
readln (a, b, c);
ans:=(a=b) or (a=c) or (b=c);
writeln ('Треугольник с длинами сторон ', a, ',', b,
',', c, ' является равнобедренным - ', ans)
end.
Логический тип данных
04.05.2021
Стрельникова Л.В. - автор презентации
Самостоятельная работа
Введя с клавиатуры площадь и одну сторону прямоугольника, найти длину другой стороны.
S – площадь прямоугольника
a – одна сторона прямоугольника
b - ?
Решение задачи
Program S;
var a,b,S: real;
Begin
write ('a:='); readln (a);
write (‘S:='); readln (S);
b:=S/a;
writeln (‘b:=‘,b:4:2);
End.
04.05.2021
Стрельникова Л.В. - автор презентации
Материалы на данной страницы взяты из открытых источников либо размещены пользователем в соответствии с договором-офертой сайта. Вы можете сообщить о нарушении.