IPB
ЛогинПароль:

 
 Ответить  Открыть новую тему 
> блок- схема программы, помогите составить пожалуйста по тексту прпограммы блок- схему...
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 2
Пол: Мужской
Реальное имя: wiktor

Репутация: -  0  +


помогите составить пожалуйста по тексту программы блок- схему..
Вот программа:

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

program mas;
uses crt;
var
n, m, i, j, null, pol, otr:integer;
x:array[1..100,1..100] of integer;
begin
clrscr;
randomize;
write('Ввести число строк --> '); readln(n);
write('Ввести число столбцов --> '); readln(m);
writeln('Исходная матрица :');
writeln('-----------------------');
for i:=1 to n do begin
for j:=1 to m do begin
x[i,j]:=random(100)-50;
write(x[i,j]:4);
end;
writeln; end;
null:=0; pol:=0; otr:=0;
for i :=1 to m do
for j:= 1 to n do
begin
if (x[ i , j ] = 0) then
null:= null + 1
else
if (x[ i , j ] > 0) then
pol:= pol + 1
else
otr:= otr + 1;
end;
writeln('null= ',null,' pol= ',pol,' otr= ',otr);
writeln('konec');
readln;
end.

Сообщение отредактировано: wiktormad -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 24.05.2018 7:05
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"