FindSlide.org - это сайт презентаций, докладов, шаблонов в формате PowerPoint.
Email: Нажмите что бы посмотреть
program n_3;
var x: real;
begin
writeln ('Исследование функций round, int, frac');
write ('Введите x>>');
readln (x);
writeln ('Округление - ', round(x));
writeln ('Целая часть - ', int(x));
writeln ('Дробная часть - ', frac(x))
end.
?
Трёхзначное число можно представить в виде следующей суммы: x = a·100 + b·10 + c, где а, b, с - цифры числа.
Программа нахождения суммы цифр вводимого с клавиатуры целого трёхзначного числа.
Функция chr преобразовывает числовой код символа в сам символ.
Значением строковой величины (тип string) является произвольная последовательность символов, заключенная в апострофы.
W
chr
87
ord
W
%
37
%
4
52
4
S
83
S
var c: string
c:= chr(52)+chr(37)
с
4%
Вывод на экран кода буквы введённой с клавиатуры
Вывод на экран строки из трёх букв.
Каких?
program n_6;
var n: integer; ans: boolean;
begin
writeln ('Определение истинности высказывания о чётности числа');
write ('Введите исходное число>>');
readln (n);
ans:=n mod 2=0;
writeln ('Число ', n,' является четным - ', ans)
end.
Логический тип данных
Как можно получить случайное число из промежутка (0; x)?
Как можно получить случайное число из промежутка (0; x]?