Управляющие структуры языка PASCAL Мищенко ММ

Паскаль – язык структурного программирования. Begin последовательность операторов end Раздел операторов в программе всегда является составным оператором. Служебные слова begin и end часто называют операторными скобками. Реализация последовательности действий (т.е структуры следования) выполняется с помощью составного оператора.

If логическое выражение then оператор 1 else оператор 2 Условный оператор может быть неполным, т.е. не содержать часть else оператор 2. If логическое выражение then оператор 1 Реализация развилки в Паскале Предусмотрено два оператора: Условный оператор. Оператор варианта Case выражение of список констант 1: оператор 1; список констант 2: оператор 2; …………………………………….. список констант n: оператор n;n; end

Пример программы содержащей условный оператор Написать программу нахождения большего числа из двух. program Max2; { Найти наибольшее число из двух. } uses crt; var a, b, max : integer; begin clrscr; write('a=');readln(a); write('b=');readln(b); if (a>b) then max:=a; else max:=b; write(большее число:', max); readln; readkey; end.

Пример программы содержащей оператор варианта Написать программу, которая запрашивает номер месяца и выводит название времени года program nomer; uses crt; var month : integer; begin writeln (введите номер месяца от 1 – 12); readln (month); case month of 1,2,12 : writeln(зима); 3,4,5 : writeln(весна); 6,7,8 : writeln(лето); 9,10,11 : writeln(осень); else writeln (ошибка ввода!); end; readkey; end.

Задание: Написать программу, проверяющую, принадлежит ли число, введенное с клавиатуры, интервалу (0,5). Решение. Обозначим: x - число, вводимое с клавиатуры пользователем (это переменная целого типа). Принадлежность числа x интервалу (0,5) определяется следующей системой неравенств: X принадлежит заданному интервалу лишь в том случае, если одновременно выполняются оба условия: Program Example_3; Var x: Integer; Begin Writeln(Введите число x); Readln(x); If (x>0)And(x<5) Then Writeln(x, принадлежит интервалу(0,5)) Else Writeln(x, не принадлежит интервалу); End.

Задача Числа a и b выражают длины катетов одного прямоугольного треугольника, числа с и d – другого. Определить, являются ли треугольники подобными. Если треугольник со сторонами a, b, c является равнобедренным, найти его площадь, иначе периметр.

Циклы С предусловием Цикл «пока» С постусловием Цикл «до» С параметром

Цикл с предусловием While логическое выражение do оператор Действие: вычисляется значение логического выражения. Если оно равно true, то выполняется оператор, после чего снова вычисляется значение логического выражения, в противном случае действие заканчивается.

Пример: На склад поступает однородный груз на машинах различной грузоподъемности. На компьютер, управляющий работой склада, поступает информация о весе груза очередной машины. Составить программу подсчета количества машин, прибывших на склад до его заполнения, если вместимость склада не более 100 тонн. Введем обозначения: Sum – сумма веса груза, хранящегося в этот момент на складе; Num – количество разгруженных машин; W – вес груза очередной машины. Program Gruz; var sum,w: real; num: integer; Begin num:=0; sum:=0; while sum<100 do begin writeln(Введите вес груза машины); readln(w); sum:=sum+w; if sum<=100 then num:=num+1 else writeln(груз уже не поместится); end; writeln(количество разгруженных машин =, num:3); end.

Цикл с постусловием. repeat последовательность операторов until логическое выражение Действие: выполняется последовательность операторов. Далее вычисляется значение логического выражения. Если оно равно true, то действие заканчивается, иначе снова выполняется последовательность операторов и т.д.

пример Program Gruz2; var sum,w: real; num: integer; Begin num:=0; sum:=0; repeat writeln(Введите вес груза машины); readln(w); sum:=sum+w; if sum =100; writeln(количество разгруженных машин =, num:3); end.

Оператор цикла с параметром Используется, когда известно, сколько раз выполняется циклическая часть программы. For параметр := выражение 1 to выражение 2 do Параметр в данном случае возрастает. For параметр := выражение 1 downto выражение 2 do Параметр в данном случае убывает.

Пример: составим программу, по которой будет напечатана таблица перевода километров в мили (1 миля =1.603 км). Program mili; const a=1.603; b=км ; с=мили; var k:integer; m:real; Begin writeln(b:5,c:7); writeln; for k:=1 to 10 do begin m:=k/a; writeln(k:5, m:6:3); end; End. Введем обозначения: к – количество километров for k:=10 downto 1 do begin m:=k/a; writeln(k:5, m:6:3); end;

Задания: Определить все пары двузначных чисел, обладающих свойством (20 +25) 2 =2025. По заданной формуле члена последовательности с номером к составить программу вычисления суммы первых n членов последовательности. a. k =2n+3; b. k = 2n 2 +3n; (с использованием циклов).