![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
Terror13 |
![]() ![]()
Сообщение
#1
|
![]() Группа: Пользователи Сообщений: 4 Пол: Мужской Реальное имя: Ник Репутация: ![]() ![]() ![]() |
Помогите исправить ошибку пожалуйста.Программа компилируется, но В конце не Дальше 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. -------------------- Ты не нисал,
Тогда кто это написал, Это написала я, Кто Я....-ТВОЯ СОВЕСТЬ |
![]() ![]() |
![]() |
Текстовая версия | 30.07.2025 22:34 |