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

составить блок схему для данной программы

30.06.2010, 14:53. Показов 614. Ответов 2
Метки нет (Все метки)

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
34
uses crt;
const n=5;
var a:array[1..n,1..n] of integer;
    i,j:byte;
    s:integer;
begin
clrscr;
randomize;
writeln('Исходная матрица:');
s:=0;
for i:=1 to n do
 begin
   for j:=1 to n do
    begin
     a[i,j]:=random(20)-5;
     write(a[i,j]:4);
     if i=1 then s:=s+a[i,j];
    end;
   writeln;
 end;
writeln('Сумма в первой строке=',s);
writeln;
writeln('Замена отрицательных суммой::');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if a[i,j]<0 then a[i,j]:=s;
    write(a[i,j]:4);
   end;
  writeln;
 end;
readln
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.06.2010, 14:53
Ответы с готовыми решениями:

Составить блок схему для программы
Var S:real; A:real; begin while s&lt;=100 do begin writeln('enter chislo'); readln(a); if a&gt; 0...

Составить блок схему для заданной программы
Program Lab_9; Var I,N,X:Integer; P,T,U,J:Real; Begin Writeln('Введите N'); Readln(N);...

Составить блок схему для текста программы Pascal
Ввести одномерный массив A, вывести его. Найти в массиве минимум и часть до минимального элемента...

Составить блок схему для текста программы Pascal
Ввести двумерный массив A2×5. Определить в нём среднее геометрическое модулей отрицательных...

2
843 / 82 / 7
Регистрация: 06.12.2009
Сообщений: 331
30.06.2010, 17:11 2
скачай себе любую программу-построитель блок-схем и он без проблем тебе её построит. Их уже столько развелось...
1
14 / 14 / 5
Регистрация: 24.06.2010
Сообщений: 29
30.06.2010, 19:07 3
Вот держите...
Вложения
Тип файла: doc Doc1.doc (68.0 Кб, 30 просмотров)
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.06.2010, 19:07

Составить блок схему для текста программы Pascal
Ввести двумерный массив AN×M. Каждую вторую строку в массиве заменить остатками от деления её...

Составить блок схему для текста программы Pascal
Ввести целочисленный двумерный массив AN×M, вывести его. Найти сумму его чётных элементов,...

Составить блок-схему по коду программы.
Блок схема для этой проги оч нужна Вычислить элементы массива а,i,j=1,...,n, по заданному...

Составить блок-схему по заданному фрагменту программы
блок схема нужна IF a=0 THEN Begin X:=l; Y:=l; End ELSE Begin X:=2; Y:=2;


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru