Задание №1. Линейные алгоритмы.
1.1.1. Постановка задачи
Цель работы: Даны два ненулевых числа. Найти сумму, разность, произведение и частное этих модулей.
1.1.2.
Описание алгоритма решения задачи
Начало
X;
Y; 
Z1=X+Y; Z2=X-Y; Z3=X*Y; Z4=X/Y
Z1;Z2;Z3;Z4
1.1.3. Описание входных и выходных данных
X – первая переменная для ввода исходных данных типа real.
Y – вторая переменная для ввода исходных данных типа real.
1.1.4. Листинг программы
procedure TForm1.Button1Click(Sender: TObject);
var x,y: Real;
begin
Label1.Caption:='Сумма: '+IntToStr(StrToInt(Edit1.Text)+StrToInt(Edit2.Text));
Label2.Caption:='Разность: '+IntToStr(StrToInt(Edit1.Text)-StrToInt(Edit2.Text));
Label3.Caption:='Произведение: '+IntToStr(StrToInt(Edit1.Text)*StrToInt(Edit2.Text));
Label4.Caption:='Частное: '+FloatToStr(StrToInt(Edit1.Text)/StrToInt(Edit2.Text));
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in['0'..'9',#8]) then key:=#0;
end;
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in['0'..'9',#8]) then key:=#0;
end;
end.
1.1.5. Постановка задачи
Цель работы: Дан диаметр окружности d. Найти ее длину L = πd. В качестве значения использовать π = 3.14.
Начало
d;
d:=d*3.14;
d
1.1.6 Описание входных и выходных данных
d – переменная для ввода исходных данных типа real.
1.1.7. Листинг программы
procedure TForm1.btn1Click(Sender: TObject);
var d: Real;
begin
d:=StrToFloat(edt1.text);
d:=d*3.14;
edt2.text:=Floattostr(d);
end;
end.
1.1.8. Постановка задачи
Цель работы: Дана длина ребра куба a. Найти объем куба V = a3и площадь его поверхности S = 6∙a2.
1.1.9. Описание алгоритма решения задачи
1.2.1. Описание входных и выходных данных
а – переменная для ввода исходных данных типа real.
1.2.2. Листинг программы
procedure TForm1.btn1Click(Sender: TObject);
var a: Real;
begin
a:=StrToFloat(edt1.text);
a:=a*a*a;
edt2.text:=Floattostr(a);
a:=StrToFloat(edt1.text);
a:=a*a;
edt4.text:=Floattostr(a);
end;
end.
1.2.3. Постановка задачи
Цель работы: Дано значение угла α в градусах (0 <α < 360). Определить значение этого же угла в радианах, учитывая, что 180=π радианов. В качестве значения π использовать 3.14.
1.2.4. Описание алгоритма решения задачи
1.2.5. Описание входных и выходных данных
k – переменная для ввода исходных данных типа real.
1.2.6. Листинг программы
procedure TForm1.btn1Click(Sender: TObject);
var k:real;
begin
k:=strtofloat(edt1.text);
k:=DegToRad(k);
edt2.Text:=floatTostr(k);
end;
end.
1.2.7. Постановка задачи
Цель работы: Дан размер файла в байтах. Используя операцию деления нацелое, найти количество полных килобайтов, которые занимает данный файл (1 килобайт = 1024 байта).
1.2.8. Описание алгоритма решения задачи
1.2.9. Описание входных и выходных данных
size – переменная для ввода исходных данных типа real.
1.3.1. Листинг программы
procedure TForm1.Label2Click(Sender: TObject);
var
size: real;
begin
size:= StrToFloat(Edit1.Text);
size:=Round(size/1024);
Label2.Caption:='Ответ: '+FloatToStr(size)+'Кбайт';
end;
1.3.2. Постановка задачи
Цель работы: В магазине продаются компьютеры 3-х наименований, цена их равна а, b и c тенге соответственно. Определить, сколько компьютеров каждого из наименований можно купить на сумму n.
1.3.3. Описание алгоритма решения задачи
1.3.4. Описание входных и выходных данных
a – переменная для ввода исходных данных типа integer.
b – переменная для ввода исходных данных типа integer.
c – переменная для ввода исходных данных типа integer.
n – переменная для вывода полученных данных типа integer.
1.3.1. Листинг программы
procedure TForm1.FormCreate(Sender: TObject);
var
a,b,c,n,n2,n3:integer;
begin
randomize;
a:=2000;
b:=2000;
c:=2000;
a:=random(a);
b:=random(b);
c:=random(c);
Label1.Caption:='1-ый ПК '+FloatToStr(a)+' тенге';
Label2.Caption:='2-ой ПК '+FloatToStr(b)+ ' тeнге';
Label3.Caption:='3-ий ПК '+FloatToStr(c)+ ' тенге';
n:=10000;
n2:=10000;
n3:=10000;
n:=n div a;
n2:=n2 div b;
n3:=n3 div c;
Label4.Caption:='1-ый ПК '+FloatToStr(n)+' шт';
Label5.Caption:='2-ой ПК '+FloatToStr(n2)+ ' шт';
Label6.Caption:='3-ий ПК '+FloatToStr(n3)+ ' шт';
end;
end.
