2 / 2 / 0
Регистрация: 10.05.2009
Сообщений: 41
1

программа нужно найти ошибку

28.04.2010, 19:33. Показов 563. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
помогите найти ошибку
должно получится по сторонам матрицы верхняя строка убывающая начиная с 1 а там 0 получаются

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
Program mass11;
 var a:array [0..100,0..100] of integer;
 i,j,n,x:integer;
 begin
  write ('ввести колличество n=');
  read (n);
  write ('ввести колличество x=');
  read (x);
   for i:=1 to n do
        begin
   for j:=0 to n do
       a[i,j]:=0;
        end;
 
   a[0,0]:=1;
   for j:=1 to n do
      a[0,j]:=a[0,j-1]*x;
      
   a[n,n]:=1;
   
   for j:=n-1   downto 0 do
     a[n,j]:=a[n,j+1]*x;
     
   for i:=1 to n do
     a[i,0]:=a[i-1,0]*x;
     
   for i:=n-1  downto 1  do
   a[i,n]:=a[i+1,n]*x;
   
   writeln;
   
   for i:=1 to n do
     begin
     for j:=1 to n do
     write (a[i,j]:3);
     writeln;
     end;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.04.2010, 19:33
Ответы с готовыми решениями:

Программа пишет ошибку!! Помогите найти ошибку
Program Summa; var i, N, M: integer; begin Writeln ('Введите значение N:'); Read (N); ...

Нужно найти ошибку
VAR N: INTEGER; X, Y: REAL; H, X0, XN: REAL; BEGIN WRITELN('ВВЕДИТЕ X0, XN '); READLN(X0,...

Нужно найти ошибку
Вычислить F=A(3,4)*PT(4,5)*R(5,2),если y>6 если y=<6 F=P(4,5)*T(5,3)*Q(3,3); program z42;...

Нужно найти ошибку!
Помогите Пожайлуста Найти ошибку в программе Там когда запускаешь программу выдаёт ошибку Invalid...

1
135 / 29 / 7
Регистрация: 21.03.2010
Сообщений: 151
29.04.2010, 14:57 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
Program mass11;
uses crt;
 var a:array [0..100,0..100] of integer;
 i,j,n,x:integer;
 begin
  write ('ââåñòè êîëëè÷åñòâî n=');
  read (n);
  write ('ââåñòè êîëëè÷åñòâî x=');
  read (x);
   for i:=1 to n do
        begin
   for j:=0 to n do
       a[i,j]:=0;
        end;
 
   a[1,1]:=1;
   for j:=2 to n-1 do
      a[1,j]:=a[1,j-1]*x;
 
   a[n,n]:=1;
 
   for j:=n-1   downto 0 do
     a[n,j]:=a[n,j+1]*x;
 
   for i:=2 to n-1 do
     a[i,1]:=a[i-1,1]*x;
 
   for i:=n-1  downto 1  do
   a[i,n]:=a[i+1,n]*x;
 
   writeln;
 
   for i:=1 to n do
     begin
     for j:=1 to n do
     write (a[i,j]:3);
     writeln;
     end;
end.
Держи, теперь всё работает)
1
29.04.2010, 14:57
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.04.2010, 14:57
Помогаю со студенческими работами здесь

Нужно найти ошибку в выражении
1) Переменная F определена как файловая с базовым типом Integer. Переменная N относится к типу...

Нужно найти ошибку в коде
program zada4a; uses crt; type stroenie=record tip, firma: string; cena, proc, vklad, nevip:...

Нужно найти ошибку(прога график)
Почему то у меня в одном месте показывает ОШИБКУ 143:ОШИБОЧНАЯ ССЫЛКА НА ПРОЦЕДУРУ ИЛИ ФУНКЦИЮ......

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru