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

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

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

 
 Ответить  Открыть новую тему 
> Расчётная работа. Помогите
сообщение
Сообщение #1





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

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


Создать массив записей, содержащих сведения об игрушках в торговой базе.
- Название игрушки(кукла, конструктор, робот и т.п.)
-ее стоимость
- Возрастные граници ребёнка, для которого предназначена игрушка.
Предусмотреть выдачу сведений:
а) О цене самой дорогой игрушки;
б) Об игрушках цена которых не привышает заданную величину;
в) Название игрушек которые подходят детям от 4 до10 лет.

Вот такое непростое задание. Помогите плиз.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Значит, алгоритм такой:

1. Определяем массив записей для хранения данных:
Код

const
 n = 20; {количество игрушек}
type
 TItem = record
   title: string[30];  { название }
   price: real;  { цена }
   ages: byte;  { возраст }
 end;

var
 info: array[1 .. n] of TItem;


Затем проходим по этому массиву и смотрим, для каких записей выполняются приведенные выше условия... если условие выполняется - печатаем.

Если не срочно, завтра могу набросать исходник... ;)
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Автооответчик
*****

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

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


abv, курсовик ?


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


Уникальный
**

Группа: Пользователи
Сообщений: 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
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гость






Цитата(GoodWind @ 11.11.04 19:16)
abv, курсовик ?

да
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6





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

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


Цитата(Jahnerus @ 11.11.04 22:27)
Ну вобщем в продолжение темы...

Можешь, в коментаирях надписать, где указыать названия игрушек и их цену... Типа Кукла - 40 рублей, Конструктор -50 и т.п. Чтоб такое получить...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Уникальный
**

Группа: Пользователи
Сообщений: 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;
 s:string;
 f:text;
 er:integer;
begin
assign(f,'c:\data.txt');{c:\data.txt - путь к файлу с данными}
reset(f);
repeat
  n:=n+1;
  readln(f,info[i].title);
  readln(f,s);
  val(s,info[i].price,er);
  if info[i].price>maxp then maxp:=info[i].price;
  readln(f,s);
  val(s,info[i].age_1,er);
  readln(f,s);
  val(s,info[i].age_2,er);
until eof(f);
close(f);
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.


Кажется должно работать, не уверен потому что правил прямо здесь! ;)
Файл который читается должен выглядеть примерно так
Код
Паровоз
34.56
5
8
Самокат
90
7
14

ну вобщем и так далее ...

Сообщение отредактировано: Jahnerus -


--------------------
Век живи, век учи С © by Jahnerus
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Гость






помогите мне у меня похожая задача)

Пусть дан массив, содержащий сведения об игрушках: указывается название игрушки (например, кукла, кубики, мяч, конструктор и т. д.), ее стоимость в рублях и возрастные границы детей, для которых игрушка предназначена (например, для детей от 2 до 5 лет).
Получите информацию:
1) О названии игрушек, цена которых не превышает 150 рублей и которые подходят до 5 лет;
2) Можно ли подобрать игрушку, любую, кроме мяча, подходящую ребенку 3 лет, и дополнительно мяч так, чтобы суммарная стоимость игрушек не превышала 200 рублей;
3) Имеется ли мяч, ценой 110 рублей, предназначенный детям от 3 до 8 лет, если да, то выведите сведения об этой игрушке.
 К началу страницы 
+ Ответить 

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

 





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