Здравствуйте, гость ( Вход | Регистрация )



Гостевой доступ к форуму из Москвы: Телефоны: +7(495)7859696,7376201,7376233,7868796,7390241 Login: demo Password: demo
 
Тема закрытаСоздать новую тему
> Найдите ошибку!Паскаль, Работа с процедурами.
Alta
сообщение Feb 8 2008, 22:11
Сообщение #1


Гость


Группа: Новички
Сообщений: 9
Регистрация: 28-January 08
Пользователь №: 1 014
Заходит на форум с гостевика.



Имеется документ, содержащий информацию о движении предметов.Реквизиты:
1.дата
2.код операции
3.код цеха отправителя
4.код цеха получателя
5.код предмета
6.количество
Требуется разработать програм. код включающий процедуру, которая обеспечивает
формирование нового массива из документов, относящихся к заданному
коду операции.
Program dvijenie;
Uses Crt;


Type
TElem = record
data: string[6];
ko: string[5]{код операции};
k_p: string[8]{код цеха получателя};
k_o: string[8]{код цеха отправителя};
kp: string[10]{код предмета};
kolichestvo:integer;
end;

TArray = array[1..1000] of TElem;

Var arr: TArray;
ot: string;
n: integer;
Begin



repeat
n:=n+1;
write('дата :');
readln(arr[n].data);
write('код операцииа:');
readln(arr[n].ko);
write('код цеха отправителя:');
readln(arr[n].k_o);
write('код цеха получателя:');
readln(arr[n].k_p);
write('код предмета:');
readln(arr[n].kp);
write('количество:');
readln(arr[n].kolichestvo);
write('продолжить ввод (да/нет)? ');
readln(ot);
until (ot='нет');


procedure new_massiv (var arr:TArray; n:integer);
var
d: arr;
first: string;
last: string;
m, m1, j, i; integer;
begin
write ('Введите код операции');
readln(m1);
for i:=1 to n do
begin
val(arr[i].ko,m,n);
m1=m then
begin
d:=arr;
end;
j:=i+1;
end;
for i:=1 to j do
write (d[i].data,' ', d[i].ko, ' ', d[i].k-p, ' ', d[i].k_o, ' ', d[i].kp, ' ', d[i].kolichestvo);
end;
new-massiv(arr,n);
end.

end;


End.


компилятор выдаёт, что после слова процедура должен быть оператор, подскажите, что исправить!
Пользователь offlineПрофайлОтправить личное сообщение
Вернуться к началу страницы
+Цитировать сообщение
Tassadar
сообщение Feb 10 2008, 00:06
Сообщение #2


Гиперактивный пользователь
Group Icon

Группа: Advanced
Сообщений: 2 524
Регистрация: 24-August 05
Из: Белые столбы
Пользователь №: 91
Заходит на форум с гостевика или полного инета.



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


--------------------
ОуКС
Пользователь offlineПрофайлОтправить личное сообщение
Вернуться к началу страницы
+Цитировать сообщение
Alta
сообщение Feb 10 2008, 02:20
Сообщение #3


Гость


Группа: Новички
Сообщений: 9
Регистрация: 28-January 08
Пользователь №: 1 014
Заходит на форум с гостевика.



Цитата(Tassadar @ Feb 10 2008, 01:06) *

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

Спасибо, но учебниками у меня стол завален, только толку мало-в похожих прогах всё норм, а в этой ошибку выдаёт(
Пользователь offlineПрофайлОтправить личное сообщение
Вернуться к началу страницы
+Цитировать сообщение
Alta
сообщение Feb 17 2008, 12:06
Сообщение #4


Гость


Группа: Новички
Сообщений: 9
Регистрация: 28-January 08
Пользователь №: 1 014
Заходит на форум с гостевика.



Помощи не дождалась, решила сама biggrin.gif
Пользователь offlineПрофайлОтправить личное сообщение
Вернуться к началу страницы
+Цитировать сообщение

Тема закрытаСоздать новую тему
2 чел. читают эту тему (гостей: 2, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия Сейчас: 21st January 2021 - 11:24
 
     
Rambler's Top100 службы мониторинга серверов
Gentoo Powered Lighttpd Powered