Eugen20 | Дата: Четверг, 05.12.2013, 21:14 | Сообщение # 1 |
Рядовой
Группа: Пользователи
Сообщений: 2
Статус: Offline
| Program laba4; uses crt; const n=50; type mas=array[1..n] of real; procedure massiv(var a:mas;k:real;c:char); var i:byte; begin writeln('Массив ',c); for i:=1 to n do begin a[i]:=k+9*random; write(a[i]:5:1); end; writeln; end; procedure summa(a,b:mas;var c:mas;s:string); var i:byte; begin writeln(s); for i:=1 to n do begin c[i]:=a[i]+b[i]; write(c[i]:5:1) end; writeln end; function max(a:mas):real; var i:byte; mx:real; begin mx:=a[1]; for i:=2 to n do if a[i]>mx then mx:=a[i]; max:=mx end; function min(a:mas):real; var i:byte; mn:real; begin mn:=a[1]; for i:=2 to n do if a[i]<mn then mn:=a[i]; min:=mn end; var a,b,c,d:mas; t:real; begin clrscr; randomize; massiv(a,9,'A');{массив А от 9 до 18} writeln('Минимум=',min(a):0:1,' максимум=',max(a):0:1); massiv(b,0.5,'B');{массив В от 0.5 до 9.5} writeln('Минимум=',min(b):0:1,' максимум=',max(b):0:1); massiv(c,0,'C');{массив С от 0 до 9} writeln('Минимум=',min(c):0:1,' максимум=',max(c):0:1); summa(b,c,d,'Массив B+C'); writeln('Минимум=',min(d):0:1,' максимум=',max(d):0:1); if min(a)<max(b) then t:=min(b)/max(a)+max(c)/min(d) else t:=max(d)+min(c); write('t=',t:0:1); readln end.
|
|
| |
diamFC | Дата: Пятница, 06.12.2013, 00:06 | Сообщение # 2 |
Полковник
Группа: Администраторы
Сообщений: 207
Статус: Offline
| Вот блок схема. В архиве все функции.
|
|
| |