Киберфак – бесплатно скачать презентации PowerPoint, лекции, рефераты, шпоры, курсовые cyberfac logo
cyberfac.ru
На главную | Регистрация | Вход
  Статьи  
Главная » Статьи » Информатика » Алгоритмизация и программирование

Инструкция FOR

Полезная статья? Пожалуйста, поставьте "+"
Алгоритмизация и программирование - Содержание
Рассмотрим следующую задачу. Пусть нужно написать программу, которая вычисляет значение функции у = 2 - 7 в точках —1, -0.5, 0, 0.5 и 1

(таблица должна быть выведена в поле метки формы приложения). Процедура, обеспечивающая решение поставленной задачи, может выглядеть так:

procedure TForm1.ButtonlClick(Sender: TObject); var

у: real; // значение функции

x: real; // аргумент функции

dx: real; // приращение аргумента

st: string; // изображение таблицы

begin

st:='';

x := -1; dx := 0.5;

у := 5*х*х -7;

st := st+ FloatToStr(x)+' '+ FloatToStr(y)+chr(13);

x :=x + dx;

у := 5*х*х -7;

st := st+ FloatToStr(x)+* '+ FloatToStr(y)+chr(13);

x :=x + dx;

у := 5*х*х -7;

st := st+ FloatToStr(x)+* '+ FloatToStr(y)+chr(13);

x :=x + dx;

у := 5*х*х -7;

st := st+ FloatToStr(x)+' ' + FloatToStr(y)+chr(13);

x :=x + dx;

у := 5*х*х -7;

st := st+ FloatToStr(x)+' '+ FloatToStr(y)+chr(13);

x :=x + dx;

Label1.Caption := st;

end;

Из текста процедуры видно, что группа инструкций

у := 5*х*х -7;

st := st+ FloatToStr(x)+' '+ FloatToStr(y)+chr(13);

x :=x + dx;

обеспечивающая вычисление значения функции, формирование строки таблицы и увеличение аргумента, выполняется 5 раз.

Воспользовавшись инструкцией for, приведенную процедуру можно переписать следующим образом:

procedure TForm1.ButtonlClick(Sender: TObject);

var

у: real; // значение функции

x: real; // аргумент функции

dx: real; // приращение аргумента

st: string; // изображение таблицы

i : integer; // счетчик циклов

begin

st:=''; x := -1; dx := 0.5;

for i:=l to 5 do begin

у := 5*x*x -7;

st := st+ FloatToStr(x)+' '+ FloatToStr(y)+chr(13); x :=x + dx; end;

Label1.Caption := st;

end;

Второй вариант процедуры, во-первых, требует меньше усилий при наборе, во-вторых, процедура более гибкая: для того чтобы увеличить количество строк в выводимой таблице, например до десяти, достаточно в строке for i:=1 to 5 do число 5 заменить на 10.

Инструкция for используется в том случае, если некоторую последовательность действий (инструкций программы) надо выполнить несколько раз, причем число повторений заранее известно.

В общем виде инструкция for записывается следующим образом: for счетчик := нач_знач to кон_знач do begin

// здесь инструкции, которые надо выполнить несколько раз end

где:

  • счетчик — переменная-счетчик числа повторений инструкций цикла;
  • нач_знач-- выражение, определяющее начальное значение счетчика циклов;
  • кон_знач — выражение, определяющее конечное значение счетчика циклов.

Переменная счетчик, выражения нач_знач и кон_знач должны быть целого типа.

Количество повторений инструкций цикла можно вычислить по формуле

(кон_знач — нач_знач + l).

Примеры:

for i:=l to 10 do begin

label1.caption:=label1.caption + '*'; end;

for i: =1 to n do s := s+i;

Примечание

Если между begin и end находится только одна инструкция, то слова begin и end можно не писать.

 

Алгоритм, соответствующий инструкции for, представлен на рис. 2.13. Обратите внимание, что если начальное значение счетчика больше конечного значения, то последовательность операторов между begin и end не будет выполнена ни разу.

Кроме того, после каждого выполнения инструкций тела цикла счетчик циклов увеличивается автоматически.

Переменную-счетчик можно использовать внутри цикла (но ни в коем случае не изменять). Например, в результате выполнения следующих инструкций:

tab1: = '' ;

for i:=l to 5 do

begin

tab1:=tabl+IntToStr(i)+' '+IntToStr(i*i)+chr(13);

end;

переменная tabl будет содержать изображения таблицы квадратов чисел.

Рассмотрим программу, которая вычисляет сумму первых 10 элементов ряда: 1 + + 1/3 + ... (значение i-го элемента ряда связано с его номером формулой 1//). Диалоговое окно программы должно содержать, по крайней мере, два компонента: поле метки (Label1) и командную кнопку (Buttonl).

Вычисление суммы ряда и вывод результата выполняет процедура обработки события Onclick, текст которой приведен ниже. После вычисления очередного элемента ряда процедура выводит в поле Labell номер элемента и его значение в поле метки формы, предназначенное для вывода результата.

procedure TForm1.ButtonlClick(Sender: TObject);

var

i:integer; { номер элемента ряда }

elem:real;

{ значение элемента ряда }

summ:real;

{ сумма элементов ряда )

begin

summ:=0;

label Leapt ion: = ' ' ;

for i:=l to 10 do begin

elem:=l/i;

label1.caption:=labell.caption+

IntToStr(i)+' '+FloatToStr(elem)+#13; sunrn: =summ+elem;

end;

label1.caption:=label1.caption+

'Сумма ряда:'+FloatToStr(summ);

end;

Если в инструкции for вместо слова to записать downto, то после очередного выполнения инструкций тела цикла значение счетчика будет не увеличиваться, а уменьшаться.

Категория: Алгоритмизация и программирование | Добавил: Ni-Cd (10 Декабря 2011)
Просмотров: 1574 | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
  Полезные материалы  

В нашем каталоге файлов можно найти много полезной информации. Также советуем заглянуть в каталог статей: в нем есть полезные статьи по темам: Экономика предприятия, Общая экономика, Финансы и Кредит, также Словарь терминов по экономике, Маркетинг, Бухучет и Мировая экономика
Также есть полезная страница Факультеты МИФИ, которая расскажет о том, какие есть в МИФИ факультеты.
Меню
 

Навигация
Высокоуровневые методы информатики и программирования [28]
Информатика и программирование [34]
Информационные системы в экономике [36]
Языки программирования и методы трансляции [15]
Алгоритмизация и программирование [61]
 

Поиск
 

Онлайн
Онлайн всего: 1
Гостей: 1
Пользователей: 0
 

Статистика


Рейтинг@Mail.ru

 


2007 - 2024 © Ni-Cd. All Rights Reserved