IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
Closed Topic Открыть новую тему 
> Помогите пожалуйсто, НАЙДИТЕ ОШИБКУ
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 11
Пол: Мужской
Реальное имя: Дима

Репутация: -  0  +


Помогите пожалуйсто очень надо(завтро зачет)
program jjj;
var i,j,k,n,m: word;
A: array [1..n,1..m] of real;
L:array[1..m]of word;
begin
read(n,m) ;
for k:=1 to m do
begin
i:=1;
j:=1;
while i<=n and j<=L[k] do
begin
if A[k,i]<>0 then
begin
T[k,j]:=A[k,i];
j:=j+1;
i:=i+1;
end;
else
i:=i+1;
end;
end;
writeln(T);
Writeln(A);
End.

Сообщение отредактировано: Boom-Box -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гуру
*****

Группа: Пользователи
Сообщений: 1 220
Пол: Мужской

Репутация: -  16  +


Какие ошибки-то?
Синтаксические компилятор проверит.
А семантические...
Текст задания где?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Помощник капитана
****

Группа: Пользователи
Сообщений: 601
Пол: Мужской
Реальное имя: Артем

Репутация: -  2  +


n должна быть константой
const n=6

переменные нельзя использовать при назначении размера массива
(и m также..)
Цитата
Синтаксические компилятор проверит.

ну да...

Сообщение отредактировано: Артемий -


--------------------
Dum spiro spero!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Новичок
*

Группа: Пользователи
Сообщений: 11
Пол: Мужской
Реальное имя: Дима

Репутация: -  0  +


Цитата(Ozzя @ 1.06.2007 16:15) *

Какие ошибки-то?
Синтаксические компилятор проверит.
А семантические...
Текст задания где?


ЗАДАНИЕ
Строки матрици A(m,n) заполнены не полностью: в массиве L(m) указано количество элементов в каждой строке. Переслать элементы матрицы построчно в начало одномерного массива T(m*n) подсчитать их количество.

Че за Ошибка Error 50: do expected.


Сообщение отредактировано: Boom-Box -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гость






Цитата
n должна быть константой
Не только n... m тоже...

Да и массив распечатать одним оператором WriteLn(T) тебе вряд ли удастся - надо это делать поэлементно (причем заметь, T вообще не описано, а используется)...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Новичок
*

Группа: Пользователи
Сообщений: 11
Пол: Мужской
Реальное имя: Дима

Репутация: -  0  +


program jjj;
uses crt;
const n=10;m=10;
var i,j,k: word;
A: array [1..n, 1..m] of word;
L:array[1..m]of word;
begin
clrscr;
randomize;
for k:=1 to 10 do
begin
i:=1;
j:=1;
while i<=10 and j<=L[k] do {‘Сдесь ошибку выдает Error 50: Do expected’}
begin
if A[k,i]<>0 then
begin
T[k,j]:=A[k,i];
j:=j+1;
i:=i+1;
end;
else
i:=i+1;
end;
end;
writeln(T); {А КАК ЭТО ВЫВЕСТИ}
writeln(l);
Writeln(A);

End.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Помощник капитана
****

Группа: Пользователи
Сообщений: 601
Пол: Мужской
Реальное имя: Артем

Репутация: -  2  +


Цитата
while i<=10 and j<=L[k] do {‘Сдесь ошибку выдает Error 50: Do expected’}

А ты в скобки возьми между and..

Добавлено через 1 мин.
Цитата
writeln(T); {А КАК ЭТО ВЫВЕСТИ}

А может ты опишешь,что озночает T? Или компилятор уже мысли читает? smile.gif


--------------------
Dum spiro spero!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Новичок
*

Группа: Пользователи
Сообщений: 11
Пол: Мужской
Реальное имя: Дима

Репутация: -  0  +


Люди кто нибуть может помочь (сделать чтобы эта программы работала) Пожалуйсто
ЧТОБЫ ОНА НЕ ВЫВОДИЛА НУЛИ

program jjj;
uses crt;
const n=10;m=10;
var i,j,k: word;
A: array [1..n, 1..m] of word;
L:array[1..m]of word;
T: array [1..n, 1..m] of word;
begin
clrscr;
randomize;
for k:=1 to 10 do
begin
i:=1;
j:=1;
while (i<=10) and (j<=L[k]) do
begin
writeln(a[k,i]);
if A[k,i]<>0 then
begin
T[k,j]:=A[k,i];
j:=j+1;
i:=i+1;
end;

end;
end;
End.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Человек
*****

Группа: Пользователи
Сообщений: 1 050
Пол: Мужской
Реальное имя: Станислав

Репутация: -  3  +


Цитата(Boom-Box @ 1.06.2007 16:10) *

Люди кто нибуть может помочь (сделать чтобы эта программы работала) Пожалуйсто
ЧТОБЫ ОНА НЕ ВЫВОДИЛА НУЛИ

работает и не выводит нули
program jjj;
uses crt;
const
n=10;
m=10;
var
i,k: word;
A: array [1..n, 1..m] of word;
L:array[1..m]of word;
T: array [1..n, 1..m] of word;
begin
clrscr;
randomize; //так массив случайных чисел ты не создашь smile.gif, надо циклами...
for i:=1 to n do
for k:=1 to m do
t[i,k]:=random(10);
for i:=1 to n do
for k:=1 to m do
a[i,k]:=random(10);
for i:=1 to n do
l[i]:=random(10);

i:=1;//инициалицируем ДО цикла
for k:=1 to n do begin
while (i<=L[k]) do begin
writeln(a[k,i]);
(*if A[k,i]<>0 then begin*) //Ты уверен что тебя нужно это условие?
T[k,i]:=A[k,i]; //зачем нам j ?
inc(i);
(*end;*)
end;
end;
readln;
read;
End.


такая подходит? smile.gif


--------------------
Спасибо!
Удачи!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #10


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


А ПРАВИЛА прочитать - не судьба???
Просить о помощи и проявлять такое вопиющее неуважение к отвечающим....
 ! 
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [cоde=pas] ... [/cоde].



Тема закрыта.


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Closed Topic Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 13.06.2021 19:14
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name