Программа на Turbo Pascal

15 ноября 2009

Program LogVectorB;

(*======================================

Составить программу построения по прямоугольной вещественной матрице

A={a[i,j]}, I=i,n , J=j,m логического вектора B={b[i]}, I=i,n , где B[i]

имеет значение TRUE , если наибольший элемент в строке с номером I матрицы A

не больше заданного значения X , и значение FALSE — в противном случае.

======================================*)

uses crt;

VAR  A:array[1..10,1..15] of integer;

B:array[1..10] of string[40];

T,F: string[40];

i,j,x,k: integer;

BEGIN

textcolor(14);

randomize;

for i:=1 to 10 do

for j:=1 to 15 do

A[i,j]:=random(50);

clrscr;

writeln (‘Матрица A’);

for i:=1 to 10 do

begin

for j:=1 to 15 do

write (A[i,j]:5);

writeln;

end;

write (‘Задайте значение X = ‘);

readln (x);

T:=’TRUE’;

F:=’FALSE’;

for i:=1 to 10 do

begin

K:=0;

for j:=1 to 15 do

begin

if a[i,j]>x then begin b[i]:=F; k:=1; end;

end;

if k=0 then  begin b[i]:=T; end;

end;

writeln(‘Вектор В’);

for i:=1 to 10 do

write(b[i],’ ‘);

readln;

END.

RSS-комментарии

Оставьте свой отзыв

Подписаться, не комментируя