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

Блок-схема

13.01.2014, 21:21. Показов 498. Ответов 1
Метки нет (Все метки)

нужно составить блок схему по этому коду
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
27
28
29
30
31
32
33
program mas;
var A:array[1..100,1..100] of integer; {переменная массива}
 i,j,n:integer; {переменные для циклов}
 s,kol:integer; {переменные суммы и кол-ва}
begin
 write ('Введем размер массива А');
 readln (n); {считываем размер массива}
 for i:=1 to n do
 for j:=1 to n do begin
 write ('A[',i,',',j,']='); 
 readln (A[i,j]); 
end; {считываем сам массив}
 write ('Введенный массив А=');
 for i:=1 to n do 
begin 
 writeln;
 for j:=1 to n do 
 write (A[i,j]:3,' '); {выводим массив на экран}
end; 
 s:=0; 
 kol:=0; {сумме и кол-ву присваиваем изначально нули}
 for i:=1 to n do
 for j:=1 to n do {циклами проходим по матрице}
 if (A[i,j]>0) and (i<j) then {прописываем условия положительные и выше диагонали}
begin 
 inc(kol); 
 s:=s+A[i,j]; 
end; {сумму и кол-во  увеличиваем}
 writeln;
 writeln('Сумма= ',s); {выводим на экран сумму}
writeln('Количество= ',kol);{выводим на экран кол-во}
 readln;
end.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.01.2014, 21:21
Ответы с готовыми решениями:

Блок-схема
Доброго времени суток, кто-нибудь, помогите с блок-схемой к программе, очень срочно! Заранее...

Блок-схема
Если не сложно, то составьте пожалуста блок - схему к этой программе(можно даже в Paint) Program...

блок схема!!!
Ни разу не чертил блок схема графики паскаль!!! прошу помочь начертить блок схему =) uses...

Блок-схема
Здраствуйте.... Извините за такую просьбу ну кто сможет нарисовать блок схему этого большого...

1
3020 / 1908 / 1647
Регистрация: 30.04.2011
Сообщений: 3,054
13.01.2014, 21:54 2
Блок-схема
0
Миниатюры
Блок-схема  
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.01.2014, 21:54

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

блок схема
Есть 4 задачи по всем нада блок схему составить помогте срочно, а то башка уже не варит: uses crt;...

Блок схема.
Помогите пожалуйста сделать блок-схемы.

блок-схема
решить относитьльно х блок-схему:1 (ax+b)/(cx+d)=0 блок-схему:2: (ax+b)/(cx+d)&gt;0

Блок-схема
program uporyadochivanie; uses crt; var a:array of integer; i,prom,j,n,k:integer; begin ...


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

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

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