|
|
Даны действительные числа a, b, c.
Даны действительные числа a, b, c. Получить:
Вычисление max оформить в виде функции.
Uses Crt, Graph;
Procedure Init;
var GD,GM:Integer;
begin
DetectGraph(GD,GM);
Initgraph(GD,GM,'');
if GraphResult<>Grok then begin
WriteLn(GraphErrorMsg(GD));
If GD=GrFileNotFound then begin
WriteLn('Ошибка инициализации графики...');
end;
WriteLn('Нажмите ввод');
ReadLn;
Halt(1);
end;
end;
Procedure Zastavka;
var x,y:Integer;
begin
x:=GetMaxX;
y:=GetMaxY;
SetFillStyle(10,1);
Bar(0,0,x,y);
settextstyle(1,0,3);
SetColor(4);
outtextxy(240,50,'КГАЦМиЗ');
settextstyle(1,0,2);
SetColor(10);
outtextxy(400,100,'Кафедра ПМиАСУ');
SetColor(11);
settextstyle(1,0,7);
outtextxy(50,180,'Курсовая работа');
outtextxy(51,180,'Курсовая работа');
SetColor(14);
settextstyle(1,0,3);
outtextxy(30,300,'Разработал: Руководитель:');
outtextxy(30,325,'студент гр.МК-99-1 преподаватель');
outtextxy(30,350,'Кучинский Н.В Солопко И.В.');
repeat until keypressed;
end;
Procedure Zadanie;
begin
ClearDevice;
setcolor(9);
settextstyle(1,0,3);
SetFillStyle(10,1);
Bar(0,0,Getmaxx,GetmaxY);
OuttextXY(50,50,'Даны действительные числа a, b, c. Получить:');
OuttextXY(180,150,'max(a,a+b)+max(a,b+c)');
Line(180,190,450,190);
OuttextXY(200,200,'1+max(a+bc,1.15)');
OuttextXY(50,300,'Вычисление max оформить в виде функции.');
repeat until keypressed;
end;
Function max(a,b:real):Real;
begin
if b<=a then max:=a;
if a<=b then max:=b;
end;
Procedure result;
Var a,b,c,s: Real;
begin
CloseGraph;
Write('Введите значение a, a=');
Readln(a);Writeln;
Write('Введите значение b, b=');
Readln(b); Writeln;
Write('Введите значение c, c=');
Readln©;Writeln;Writeln;
s:=(max(a,a+b)+max(a,b+c))/(1+max(a+b*c,1.15));
Write('Результат вычислений ',s:6:3);
repeat until keypressed;
Init;
end;
Procedure Menu;
Label 1,2;
Const m: array[1..4] of string=
('Заставка',
'Задание',
'Решение',
'Выход');
Var k,i: Integer;
Ch:Char;
begin
2:Ch:= readkey;
if ch=#0 then ch:=readkey;
ClearDevice;
SetFillStyle(10,1);
Bar(0,0,Getmaxx,GetmaxY);
Settextstyle(0,0,0);
Outtextxy(120,450,'Клавишами , выберите пункт меню и нажмите Enter');
Settextstyle(1,0,4);k:=1;
1:for i:=1 to 4 do
begin
SetColor(15);
outtextxy(220,50+i*60,m[i]);
outtextxy(221,51+i*60,m[i]);
end;
case k of
1:begin
SetColor(9);
outtextxy(221,51+k*60,m[k]);
end;
2:begin
SetColor(9);
outtextxy(221,51+k*60,m[k]);
end;
3:begin
SetColor(9);
outtextxy(221,51+k*60,m[k]);
end;
4:begin
SetColor(9);
outtextxy(221,51+k*60,m[k]);
end;
end;
repeat
ch:=ReadKey;
if ch=#0 then ch:=ReadKey;
if ch=#72 then begin
if k=1 then k:=4
else k:=k-1;
goto 1
end;
if ch=#80 then begin
if k=4 then k:=1
else k:=k+1;
goto 1
end;
until ch=#13;
case k of
1:begin
Zastavka;
goto 2;
end;
2:Begin
Zadanie;
Goto 2;
end;
3:begin
Result;
goto 2;
end;
4:begin
Closegraph;
end
end
end;
begin
Init;
Zastavka;
Menu;
end.
|
| Категория: Практика | Добавил: nazgull (09.02.2012)
|
| Просмотров: 3234
| Теги:
| Рейтинг: 0.0/0 |
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ] |
|