Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
katia
0 / 0 / 0
Регистрация: 15.05.2009
Сообщений: 4
#1

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

15.05.2009, 19:56. Просмотров 481. Ответов 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):

блок-схема МАССИВЫ
помогите пож-ста сделать блок схему из за 2 задач отчёт не получится сдать...

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

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

Блок-схема
Привет всем! Если кто может пожалуйста нарисуйте блок схему по моему коду ...

Блок схема
var a:array of integer; i,max:integer; begin randomize; for i:=1...

блок-схема
Помогите пожалуйста составить блок-схему :** program Variant7; Const n=2;...

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

Блок-схема
program test; uses crt; const n=5; type Tarr=array of integer; procedure...

блок-схема
program fibnachi; uses crt; var n, a, b, c, s :integer; begin clrscr;...

Блок-схема
Сделать бок-схему к программе. Program lab: Const M=5, N=4;...

Блок схема
Очень прошу!Помогите составить блок схему процедуры.Вот код. procedure...


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

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

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