новая папка 1 / Otchet_8
.odt
Министерство образования и науки Российской Федерации
ФЕДЕРАЛЬНОЕ ГОСУДАРСТВЕННОЕ БЮДЖЕТНОЕ
ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ
ВЫСШЕГО ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ
«ОРЕНБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ»
Факультет информационных технологий
Кафедра информатики
ОТЧЕТ
по лабораторной работе № 6
по дисциплине «Программирование»
Оператор выбора Case. Группы радиокнопок - компоненты RadioGroup, RadioButton и GroupBox
Руководитель
преподаватель
Е.А. Мучкаева
« » марта 2015г.
Исполнитель
студент группы 14По(ба)Ин
А.М.Зобова
« » марта 2015г.
Оренбург 2015
Лабораторная работа №8.
Тема: Циклы с условиями. Алгоритмы циклической структуры
Цель: Познакомиться с работой оператора цикла с предусловием While, оператор цикла с постусловием Repeat Until. Рассмотреть примеры задач на нахождение суммы и произведения членов последовательности, а также табулирование функции.
Оператор цикла с предусловием While.
Оператор While позволяет многократно выполнять одни и те же действия в зависимости от некоторого условия. Записывается он следующим образом:
While <выражение> do <оператор>.
Если в теле цикла необходимо выполнить несколько операторов, то используются операторные скобки.
Опишем работу этого оператора. Сначала, при входе в цикл, вычисляется условие. Если оно равно false, то вход в цикл не выполняется и управление передается оператору, следующему непосредственно за оператором цикла. Если же условие равно True, то происходит вход в цикл и однократное выполнение операторов его тела. Как только достигнут конец тела цикла, управление вновь передается на его заголовок, где снова вычисляется условие. Если значение условия все еще равно True, то тело цикла выполняется еще один раз и т.д. Как только очередное вычисление условия цикла дает значение False, работа цикла завершается.
Замечание: В теле цикла обязательно должен стоять оператор, изменяющий значение переменной условия цикла.
Оператор цикла с постусловием Repeat Until
Оператор цикла с постусловием состоит из ключевого слова Repeat, за которым следуют операторы тела цикла, и замыкающего ключевого слова Until, после которого указывается условие окончания цикла.
Поскольку условие располагается в конце цикла, операторы его тела будут, в отличие от цикла While, всегда выполняться как минимум один раз.
Общий принцип работы цикла Repeat такой же, как у цикла с предусловием, только условие выполняется в конце тела цикла и выполнение продолжается пока условие равно False.
Задания.
-
Необходимо составить программу расчета конечной суммы и сравнения полученного результата с контрольным значением. Число членов суммы вводится с клавиатуры.
2. Найти следующие произведения. N вводится с клавиатуры:
3. Вывести на экран значения функции на отрезке от a до b с шагом h. (a,b,h вводятся с клавиатуры).
Код программы.
3. procedure TForm1.Button1Click(Sender: TObject);
var a,b,h,x,y:real;
begin
a:=StrToFloat(edit1.Text);
b:=StrToFloat(edit2.Text);
h:=StrToFloat(edit3.Text);
x:=a;
if (b<=a) then showmessage ('"a" больше "b"')
else
begin
while
(x<=b) do
begin
y:=abs((sin(x))/2*x);
x:=x+h;
Memo1.Lines.Add('F(x)='+FloatToStr(y));
end;
end;
end;
4. procedure TForm1.Button1Click(Sender: TObject);
var
n:integer; 
e:real;
begin
e:=strtofloat(edit1.Text);
if (e>0.00001) and (e<1) then begin
n:=1;
while (1/n)+abs(cos(n))>e do begin
n:=n+1;
memo1.Lines.Add(inttostr(n))
end end else showmessage('введите число из промежутка 0,00001<E<1');
end;
end.
1. procedure TForm1.Button1Click(Sender: TObject);
var
s:real;
n,i:integer;
begin
n:=StrToInt(Edit1.Text);
s:=0;
i:=1;
while i<=n do
begin
s:=s+2*i;
Inc(i);
end;
Label2.Caption:=FloatToStr(s);
begin
if s=(n*(n+1)) then
Label1.Caption:=Format('Cумма=Контрольное значение',[s,n*(n+1)]);
end;
2.
procedure TForm1.Button1Click(Sender: TObject);
var
N,i:integer;
Pr:real;
begin
N:=StrToInt(Edit1.Text);
Pr:=1;
i:=1;
begin
While i<N do
Pr:=Pr*((cos(i))/4);
i:=i+1;
end;
Label1.Caption:=FloatToStr(Pr);