Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Лейф
25 / 25 / 1
Регистрация: 08.02.2010
Сообщений: 139
#1

Блок-схема - Turbo Pascal

28.09.2010, 13:58. Просмотров 406. Ответов 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
34
35
36
37
38
39
40
41
42
43
44
45
46
Program Peremnozhenie;
 var
  x, y, z: array [1..20, 1..20] of integer;
  n1, m1, n2, m2: integer;
  i,j,k: integer;
  s: integer;
 begin
  writeln('vv-te kol strok pervoj matricy');
  readln(n1);
  writeln('vv-te kol stolbcov pervoj matricy');
  readln(m1);
  writeln('vv-te poocheredno elem pervoj matricy');
    for i:=1 to n1 do
      for j:=1 to m1 do
       begin
        write('x[',i,',',j,'] =');
        readln(x[i,j]);
       end;
  writeln('chislo strok vtoroj matrcy = chislu stolbcov vtoroj matricy');
  n2:=m1;
  write('kol stolbcov vtoroj matricy');
  readln(m2);
  writeln('vv-te poochered elem vtoroj matricy');
   for i:=1 to n2 do
    for j:=1 to m2 do
     begin
     write('y[',i,',',j,'] =');
     readln(y[i,j]);
     end;
  for i:=1 to n1 do
   for j:=1 to m2 do
    begin
     s:=0;
      for k:=1 to n2 do
       s:=s+x[i,k]*y[k,j];
       z[i,j]:=s;
    end;
  writeln;
  writeln('poluch matrica');
  for i:=1 to n1 do
   begin
    for j:=1 to m2 do
     write(z[i,j]:5);
     writeln;
   end;
 end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.09.2010, 13:58
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Блок-схема (Turbo Pascal):

Блок-Схема
А как к этой задаче построить блок схему покажите ПОЖАЛУЙСТА Program lab;...

Блок-Схема
Как будет виглядить блок-схема к этой задаче Program lab; uses crt; Const...

Блок-Схема
Какая будет блок-схема к этой задаче :) Program lab; uses crt; Const...

Блок-схема
Помогите составить блок-схему для задачи: найти минимальный среди свех...

Блок-схема
program 34; uses crt; const nmax=10; var a:array of real; ...

блок схема
При здачи работы сказали что нужно блок схему переделать ...как я понял функцию...

1
darkpalladin
2 / 2 / 2
Регистрация: 14.07.2010
Сообщений: 12
28.09.2010, 14:12 #2
По моему существует программа для создания блок-схем по коду.....советую погуглить..... или просто разберитесь с блок схемами!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.09.2010, 14:12
Привет! Вот еще темы с решениями:

Блок схема
program pp; uses crt; var d,s,max,i,j:integer; mas:array of integer; b:array...

Блок-схема
Прошу помощи у программистов в разработке блок схемы! Заранее спасибо! ...

Блок схема
const n=15; var a,b:arrayof integer; i,max,min,imax,imin,sr,k,ind:integer;...

блок-схема
нужна блок-схема: uses crt; var s:string; i,p:byte; begin clrscr;...


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

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

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