Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ процедура до экзамена 6 дней

Автор: trew 20.05.2008 14:32

Program Lab7;
uses crt;
var s,a,b,c,q1,q2,q3,q4:real;
procedure max1(g,h,j:real; var q1:real);

begin
if (a>b) and (a>c) then q1:=a else
if (b>a) and (b>c) then q1:=b else
q1:=c;
end;

procedure min1(g,h,j:real; q2:real );
begin
if (a<b) and (a<c) then q2:=a else
if (b<a) and (b<c) then q2:=b else
q2:=c;
end;

procedure max2(h,j:real;var q3:real);
begin
if (b>c) then q3:=b else
q3:=c;
end;

procedure max3(g,h:real;var q4:real);
begin
if (b>a) then q4:=b else
q4:=a;
end;







begin
clrscr;
writeln ('‚ўҐ¤ЁвҐ §­ зҐ­Ёп ЇҐаҐ¬Ґ­­ле a,b,c');
write ('a = ');
readln (a);
write ('b = ');
readln (b);
write ('c= ');
readln ©;
max1(a,b,c,q1);
min1(a,b,c,q2) ;
max2(b,c,q3) ;
max3(a,b,q4);
write(q1,q2,q3,q4);
s:=(q1+q2)/(q3*q2*q4);
writeln ('‡­ зҐ­ЁҐ дг­ЄжЁЁ = ',s:2:5);
readln;
end.

.

Автор: Michael_Rybak 20.05.2008 14:52

М
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...

Исправляем.


Автор: trew 21.05.2008 8:26

устраивает

Автор: dream-x 21.05.2008 17:40

Цитата(trew @ 21.05.2008 5:26) *

устраивает

Хм... А что условие скрыто? Ты дай конкретно условие а то что ты написал мы посмотрим...

Автор: Айра 21.05.2008 20:39

Да здесь и без условия видно..
Trew, посмотри внимательно на то, что успевает вывести тебе программа (alt+f5, если что) и поймешь, из-за чего возникает ошибка.. Потом посмотри на свой код и найди место, где ты не дописал замечательное слово из трех букв smile.gif

Автор: trew 21.05.2008 21:13

я нашел все решил