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

составьте блок-схему по программе пожалуйста)

25.12.2012, 21:21. Просмотров 303. Ответов 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
TYPE MAT=ARRAY [1..20,1..20] OF REAL;
VEC=ARRAY [1..20] OF REAL;
VAR A:MAT;
X:VEC;
I,N:INTEGER;
S:REAL;
PROCEDURE MATR(N:INTEGER; VAR A:MAT);
VAR I,J:INTEGER;
BEGIN FOR I:=1 TO N DO
FOR J:=1 TO N+1 DO BEGIN
WRITE('A',I:2,j:2,'?') ; READLN(A[ I,J])
END
end;
procedure gauss(n: integer ; var a:mat;var x:vec;Var s:real);
VAR I,J,K,L,K1,N1:INTEGER; R: REAL;
BEGIN N1:=N+1;
FOR K:= 1 TO N DO BEGIN K1:=K+1; S:=A[K,K]; J:=K;
FOR I:=K1 TO N DO BEGIN R:=A[I,K];
IF ABS(R)>ABS(S) THEN BEGIN S:=R; J:=I END
END;
IF S=0.0 THEN EXIT;
IF J<>K THEN FOR I:=K TO N1 DO BEGIN
R:=A[K,I]; A[K,I]:=A[J,I]; A[J,I]:=R END;
FOR J:=K1 TO N1 DO A[K,J]:=A[K,J]/S;
FOR I:=K1 TO N DO BEGIN R:=A[I,K];
FOR J:=K1 TO N1 DO A[I,J]:=A[I,J]-A[K,J]*R
END
end;
IF S<>0.0 THEN
FOR I:=N DOWNTO 1 DO BEGIN S:=A[I,N1];
FOR J:=I+1 TO N DO S:=S-A[I,J]*X[J];
X[I]:=S
END
END;
BEGIN
REPEAT WRITE ('N') ; READLN(N); MATR(N,A); GAUSS (N, A, X , S);
IF S<>0.0 THEN FOR I:=1 TO N DO WRITELN ('X' , I:2, ' = ' , X[I])
ELSE WRITELN('DET=0')
UNTIL FALSE
END.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.12.2012, 21:21
Ответы с готовыми решениями:

Составьте блок-схему по готовой программе
составить блок схему)))помогите IF a=b THEN z:=a+b ELSE Begin ...

Составьте блок-схему по готовой программе
Составьте блок-схему по готовой программе. PROGRAM summa; VAR A,S:REAL; ...

Составьте блок схему к программе, выбирающей число
Составьте блок схему к программе, выбирающую из трех чисел то которое больше...

Составьте блок схему программы
Население города N увеличивается на 3% ежегодно. В текущем году оно составляет...

составьте блок-схему по этим данным)))
Помогите,пожалуйста,составить блок-схему для этой задачи.Буду очень...

1
CodeR
Фрилансер
3381 / 2782 / 3000
Регистрация: 08.02.2012
Сообщений: 6,718
Записей в блоге: 1
26.12.2012, 10:06 2
........
0
Миниатюры
составьте блок-схему по программе пожалуйста)   составьте блок-схему по программе пожалуйста)  
Изображения
 
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.12.2012, 10:06

Составьте блок-схему быстрой сортировки
Составьте блок-схему быстрой сортировки ПОЖАЛУЙСТА!

Составьте блок-схему метода пузырька
Пожалуйста, составьте блок-схему метода внутренней сортировки (метода...

Пожалуйста, составьте блок-схемы
program zadanie1; const n=10; var A: array of integer; ...


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

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

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