9 / 9 / 0
Регистрация: 25.05.2011
Сообщений: 41
1

Составить блок схему к готовому коду

25.05.2011, 21:35. Показов 429. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program zadacha;
uses crt;
const n=5; m=10;
  var a:array[1..n,1..m] of integer;
      b:array[1..m] of integer;
      i,j:integer;
begin
 randomize;
 for j:=1 to m do
 for i:=1 to n do
 a[i,j]:=-15+random(31);
 for i:=1 to n do begin
   for j:=1 to m do
   write (a[i,j]:4);
   writeln;
  end;
 writeln; writeln;
for i:=1 to n do
  for j:=1 to m do
    if A[i,j]<0 then B[j]:=B[j]+A[i,j];
for i:=1 to m do write(B[i]:4);
readkey
end.
Добавлено через 25 минут
помогити плиз завтра надо сдать уже )
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.05.2011, 21:35
Ответы с готовыми решениями:

Составить блок схему к готовому коду
Program rabota2; var x,y,z:integer; begin writeln('x='); readln(x); writeln('y=');...

Составить блок схему к готовому коду
Uses crt; const {римские цифры} RomeDigits: array of string = ('I', 'IV', 'V', 'IX',...

Составить блок схему к готовому коду
Вот файл только поменяйте расширение на .pas

Составить блок схему к готовому коду
uses crt; function Visok(n:integer):boolean; begin Visok:=((n mod 100&lt;&gt;0)and(n mod 4=0))or(n mod...

2
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
25.05.2011, 21:45 2
держи
Миниатюры
Составить блок схему к готовому коду  
1
9 / 9 / 0
Регистрация: 25.05.2011
Сообщений: 41
25.05.2011, 21:50  [ТС] 3
большое спасибо ))
0
25.05.2011, 21:50
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.05.2011, 21:50
Помогаю со студенческими работами здесь

Составить блок схему к готовому коду
совершенно не разбираюсь в этих блок-схемах, но код уже есть. для этого кода нужно. спасибо заранее...

Составить блок схему к готовому коду
Я решил задачу, а кто-нибудь с составлением блок-схемы сможет помочь?

Составить блок схему к готовому коду
program lab1; uses crt; var a,n,p,j:integer; begin readln(a,n); if a&lt;&gt;n then begin ...

Составить блок схему к готовому коду
помогите составить бло схему const t='text.txt'; var f:text; st: string; begin ...


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

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

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