Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Object Pascal: кроссплатформенные технологии > Задача на тему "Записи"

Автор: Чекмарь 14.4.2008, 14:24

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

Автор: SneG0K 14.4.2008, 17:32

Эээ.. В помощь тебе Acess и ADO. И делать это скорее надо на дельфи, а не на паскале. ИМХО на паскале намного сложней будет

Автор: Чекмарь 14.4.2008, 18:06

Дело в том, что надо на Паскале))

Автор: SneG0K 14.4.2008, 18:49

А скока колонок должно быть?

Автор: Чекмарь 14.4.2008, 21:30

Каких колонок?)

Автор: ILyAHA 14.4.2008, 22:20

Цитата

База данных игрушек содержит названия игрушек, цену и проданное кол-во.

Я дак думаю, что нужно 3 колонки... smile

Автор: volvo877 15.4.2008, 00:30

Цитата(Чекмарь @ 14.4.2008, 13:24

)

Возникла сложность вот с такой задачей:

Сложность какого плана у тебя возникла? С записями (они же Record-ы) знаком? С файлами? Поиском по разделу пользовался (потому как не ты первый, кому понадобились задачи на типизированные файлы.работу с записями)? Или тебе просто не хочется делать самому?

Цитата(SneG0K @ 14.4.2008, 16:32

)

И делать это скорее надо на дельфи, а не на паскале. ИМХО на паскале намного сложней будет

А вот решать за автора, на чем это надо делать - не надо. И имхо твое неправильное - задача будет решаться на паскале достаточно просто. Если чего-то не умеешь ты - не значит, что этого не умеет никто. Научились кидать кнопки на форму, все остальное для вас уже сложно?

Автор: Чекмарь 15.4.2008, 11:47

Сложность состоит в самом задании базы-я не понимаю, каким образом ее задают...

Автор: SneG0K 15.4.2008, 22:09

Цитата(Чекмарь @ 15.4.2008, 10:47

)

Сложность состоит в самом задании базы-я не понимаю, каким образом ее задают...

Ну базу можно создать и в обычном *.txt файле.

Код


pipiska:100:10
pen:50:22
joystik:1:550
malar:55:111111

Я сча занялся написанием тебе примера, но столкнулся с некоторыми сложностями. Постараюсь решить их в ближайшее время

Автор: SANCHA 11.5.2008, 20:57

В принципе ничего сложного. У меня тока два вопроса.
1) Файл с базой дан? Или все вводить через паскаль?
2)Что значит наиболее выгодно торговать? Это у которой максимальная цена?
Если дадите ответы на эти вопросы,то прогу я напишу. Сдесь делов на 5 минут.

Автор: Чекмарь 11.5.2008, 21:20

Вроде все уже-так правильно:

Код


uses crt;  
type  
toys=record  
title:string;  
price,count:integer;   
end;  
var  
d:array [1..15] of toys;  
i,e,best:integer;  
begin  
clrscr;    
for i:=1 to 15 do  
begin  
writeln;  
writeln('Toy  ',i,':');  
write('Title: ');  
readln(d[i].title);  
write('Price: ');  
readln(d[i].price);  
write('Count: ');  
readln(d[i].count);  
end;     
best:=1;  
for i:=2 to n do  
if (d[i].count>d[best].count) then best:=i;  
writeln('The most popular toy is ',d[best].title,'. Moneys = ',d[best].count*d[best].price);  
best:=1;
for i:=2 to 15 do
if (d[i].price>d[best].price) then best:=1;
writeln('naibolee vigodnaya: ');
writeln(d[best].title);     
readln;  
end.

Автор: SANCHA 11.5.2008, 21:52

Да. Все верно.