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

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

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

> Файл, Ошибка
Terror13
сообщение 15.01.2006 18:15
Сообщение #1





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

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


Помогите исправить ошибку пожалуйста.Программа компилируется, но В конце не Дальше read(x); не и дет в чем дело. Заранее благодарен.
Код
uses crt;
type
item = record
   title: string[30];
   price: real;
   age_1,age_2: byte;
   col_vo:integer;
end;
var
a,b,x:integer;
i,n:byte;
maxp:real;
info: array[1 .. 255] of item;
begin
clrscr;
write('Vvedite col-vo tovarov ');
readln(n);
for i:=1 to n do begin
with info[i] do begin
   writeln(' Vvedite dannie for ',i,' igreshki :');
   write(' Nazvanie: ');
   readln(title);
   write(' Ctoimost: ');
   readln(price);
   if price>maxp then maxp:=price;
   write(' col-vo: ');
   read(col_vo);
   write(' Vozrastnie prideli (cherez probel): ');
   readln(age_1,age_2);
end;
end;
clrscr;
writeln(' Cled. igr.nodhod. detim ot 1 do 3 let');
for i:=1 to n do begin
with info[i] do begin
   if (age_1=1) and (age_2=3) then
   writeln(title);
end;
end;
writeln('Samoy dorogoy igryshka ');
for i:=1 to n do begin
with info[i] do begin
   if price=maxp then begin
     writeln(' Ctoimost: ',maxp);
     writeln(' Nazvanie: ',title);
   end;
end;
end;
writeln(' Vozrastnie prideli (cherez probel):');
read(a,b);
writeln(' Ogran. price :');
read(x);
for i:=1 to n do begin
with info[i] do begin
   if (age_1<a) and (age_2>b) then
   writeln(' Nazvanie: ',title);
   if x>maxp then begin
   writeln(' Ctoimost: ',maxp);
   readln;
    end;
   end;
end;
end.


--------------------
Ты не нисал,
Тогда кто это написал,
Это написала я,
Кто Я....-ТВОЯ СОВЕСТЬ
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


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

 

- Текстовая версия 30.07.2025 22:34
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"