Расчётная работа. Помогите |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Расчётная работа. Помогите |
abv |
Сообщение
#1
|
Группа: Пользователи Сообщений: 3 Пол: Мужской Репутация: 0 |
Создать массив записей, содержащих сведения об игрушках в торговой базе.
- Название игрушки(кукла, конструктор, робот и т.п.) -ее стоимость - Возрастные граници ребёнка, для которого предназначена игрушка. Предусмотреть выдачу сведений: а) О цене самой дорогой игрушки; б) Об игрушках цена которых не привышает заданную величину; в) Название игрушек которые подходят детям от 4 до10 лет. Вот такое непростое задание. Помогите плиз. |
Jahnerus |
Сообщение
#2
|
Уникальный Группа: Пользователи Сообщений: 64 Пол: Мужской Репутация: 2 |
Ну вобщем в продолжение темы...
Код uses crt; type item = record title: string[30];{название} price: real;{цена} age_1,age_2: byte;{возраст} end; var i,n:byte; maxp:real; info: array[1 .. 255] of item; begin clrscr; {Ввод данных производится с клавы} write('Введите количество товаров '); readln(n); for i:=1 to n do begin with info[i] do begin writeln('Введите данные для ',i,'-ой/ей игрушки :'); write('Hазвание: '); readln(title); write('Цена: '); readln(price); if price>maxp then maxp:=price; write('Возростные границы (через пробел): '); readln(age_1,age_2); end; end; clrscr; writeln('Цена самой дорогой игрушки ',maxp:4:2); write('Введите величину ограничивающую стоимость '); readln(maxp); for i:=1 to n do begin with info[i] do begin if price<maxp then begin writeln('Hазвание: ',title); writeln('Цена: ',price:4:2); writeln('Возростные границы: от ',age_1,' до ',age_2); writeln('Hажмите клавишу для вывода информации о следующей игрушке '); readkey; end; end; end; writeln('Игрушек с ценой меньшей указанной вами больше нет'); writeln('Следующие игрушки подходят детям в возрасте от 4 до 10 лет'); for i:=1 to n do begin with info[i] do begin if (age_1>3) and (age_2<11) then writeln(title); end; end; readln; end. Надеюсь что првильно понял задание :p2: -------------------- Век живи, век учи С © by Jahnerus
|
Текстовая версия | 20.04.2024 4:23 |