4.3 Примеры простейших программ
Ниже приведены примеры 2-х простейших программ. Примеры программ для других разделов приведены в отдельном пособии «Сборник первых программ на PascalABC». Также много различных программ есть в разделе SAMPLES базового комплекта PascalABC. Все они помогают понять принцип решения многих задач. Эти программы рекомендуется ввести, отладить, протестировать и, по возможности, – модифицировать с целью усложнения.
Программа 1
{Написать программу, которая запрашивает два числа, находит их сумму и выводит результат.}
Program summa;
Var
a,b,s:integer;
BEGIN
Cls;
Writeln(‘Введите первое число’);
Readln(a);
Writeln(‘Введите второе число);
Readln(b);
s:=a + b;
Writeln(‘сумма равна ’, s);
END.
Программа 2
{Написать программу, которая вводит два числа, вычисляет остаток от деления первого на второе и выводит результат.}
Program delenie;
Var
a,b,q:integer;
BEGIN
Cls;
Writeln(‘Введите первое число’);
Readln(a);
Writeln(‘Введите второе число);
Readln(b);
q:=a mod b;
Writeln(‘Остаток от деления 1-го числа на 2-е ‘,q:7);
END.
5. Структурированные операторы
5.1 Условный оператор
Условный оператор используется в тех случаях, вычисления могут идти по различным путям, в зависимости от выполнения или не выполнения некоторого условия. Он позволяет выполнять или пропускать отдельные операторы программы |
|
Общий вид условного оператора:
-
а) для простого случая
If <условие>
then <оператор1>
else <оператор2>;
Если условие истинно, выполняется оператор1, иначе – выполняется оператор2, после чего выполнение переходит к следующему оператору.
б) для сложного случая
If <условие>
then
begin
<оператор1>;
<оператор2>;
end
else
begin
<оператор3>;
<оператор4>;
end;
Если после then или else нужно выполнить группу операторов, то используется составной оператор
(операторные скобки)
“Begin – End”
В качестве условия применяются операции отношения (сравнения):
=, <>, <=, >=, >, <.
Например:
а) If х>0
then writeln(‘Число ’,Х, ‘больше 0’)
else writeln(‘Число ’,Х, ‘меньше или равно 0’);
-
б) If sum>k
then z:=10
else z:=5;
Перед else ; не ставится!!!!!
Условный оператор можно использовать и в краткой форме:
If <условие> then <оператор>; Например: If x<0 then x:=-x;
|
|
