varhammer
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
RedMac
Можешь переписать плиз эту прогу в Си++я те буду очень обязан))) Просто времени не хватает
CONST nmax=3;
c1=-1.2;
c2=4.7;
TYPE matr=array[1..nmax,1..nmax] of real;
VAR a:matr;
i,j:byte;
max,sum:real;
f:boolean;
BEGIN
{---------------------------------------------}
{vvod matritsy}
for i:=1 to nmax do
for j:=1 to nmax do begin
write('a[',i,',',j,']=');
readln(a[i,j])
end;
{---------------------------------------------}
{zadanie 1 (zamena)}
j:=1;
for i:=1 to nmax do begin
a[i,j]:=abs(a[i,j]);
inc(j)
end;
{---------------------------------------------}
{zadanie 2 (max element)}
i:=2;
max:=c1;
for j:=1 to nmax do
if (a[i,j]<=c2) and (a[i,j]>=max) then begin
max:=a[i,j];
f:=true
end;
{---------------------------------------------}
{zadanie 3 (summa)}
i:=1;
for j:=1 to nmax do
sum:=sum+1/a[i,j];
{---------------------------------------------}
{vyvod matritsy}
writeln;
writeln;
for i:=1 to nmax do begin
for j:=1 to nmax do
write(a[i,j]:9:2);
writeln
end;
writeln;
{vyvod max elementa}
if f then writeln('max=',max:0:3)
else writeln('nelzya naiti max');
writeln;
{vyvod summy}
writeln('sum=',sum:0:3);
readln
END.
|
Всего записей: 4 | Зарегистр. 12-11-2008 | Отправлено: 19:08 12-11-2008 | Исправлено: varhammer, 19:10 12-11-2008 |
|
