Печать целых чисел
Пусть А=45, В=123, тогда при выполнении Writeln (А,В); значения А и В сольются в одно число:
45123
Чтобы разделить числа, используют форматы печати, определяя для каждой переменной количество позиций в строке.
Оно записывается после имени переменной через ":"
Таким образом, оператор можно записать так:
Writeln (A:4, B:6); и на экране:
_ _45_ _ _123
04.05.2021
Стрельникова Л.В. - автор презентации
Вид программы в Паскале
Программа на языке Паскаль представляет собой текст.
Она может быть написана в любом текстовом редакторе, с расширением pas.
Программа состоит из 4х основных частей:
Заголовок программы
Раздел описаний (соглашения)
Исполняемая часть (операторы)
Вывод результатов.
04.05.2021
Стрельникова Л.В. - автор презентации
Схема программы
I. Заголовок
Program <имя программы>;
II. Раздел объявлений (описаний)
Const имя=значение;
Var имя, имя: тип1;
имя, имя: тип2;
III. Тело программы
Begin
операторы
End.
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
Стрельникова Л.В. - автор презентации
Случайные числа
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
Стрельникова Л.В. - автор презентации
Логический тип данных
Пусть ans - логическая переменная, n - целая переменная.
В результате выполнения оператора присваивания ans:=n mod 2=0
переменной ans будет присвоено значение true при любом чётном n и false в противном случае.
//Определение истинности высказывания о чётности числа
program n_6;
var n: integer;
ans: boolean;
begin
write ('Введите исходное число>>');
readln (n);
ans:=n mod 2=0;
writeln ('Число ', n,' является четным - ', ans)
end.
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
Стрельникова Л.В. - автор презентации
© ООО «Знанио»
С вами с 2009 года.