Курсовая работа: Приложения технологии языка программирования Паскаль в прикладной механике
var a 1, a 2, buf : real ;
if a1>a2 then begin
buf:=a1;
a 1:= a 2;
a 2:= buf ;
end ;
Пример при подсчете суммы натуральных чисел от 1 до 100:
Var i,sum: integer;
begin
sum:=0; i:=0;
repeat
i:=i+1;
sum:=sum+i;
until i=100;
writeln (' Сумма равна : ',sum);
readln ;
end.
Важно заметить, что операторы стоящие внутри цикла repeat (иначе в теле цикла) выполняются хотя бы один раз (только после этого проверяется условие выхода).
Этот цикл записывается так: while do . (Пока условие истинно, выполнять оператор). Суть в следующем: пока условие истинно, выполняется оператор (в этом случае оператор может не выполниться ни разу, т.к. условие проверяется до выполнения).
1. Символьный тип
Тип данных, переменные которого хранят ровно один символ (букву, цифру, знак препинания и т.п.) называется символьным, а в Паскале — char . Объявить переменную такого типа можно так: var ch: char ;. Для того чтобы положить в эту переменную символ, нужно использовать оператор присваивания, а символ записывать в апострофах, например: ch:='R' ;. Для символьных переменных возможно также использование процедуры readln, например:
write(‘Выйти из игры? (Да/Нет)’); readln(ch);
if ch=’ Д ’ then ... { выходить }...
else ...{продолжать}...;
Символьные переменные в памяти компьютера хранятся в виде числовых кодов, иначе говоря, у каждого символа есть порядковый номер. К примеру, код пробела равен 32, код ‘A ’ — 65, ‘B ’ — 66, ‘C ’ — 67, код символа ‘1’ — 48, ‘2’ — 49, ‘.’ — 46 и т. п. Некоторые символы (с кодами, меньшими 32) являются управляющими, при выводе таких символов на экран происходит какое-либо действие, например, символ с кодом 10 переносит курсор на новую строку, с кодом 7 — вызывает звуковой сигнал, с кодом 8 — сдвигает курсор на одну позицию влево. Под хранение символа выделяется 1 байт (байт состоит из 8 бит, а бит может принимать значения 0 или 1), поэтому всего можно закодировать 28 = 256 различных символов. Кодировка символов, которая используется Турбо-Паскале, называется ASCII (American Standard Code for Information Interchange — американский стандартный код для обмена информацией).
Для того чтобы получить в программе код символа нужно использовать функцию chr , например:
var i: byte; {число, занимающее 1 байт, значения — от 0 до 255}
ch: char;
...