1.3.2. Постановка задачи
Цель работы: В девятиэтажном доме на каждом этаже расположено по 4 квартиры. Составить программу, которая по номеру этажа n (1 <n < 9) выводит номера квартир на этом этаже.
1.3.3. Описание алгоритма решения задачи
1.3.4. Описание входных и выходных данных
a – переменная для ввода исходных данных типа integer.
1.3.5. Листинг программы
procedure TForm1.Edit1Change(Sender: TObject);
var
a : integer;
begin;
a:=StrToInt(Edit1.Text);
case a of
1: Label1.Caption:= 'Квартиры 1, 2, 3, 4';
2: Label1.Caption:= 'Квартиры 5, 6, 7, 8';
3: Label1.Caption:= 'Квартиры 9, 10, 11, 12';
4: Label1.Caption:= 'Квартиры 13, 14, 15, 16';
5: Label1.Caption:= 'Квартиры 17, 18, 19, 20';
6: Label1.Caption:= 'Квартиры 21, 22, 23, 24';
7: Label1.Caption:= 'Квартиры 25, 26, 26, 28';
8: Label1.Caption:= 'Квартиры 33, 34, 35, 36';
end;
end;
end.
Задание №2. Разветвляющиеся алгоритмы
2.1.1. Постановка задачи
Цель работы: В школу танцев принимаются юноши и девушки, имеющие рост не ниже 168 см и не выше 178 см. Их вес должен соотноситься с ростом по формуле: значение веса равно значение роста записывающегося минус значение роста – 115. Определите, будет ли поступающий принят в школу?
2.1.2.
Описание алгоритма решения задачи
2.1.3. Описание входных и выходных данных
a – переменная для ввода исходных данных типа integer.
b – переменная для ввода исходных данных типа integer.
e – переменная для ввода исходных данных типа integer.
2.1.4. Листинг программы
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,e : integer;
begin
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
if a<168 then
begin
ShowMessage('Рост не соответствует!');
end else
if a>178 then
begin
ShowMessage('Рост не соответствует!');
end;
begin
e:=a-115;
end;
2.1.5. Постановка задачи
Цель работы: Даны целые числа a, b, c, являющиеся сторонами некоторого треугольника. Проверить истинность высказывания: «Треугольник со сторонами a, b, c является прямоугольным».
2.1.6. Описание алгоритма решения задачи
2.1.7. Описание входных и выходных данных
a – переменная для ввода исходных данных типа integer.
b – переменная для ввода исходных данных типа integer.
c – переменная для ввода исходных данных типа integer.
2.1.8. Листинг программы
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c : integer;
begin
a:= StrToInt(Edit1.Text);
b:= StrToInt(Edit2.Text);
c:= StrToInt(Edit3.Text);
if (sqr(a)+sqr(b)=sqr(c)) or (sqr(b)+sqr(c)=sqr(a)) or (sqr(a)+sqr(c)=sqr(b)) then
begin
ShowMessage(‘Треугольник является прямоугольным’);
end else
ShowMessage(‘Треугольник не является прямоугольным’);
end;
end.
2.1.9. Постановка задачи
Цель работы: Дано целое число в диапазоне 1-7. Вывести строку – название дня недели, соответствующее данному числу (1 – «понедельник», 2 – «вторник» и т. д.).
2.2.1. Описание алгоритма решения задачи
2.2.2. Описание входных и выходных данных
a – переменная для ввода исходных данных типа integer.
2.2.3. Листинг программы
procedure TForm1.Label2Click(Sender: TObject);
var
a: integer;
begin
a:= StrToInt(Edit1.Text);
case a of
1 : Label2.Caption:='Понедельник';
2 : Label2.Caption:='Вторник';
3 : Label2.Caption:='Среда';
4 : Label2.Caption:='Четверг';
5 : Label2.Caption:='Пятница';
6 : Label2.Caption:='Суббота';
7 : Label2.Caption:='Воскресенье';
end;
end;
end.
2.2.4. Постановка задачи
Цель работы: Дан номер месяца – целое число в диапазоне 1-12 (1 – январь, 2 – февраль и т. д.). Определить количество дней в этом месяце для не високосного года.
2.2.5. Описание алгоритма решения задачи
2.2.6. Описание входных и выходных данных
x – переменная для ввода исходных данных типа integer.
y – переменная для вывода полученных данных типа string.
2.2.7. Листинг программы
procedure TForm1.btn1Click(Sender: TObject);
var
x:Integer;
y:string;
begin
x:=StrToInt(Edit1.text);
if (x=1) or (x=3) or (x=5) or (x=7) or (x=8) or (x=10) or (x=12) then
y:=' 31 день';
if (x=4) or (x=6) or (x=9) or (x=11) then
y:=' 30 дней';
if x=2 then
y:=' 28 дней';
Edit2.Text:=y;
end;
end.
Задание №3. Циклические алгоритмы
3.1. Постановка задачи
Цель работы: Вычислить значение функции y = 4x^3– 2x^2+ 5 для значений х, изменяющихся от –3 до 1 с шагом 0,1.
3.2. Описание алгоритма решения задачи
начало
X=-3
Y:=4x^3–
2x^2+ 5;
X+0.1X+0.1X+0.1
X>1 0
да нет
Y
Конец
3.3. Описание входных и выходных данных
x – переменная для ввода исходных данных типа real.
y – результат вычисления выражения типа real.
3.4. Листинг программы
procedure TForm1.Button1Click(Sender: TObject);
var
x,y:real;
begin
x:=-3;
repeat
Y:=4*sqr(x)*x-2*sqr(x)+5;
if x<-2 then
label1.Caption:=label1.caption+'x='+floattostrf(x,ffgeneral,1,1)+' '+'y='+floattostrf(y,ffgeneral,1,1)+'; ';
if (-2<=x) and (x<-1) then
label2.Caption:=label2.Caption+'x='+floattostrf(x,ffgeneral,1,1)+' '+'y='+floattostrf(y,ffgeneral,1,1)+'; ';
if (-1<=x) and (x<0) then
label3.Caption:=label3.Caption+'x='+floattostrf(x,ffgeneral,1,1)+' '+'y='+floattostrf(y,ffgeneral,1,1)+'; ';
if 0<=x then
label4.Caption:=label4.Caption+'x='+floattostrf(x,ffgeneral,1,1)+' '+'y='+floattostrf(y,ffgeneral,1,1)+'; ';
x:=x+0.1;
until x>1.1
end;
end.
