![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
trew |
![]()
Сообщение
#1
|
![]() Пионер в программировании ![]() ![]() Группа: Пользователи Сообщений: 66 Пол: Мужской Репутация: ![]() ![]() ![]() |
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 (c);
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.
.Сообщение отредактировано: trew - 21.05.2008 4:25 |
![]() ![]() |
![]() |
Текстовая версия | 28.07.2025 3:39 |