Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
1 / 1 / 0
Регистрация: 25.12.2010
Сообщений: 61
1

Блоксхемы оч оч нада!=((

19.05.2011, 21:24. Показов 574. Ответов 11
Метки нет (Все метки)

Пожалуста ПОЖАЛУСТО! можете ктонить зделать блоксхемы на 2 этих программы
1 НОК двух чисел
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
function gcd (a,b:integer) :integer;
var swapp:integer;
begin
clrscr;
while b<>0 do
begin
a:=a mod b;
swapp:=a; a:=b; b:=swapp;
end;
gcd:=a;
end;
var nok,a,b:integer;
begin
clrscr;
writeln ('vvedite A i B');
read(a,b);
nok:=gcd(a,b);
writeln('Naimenshee Obshee kratnoe =',nok);
end.
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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
uses crt;
var
exit:string;
        a,n,pr:array [1..3,1..3] of integer;
        h,k,g,i,l,j,d:integer;
        b,xc,x:array [1..3] of real;
begin
clrscr;
{-----------------------------------------------------}
        writeln('vvedite matrichnoe yrovnenie');
        for i:= 1 to 3 do
                for j:= 1 to 3 do
                readln(A[i,j]);
 
{-----------------------------------------------------}
        writeln('matrica:=');
 
        for i:= 1 to 3 do
        begin
                for j:= 1 to 3 do
                write(a[i,j]:4);
                writeln(' ');
        end;
{-----------------------------------------------------}
        writeln('vvedite B');
 
        for j:= 1 to 3 do
                read(b[j]);
{-----------------------------------------------------}
        G:=A[1,1]*A[2,2]*A[3,3]+A[1,2]*A[2,3]*A[3,1]+A[2,1]*A[3,2]*A[1,3]-A[1,3]*A[2,2]*A[3,1]-A[1,2]*A[2,1]*A[3,3];
        H:=A[2,3]*A[3,2]*A[1,1];
        D:=G-H;
        writeln('opredelitel:=',D);
{-----------------------------------------------------}
        writeln('algebroicheskie dopolneniya:=');
 
        n[1,1]:=a[2,2]*a[3,3]-a[2,3]*a[3,2];
        writeln('a1.1=',n[1,1]);
        writeln;
 
        n[1,2]:=(a[2,1]*a[3,3]-a[2,3]*a[3,1])*(-1);
        writeln('a1.2=',n[1,2]);
        writeln;
 
        n[1,3]:=a[2,1]*a[3,2]-a[2,2]*a[3,1];
        writeln('a1.3=',n[1,3]);
        writeln;
 
        n[2,1]:=(a[1,2]*a[3,3]-a[1,3]*a[3,2])*(-1);
        writeln('a2.1=',n[2,1]);
        writeln;
 
        n[2,2]:=a[1,1]*a[3,3]-a[1,3]*a[3,1];
        writeln('a2.2=',n[2,2]);
        writeln;
 
        n[2,3]:=(a[1,1]*a[3,2]-a[1,2]*a[3,1])*(-1);
        writeln('a2.3=',n[2,3]);
        writeln;
 
        n[3,1]:=a[1,2]*a[2,3]-a[1,3]*a[2,2];
        writeln('a3.1=',n[3,1]);
        writeln;
 
        n[3,2]:=(a[1,1]*a[2,3]-a[1,3]*a[2,1])*(-1);
        writeln('a3.2=',n[3,2]);
        writeln;
 
        n[3,3]:=a[1,1]*a[2,2]-a[1,2]*a[2,1];
        writeln('a3.3=',n[3,3]);
        writeln;
{-----------------------------------------------------}
 
        writeln('matrica a=');
 
        for i:=1 to 3 do
                begin
                        for j:=1 to 3 do
                        write(' ',n[i,j]);
                        writeln;
                end;
{-----------------------------------------------------}
        for i:=1 to 3 do
                for j:=i+1 to 3 do
                        begin
                                k:=n[i,j];
                                n[i,j]:=n[j,i];
                                n[j,i]:=k;
                        end;
{-----------------------------------------------------}
        writeln('transponiruem matrixy=');
 
        for i:= 1 to 3 do
                begin
                        for j:= 1 to 3 do
                                write(' ',n[i,j]);
                                writeln(' ');
                end;
{-----------------------------------------------------}
        writeln('organizuem proverky');
 
        for i:=1 to 3 do
                for j:=1 to 3 do
                        for l:=1 to 3 do
                                pr[i,j]:=pr[i,j]+a[l,i]*n[j,l];
{-----------------------------------------------------}
        for i:=1 to 3 do
        begin
                for j:=1 to 3 do
                        write(pr[i,j]:4);
                        writeln;
        end;
{-----------------------------------------------------}
        for i:= 1 to 3 do
                for j:= 1 to 3 do
                        x[i]:=x[i]+n[i,j]*b[j];
 
        for i:= 1 to 3 do
                xc[i]:=x[i]*(1/d);
    writeln;
{-----------------------------------------------------}
        writeln('nahodim korni');
        for i:=1 to 3 do
                writeln(xc[i]:2:2);
 
end.
Клянусь сам бы зделал, но у меня таких заданий 5 половину уже зделал, помогите с этими ОЧ прошу ПРЯМ ОЧЕНЬ ОЧЕНЬ
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.05.2011, 21:24
Ответы с готовыми решениями:

блоксхемы
нам в школе задали написать блоксхему к алгоритму программы нахождения чисел как на ней изобрзить...

Блоксхемы
Найти квадратное большее из 2 чисел а и в и вывести в печать n=1если а наибольшее или n=2 если...

напишите блоксхемы
program V16_N1; uses crt; var i,j,k:integer; x,z:real; begin clrscr; writeln('‚ўҐ¤ЁвҐ i,j,k:...

Простенькие блоксхемы!
Помогите написать блоксхемы на 2 маленькие программы! var s: string; i, n, z: integer; begin...

11
298 / 298 / 150
Регистрация: 07.05.2011
Сообщений: 592
19.05.2011, 21:27 2
Скачиваете отсюда. http://diamfc.oratau.com/
0
1 / 1 / 0
Регистрация: 25.12.2010
Сообщений: 61
19.05.2011, 21:31  [ТС] 3
я за эту программу при всем желании заплотить несмогу, я с казахстана( у нас не на WM денги не кинеш(в моем городе по крайнемере), а если смс отпровлять НДС бешаный(
0
298 / 298 / 150
Регистрация: 07.05.2011
Сообщений: 592
19.05.2011, 21:57 4
Для маленьких программ она бесплатная, там написано
0
1 / 1 / 0
Регистрация: 25.12.2010
Сообщений: 61
19.05.2011, 21:59  [ТС] 5
да спс я посмарел уже, жаль 2рая невлазиет( она самая большая и самоя геморная, блоков много
0
298 / 298 / 150
Регистрация: 07.05.2011
Сообщений: 592
19.05.2011, 22:07 6
Очень просто. Уберите для блок-схемы половину writeln. потом "ручками" в Excel добить можно, сам так делал
0
1 / 1 / 0
Регистрация: 25.12.2010
Сообщений: 61
19.05.2011, 22:13  [ТС] 7
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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
uses crt;
var
exit:string;
        a,n,pr:array [1..3,1..3] of integer;
        h,k,g,i,l,j,d:integer;
        b,xc,x:array [1..3] of real;
begin
clrscr;
{-----------------------------------------------------}
        
        for i:= 1 to 3 do
                for j:= 1 to 3 do
                readln(A[i,j]);
 
{-----------------------------------------------------}
       
 
        for i:= 1 to 3 do
        begin
                for j:= 1 to 3 do
                write(a[i,j]:4);
                writeln(' ');
        end;
{-----------------------------------------------------}
      
 
        for j:= 1 to 3 do
                read(b[j]);
{-----------------------------------------------------}
        G:=A[1,1]*A[2,2]*A[3,3]+A[1,2]*A[2,3]*A[3,1]+A[2,1]*A[3,2]*A[1,3]-A[1,3]*A[2,2]*A[3,1]-A[1,2]*A[2,1]*A[3,3];
        H:=A[2,3]*A[3,2]*A[1,1];
        D:=G-H;
     
{-----------------------------------------------------}
     
 
        n[1,1]:=a[2,2]*a[3,3]-a[2,3]*a[3,2];
       
 
        n[1,2]:=(a[2,1]*a[3,3]-a[2,3]*a[3,1])*(-1);
       
 
        n[1,3]:=a[2,1]*a[3,2]-a[2,2]*a[3,1];
       
 
        n[2,1]:=(a[1,2]*a[3,3]-a[1,3]*a[3,2])*(-1);
     
        n[2,2]:=a[1,1]*a[3,3]-a[1,3]*a[3,1];
      
 
        n[2,3]:=(a[1,1]*a[3,2]-a[1,2]*a[3,1])*(-1);
     
 
        n[3,1]:=a[1,2]*a[2,3]-a[1,3]*a[2,2];
     
 
        n[3,2]:=(a[1,1]*a[2,3]-a[1,3]*a[2,1])*(-1);
      
 
        n[3,3]:=a[1,1]*a[2,2]-a[1,2]*a[2,1];
        
{-----------------------------------------------------}
 
       
 
        for i:=1 to 3 do
                begin
                        for j:=1 to 3 do
                        write(' ',n[i,j]);
                        writeln;
                end;
{-----------------------------------------------------}
        for i:=1 to 3 do
                for j:=i+1 to 3 do
                        begin
                                k:=n[i,j];
                                n[i,j]:=n[j,i];
                                n[j,i]:=k;
                        end;
{-----------------------------------------------------}
      
 
        for i:= 1 to 3 do
                begin
                        for j:= 1 to 3 do
                                write(' ',n[i,j]);
                                writeln(' ');
                end;
{-----------------------------------------------------}
       
 
        for i:=1 to 3 do
                for j:=1 to 3 do
                        for l:=1 to 3 do
                                pr[i,j]:=pr[i,j]+a[l,i]*n[j,l];
{-----------------------------------------------------}
        for i:=1 to 3 do
        begin
                for j:=1 to 3 do
                        write(pr[i,j]:4);
                        writeln;
        end;
{-----------------------------------------------------}
        for i:= 1 to 3 do
                for j:= 1 to 3 do
                        x[i]:=x[i]+n[i,j]*b[j];
 
        for i:= 1 to 3 do
                xc[i]:=x[i]*(1/d);
    
{-----------------------------------------------------}
       
        for i:=1 to 3 do
                writeln(xc[i]:2:2);
 
end.
Вставь в свою прогу плз, ато моя чето ошибку выдает(изза 7ки наверно)
0
298 / 298 / 150
Регистрация: 07.05.2011
Сообщений: 592
19.05.2011, 22:15 8
Так у меня и не запускается. ABC-Pascal на переменную exit ругается
0
1 / 1 / 0
Регистрация: 25.12.2010
Сообщений: 61
19.05.2011, 22:16  [ТС] 9
странно на тп7 норм, щас переделаю быстро тогда
0
298 / 298 / 150
Регистрация: 07.05.2011
Сообщений: 592
19.05.2011, 22:21 10
Да оно и не используется. Увы, слишком длинно. Есть другой ход: разбить на процедуры и каждую в свой модуль Тогда ограничения можно избежать, тоже работа неслабая. Кстати, я пользуюсь более старой версией, 1.12.016, новая какие-то ошибки выдает
0
1 / 1 / 0
Регистрация: 25.12.2010
Сообщений: 61
19.05.2011, 22:23  [ТС] 11
ЕЕЕЕЕ спасибо ВСЕ зделал блоксхемы! щас вылажу мб пригодяться кому

Добавлено через 34 секунды
я кстати тож той же версией, норм все
0
298 / 298 / 150
Регистрация: 07.05.2011
Сообщений: 592
19.05.2011, 22:25 12
Удачи!
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.05.2011, 22:25

создание блоксхемы
Постановка задачи. Решить квадратное уравнение ax2 + bx + c = 0 при любых значениях a, b, c , в...

Составить блоксхемы
1.Дана символьная строка. Слово - последовательность символов между пробелами,не содержащее пробелы...

оч нада
вычислить A^3+B^4+C^7 используя функцию возведения числа в целую степень

дороботать нада
Дан текст, определить содержит ли он символы, отличные от букв и пробела. вот то што я сделал ...

Нада доделать
write('a='); readln(a); min:=a; for i:=2 to n do begin write('a='); readln(a); if...

Док. оч нада.
Народ, помогите, у меня через 21 день будет республикансая олимпиада 9 класса, и мне нужна какая...


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

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

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