Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
2 / 2 / 1
Регистрация: 20.12.2013
Сообщений: 100
1

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

06.06.2014, 23:16. Просмотров 302. Ответов 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
35
36
37
38
39
40
Const n=2;
Type matr=array[1..n,1..n] of real;
Var A,B,C:matr;
    i,j,m:integer;
Procedure PowerMatr(A,B:matr;Var C:matr;n:byte);
Var i,j,k,r:byte;
Begin
    For i:=1 to n do
     For j:=1 to n do
      C[i,j]:=0;
    For k:=1 to n do
     For i:=1 to n do
      For j:=1 to n do
       C[k,i]:=C[k,i]+A[i,j]*B[j,k];
End;
Begin
    writeln('Исходная матрица');
    For i:=1 to n do
    Begin
      For j:=1 to n do
      Begin
        write('A[',i,j,']= '); readln(A[i,j]);
      End;
      writeln;
    End;
    Repeat
     write('Степень: ');readln(m);
    Until m>1;
    PowerMatr(A,A,C,n);
    For i:=1 to m-2 do
     PowerMatr(A,C,C,n);
    writeln('Полученная матрица');
    For i:=1 to n do
    Begin
      For j:=1 to n do
       write(C[i,j]:8:2);
      writeln;
    End;
    readln;
End.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.06.2014, 23:16
Ответы с готовыми решениями:

Составить блок-схему к программе
Program kursovaya; const n = 12; m = 12; k1 = -50; k2 = 50; type matr = array of integer; ...

Составить блок схему к программе
Дан одномерный массив Х(N) (N<=60). На место отрицательных элементов массива записать среднее...

Составить блок схему к программе
Затрудняюсь составить блок схему, помогите плз Uses crt; Const n=15; Var x,y,z: Array of...

Составить блок-схему по программе
составить блок схему по программе Program N_2; uses crt; const n = 15; var x :...

2
CAPITAL OF ROCK!
1280 / 707 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
07.06.2014, 10:22 2
как-то так...
1
Миниатюры
Составить блок схему по программе   Составить блок схему по программе  
0 / 0 / 2
Регистрация: 07.06.2014
Сообщений: 27
07.06.2014, 10:26 3
PC Editor тебе в помощь
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.06.2014, 10:26

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Составить блок-схему к программе
y=sin(cos(x+3)), y>0. Найти колличество значений х при которых y>0 Нужно сделать блок схему!!!

Составить блок схему по программе
Текст задачи: Зашифровать строку 121-го символа в матрицу 11 х 11 по спирали, строку считывать из...

Составить блок-схему к программе:
uses crt; var i:integer; s:integer; begin clrscr; for i:=1 to 100 do begin if i mod 2...

По программе составить блок-схему
program pr1; uses crt; Var t: text; m, z1, z2, d1, d2, y, a, db1, db2, aw, bw, da1,...


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

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

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