Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Лейф
25 / 25 / 0
Регистрация: 08.02.2010
Сообщений: 139
#1

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

28.09.2010, 13:58. Просмотров 397. Ответов 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):

Блок схема - Turbo Pascal
помогите с блок схемой program zadacha; uses crt; var st,st1:string; l,n,i,j:byte; begin clrscr; writeln('Vvedite stroky');...

Блок схема(( - Turbo Pascal
Program lab11; uses crt; var a:real; k:integer; begin clrscr; writeln(' Введите вещественные числа, окончание ввода 0:...

Блок-схема - Turbo Pascal
Добрый вечер! Прошу очень составить блок-схему на данную программу: Program zadanie; Var m: real; n: integer; Begin Write ('...

Блок схема - Turbo Pascal
Помогите плз, срочно надо. Program praktika3; Uses Crt; Type StFio=string; StAdres=string; StJou=string; RecBook=record ...

Блок-схема - Turbo Pascal
Program NATCHISL; uses crt; var p: real; i: byte; begin clrscr; p:=1; for i:=2 to 11 do if odd(i) then p:=p*i; writeln...

Блок-схема - Turbo Pascal
сделайте пожалуйста блок-схему к этой программе: var n,i:integer;p:longint; begin readln(n); p:=1; if (n=0)or(n=1) then...

1
darkpalladin
2 / 2 / 1
Регистрация: 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
Привет! Вот еще темы с ответами:

Блок-схема - Turbo Pascal
Помогите нарисовать блок-схему по составленной программе!!! Program matrixx; Const k=10; Type matrix= Array of integer; ...

блок схема - Turbo Pascal
uses crt; var n:longint; c,k:byte; m:set of byte; begin clrscr; write('n='); readln(n); m:=; k:=0;

Блок схема - Turbo Pascal
помогите с блок схемой program oaip_L6A; type TYacht=record displacement: real; port:string; mast:integer; ...

Блок Схема - Turbo Pascal
народ помогите пожалуйста делать блок схему на эти программу uses crt,graph; procedure linia(var x1,y1,x2,y2:longint;var u:real); ...


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

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

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