Delphi-Help

  • Increase font size
  • Default font size
  • Decrease font size
Главная Статьи Массивы Задача 245 на Pascal

Задача 245 на Pascal

Оцените материал
(1 Голосовать)

Задача 245 на Pascal

Дан вектор X[6] и число Y. Переменной A присвоить значение 1, если значение хотя бы одной компоненты xi равно числу Y, и значение 0 в противном случае.

var
i,Y,A:integer;
X:array[1..6]of integer;
BEGIN
randomize;
for i:=1 to 6 do X[i]:=random(15);    {загружаем вектор числами   }
 
write('Вектор X[');                   {выводим на экран           }
for i:=1 to 6-1 do write(X[i],'; ');
writeln(X[6],']');
write('Введите число Y=');
readln(Y);
 
A:=0;
for i:=1 to 6 do if X[i]=Y then A:=1; {выполняем по условию задачи}
writeln('Число A=',A);
readln;
END.

Дана матрица T[4,4] поменять местами 2-й и 4-й столбец местами.

var
i,j,tmp:integer;
T:array[1..4,1..4]of integer;
BEGIN
randomize;
for i:=1 to 4 do
for j:=1 to 4 do T[i,j]:=random(10); {загружаем матрицу     }
 
writeln('Исходная матрица T:');      {выводим на экран      }
for i:=1 to 4 do
begin
 for j:=1 to 4 do write('  ',T[i,j]);
 writeln;
end;
 
for i:=1 to 4 do                     {меняем столбцы местами}
begin
 tmp:=T[i,2];
 T[i,2]:=T[i,4];
 T[i,4]:=tmp;
end;
 
writeln('Матрица T, после обмена 2-го с 4-м столбцом:');
for i:=1 to 4 do                     {выводим на экран}
begin
 for j:=1 to 4 do write('  ',T[i,j]);
 writeln;
end;
readln;
END.
Прочитано 9334 раз
Другие материалы в этой категории: « Задача 244 на Pascal Задача 584 на Pascal »

Авторизация



Счетчики