Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
katia
0 / 0 / 0
Регистрация: 15.05.2009
Сообщений: 4
#1

Массивы, блок-схема - Pascal

15.05.2009, 19:56. Просмотров 473. Ответов 0
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
program nom_51;
uses crt;
var
A: array [1..7,1..7] of integer;
i,j,vih:integer;
begin;
clrscr;
randomize;
write('Ishodnii massiv A: ');
writeln('');
for i:=1 to 7 do
 for j:=1 to 7 do
  A[i][j]:=random(20);
for i:=1 to 7 do
 begin
 for j:=1 to 7 do
 write (A[i][j],' ');
 writeln;
 end;
vih:=1;
for i:=1 to 7 do
for j:=1 to 7 do
if ((A[i][j]=A[j][i]) and (vih<>0)) then vih:=1 else vih:=0;
if vih=0 then writeln('ne simmetrichnaya') else writeln('simmetrichnaya');
readkey;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.05.2009, 19:56
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Массивы, блок-схема (Pascal):

блок-схема (массивы) - Pascal
Для заданной квадратной матрицы С вычислить сумму и число элементов матрицы, находящихся под главной диагональю. Исходную матрицу вывести в...

блок-схема МАССИВЫ - Pascal
помогите пож-ста сделать блок схему из за 2 задач отчёт не получится сдать ..вот одна из них const n=4; var a,b:array of integer; ...

Одномерные массивы (блок-схема, псевдокод) - Pascal
Здравствуйте! Помогите пожалуйста написать блок-схему и псевдокод к программе, которая вводит с клавиатуры одномерный массив из 5 целых...

Блок схема - Pascal
Помогите пожалуйста построить по данной программе блок схему. Program ferz; uses crt; const desksize=8; type...

Блок схема - Pascal
Нужно составить блок-схему к задаче Program labrab17; uses crt; type dan=record fam:string; ...

Блок-схема - Pascal
program m1_z1; uses crt; var s:string; a:char; n:integer; BEGIN write ('vvedit ryadok:'); readln (s); write...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.05.2009, 19:56
Привет! Вот еще темы с ответами:

Блок-схема - Pascal
Помогите сделать блок схему к етой задаче. После окончания футбольного сезону в конце таблици, имея различные количества очков, оказались...

Блок схема - Pascal
uses crt; type sprav=record fio:string; end; type adres=record street:string; dom,kv:integer; ...

Блок схема - Pascal
var a:array of integer; i,max:integer; begin randomize; for i:=1 to 20 do begin a:=random(51); if i=1...

Блок-схема - Pascal
Нарисуйте пож блок схему к готовой задаче! uses crt; const max=20; type mas=array of integer; matr=array of mas; function...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.