| 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
| Вот блок схема. В архиве все функции.
|
| |
| |
Программа для построения БЛОК-СХЕМ!!!
