Меню сайта
Форма входа
Категории раздела
Учебник по Паскалю [13] Практика [23]
примеры программ
Главная » Статьи » Pascal » Практика

Даны действительные числа 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)
Просмотров: 3171 | Теги: Даны действительные числа прммеры, Даны действительные числа паскаль, Даны действительные числа, Даны действительные числа код | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Ссылки