Соответствие между блоками в блок-схеме и операторами языка Pascal в программе (Вклеить сразу после оператора if)

Соответствие между блоками в блок-схеме и операторами языка Pascal в программе (Вклеить сразу после оператора if)

Фрагмент блок-схемы

Оператор Pascal

Ввод данных

(а – вещественное, т.е. типа real,

n – целое, т.е. типа integer)

Ввод осуществляется с помощью оператора присваивания (текстовое значение, набранное в поле Edit_a, преобразуется в число, которое присваивается переменной a):

a := StrToFloat(Edit_a.Text);

n := StrToInt(Rdit_n.Text);

(StrToFloat – функция преобразования строкового значения –String – в действительное число -Real)

Блок вычислений

	D = b^2 – 4ac

Y = Ln(|X|+3)

Оператор присваивания ( результат, вычисленный справа от оператора := присваивается переменной слева )

D := b*b – 4*a*c;

Y:= Ln(abs(X)+3);

Разветвление 1

Условный оператор

if (условие)

then оператор1

else оператор2;

Здесь оператор1 соответствует «действиям 1», а оператор2 – «действиям 2»

Перед else точка с запятой не ставится.

Разветвление 2

Операторные скобки ( в них заключают блок операторов – последовательность операторов)

if (условие) then

begin

оператор1;

оператор2;

оператор3

end

else

begin

оператор 4;

оператор 5;

end;

Цикл с известным числом повторений

Оператор цикла for

for i:=1 to n do оператор;

Здесь оператор соответствует «телу цикла».

(у оператора for незамкнутая структура: если тело цикла - блок операторов, он заключается в операторные скобки)

Цикл с предусловием (ПОКА)

Оператор цикла while

(у оператора незамкнутая структура: оператор, следующий за ключевым словом do, представляет собой тело цикла)

while (условие продолжения цикла) do оператор;

(если тело цикла содержит более 1 действия, то блок операторов заключается в операторные скобки begin…end)

while (X<=Xk) do

begin

оператор1;

оператор2;

оператор3;

end;

Цикл с постусловием (ДО)

Оператор цикла repeat – until

(у оператора замкнутая структура: начало и конец цикла обозначены)

repeat

операторы тела цикла через «;»

until (условие выхода);

Вывод данных

(а – вещественное, т.е. типа real,

n – целое, т.е. типа integer)

1)вывод в окно редактирования (Edit):

Edit_a.Text:=FloatToStr (a);

Еdit_n.Text:=IntToStr(n);

2)вывод в компонент - надпись

(Label):

Label5.Caption:=’a=’+ FloatToStr (a)

+ ’ n=’ + IntToStr(n);

3)вывод сообщения в диалоговое окно:

ShowMessage(‘Ошибка: введите а¹0’);

Примеры выражений на языке Pascal

X:=A*(b-sqrt(A-power(b,5)));

Y:=(sin(c*X/2)+exp(x))/(1+power(x,1/3));

Z:=Ln(1+sin(X)*sin(X));

Проверка X≠0:

1. if (abs(X)>1E-10) then… //, если X –real(дробное)

2. if (X >0) then… //, если X –integer;

Пример реализации разветвления на языке Pascal

1.Полная конструкция оператора if

2. Неполная конструкция оператора if -отсутствует else -«пустая»ветка (-)

If ( Y>0 ) then

begin

K:=K+1;

S:=S+Y;

end;

Дата добавления: 2015-08-28