29.01.2010, 00:21
|
|
Новичок
Регистрация: 16.12.2009
Сообщений: 29
Провел на форуме:
101927
Репутация:
0
|
|
Спасибо.
Написал, но теперь появились ошибки, а исправить не получается. Помогите пожалуйста. Кто поможет киньте в пм свой WMR. Немного отблагодарю.
Вот код:
PHP код:
program MAX_ZAMEN;
{$APPTYPE CONSOLE}
uses
SysUtils;
const n=3;
var
b:array[1..n,1..n] of real;
I,j:integer;
max,mm,a,pr:integer;
label prog1,prog2,prog3;
// OPISANIE PROGRAM 2
const
n2=10;
type
ar=array[1..n2] of real;
var
c2:array [1..10] of real ;
a2,b2:array [1..5] of real;
i2:integer;
//---- end ---
BEGIN
Writeln('Press 1 to run program 1, Press 2 to run program 2. Press 3 for exit');
read(pr);
if pr=1 then goto prog1;
if pr=2 then goto prog2;
if pr=3 then goto prog3 ;
prog1:
begin
writeln('введите значения элементов матрицы по строкам');
writeln('в конце каждой строки нажимайте Enter');
for i:=1 to n do
begin
for j:=1 to n do read(b[i,j]);
readln;
end;
write('Значение A -> ');
readln(a);
mm:=1;
for i:=1 to n do
begin
max:=1;
for j:=2 to n do
if b[i,max] < b[i,j] then max:=j;
writeln(i,'-я строка = ',max[i,max]:0:4);
if mm<max then mm:=i;
end;
for j:=1 to n do b[mm,j]:=a;
writeln('Преобразованная матрица');
for i:=1 to n do
begin
for j:=1 to n do write(b[i,j]:0:4,' ');
writeln;
end;
readln;
end;
prog2:
Begin
Writeln('vvedite',n2,'veschestvenyu elementov');
for i2:=1 to 5 do begin
readln(A2[i2]);
readln(B2[i2]);
end;
for i2:=1 to 10 do
if (i2 mod 2=0) then
c2[i2]:=B2[i2];
for i2:=1 to 10 do
writeln(C2[i2]);
READLN;
readln;
prog3:
end;
end.
|
|
|