Описание входных и выходных данных

a – переменная для ввода исходных данных типа integer.

b – переменная для ввода исходных данных типа integer.

c – переменная для ввода исходных данных типа integer.

Листинг программы

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.

Постановка задачи

Цель работы: Дано целое число в диапазоне 1-7. Вывести строку – название дня недели, соответствующее данному числу (1 – «понедельник», 2 – «вторник» и т. д.).

Описание алгоритма решения задачи

Описание входных и выходных данных

a – переменная для ввода исходных данных типа integer.

Листинг программы

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.

Постановка задачи

Цель работы: Дан номер месяца – целое число в диапазоне 1-12 (1 – январь, 2 – февраль и т. д.). Определить количество дней в этом месяце для не високосного года.

Описание алгоритма решения задачи

Описание входных и выходных данных

x – переменная для ввода исходных данных типа integer.

y – переменная для вывода полученных данных типа string.

Листинг программы

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. Циклические алгоритмы

Постановка задачи

Цель работы: Вычислить значение функции y = 4x^3– 2x^2+ 5 для значений х, изменяющихся от –3 до 1 с шагом 0,1.

Описание алгоритма решения задачи

u oLPAI2QZCPlxjLT0OMtK6oJepmEN0xXEeGGqGOKZVMMZmSizVycIMkjj+7KP3RhPD6qXUN2jXhaG 2cW/hocG7GdKOpzbgrpPG2YFJeqVQc1n48kkDHo0JtOLDA176ilPPcxwhCqop2Q4Ln38HENl19ib WkbdQhMHJnvOOI9Rzv3fCQN/aseoPz988RsAAP//AwBQSwMEFAAGAAgAAAAhAFMHcGDeAAAACQEA AA8AAABkcnMvZG93bnJldi54bWxMj9FOg0AQRd9N/IfNmPhi7AK1VChLoyYaX1v7AQM7BVJ2l7Db Qv/e8ck+3szJnXOL7Wx6caHRd84qiBcRCLK1051tFBx+Pp9fQfiAVmPvLCm4kodteX9XYK7dZHd0 2YdGcIn1OSpoQxhyKX3dkkG/cANZvh3daDBwHBupR5y43PQyiaJUGuwsf2hxoI+W6tP+bBQcv6en VTZVX+Gw3r2k79itK3dV6vFhftuACDSHfxj+9FkdSnaq3NlqL3rOq2TJqIIkyUAwkMRL3lIpSOMM ZFnI2wXlLwAAAP//AwBQSwECLQAUAAYACAAAACEAtoM4kv4AAADhAQAAEwAAAAAAAAAAAAAAAAAA AAAAW0NvbnRlbnRfVHlwZXNdLnhtbFBLAQItABQABgAIAAAAIQA4/SH/1gAAAJQBAAALAAAAAAAA AAAAAAAAAC8BAABfcmVscy8ucmVsc1BLAQItABQABgAIAAAAIQCYsZW6OgIAACkEAAAOAAAAAAAA AAAAAAAAAC4CAABkcnMvZTJvRG9jLnhtbFBLAQItABQABgAIAAAAIQBTB3Bg3gAAAAkBAAAPAAAA AAAAAAAAAAAAAJQEAABkcnMvZG93bnJldi54bWxQSwUGAAAAAAQABADzAAAAnwUAAAAA " stroked="f">

Описание входных и выходных данных

x – переменная для ввода исходных данных типа real.

y – результат вычисления выражения типа real.

Листинг программы

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.

Постановка задачи

Цель работы: Дано целое положительное число n. Вычислить . n! =... 3! 2!...

Описание алгоритма решения задачи

Описание входных и выходных данных

x –результат вычисления выражения типа real.

n–количество повторений цикла, вводимая пользователем.

Листинг программы

procedure TForm1.Button1Click(Sender: TObject);

var

x,y,n:real;

begin

n:=strtofloat(edit1.text);

x:=1;

y:=2 ;

while y<n+1 do

begin

x:=x+1/y;

y:=y+1;

end;

edit2.text:=floattostrf(x,ffgeneral,1,1);

end;

end.

Задание №4. Массивы

Постановка задачи

Цель работы: Задан массив А(n). Расположить его элементы в обратном порядке.

Не нашли, что искали? Воспользуйтесь поиском по сайту: