Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
SHUMAXER
0 / 0 / 0
Регистрация: 20.04.2016
Сообщений: 3
#1

Создать массив записей об игрушках, которые можно купить, имея определенную сумму денег - Turbo Pascal

25.01.2011, 19:51. Просмотров 405. Ответов 1
Метки нет (Все метки)

Помогите пожалуйста решить задачу

Дан массив из n (n=<10) записей об игрушках чледующего типа:
Название
Цена
Возрастные границы
Разработать процедуру , которая формирует массив записей об игрушках, которые можно купить, имея определенную сумму денег,для ребенка заданного возраста. В основной программе ввести по запросу возраст ребенка и имеющуюся сумму,вывести исходный и полученный массивы, если игрушек не найдены вывести соответствующее сообщение.

заранее спасибо!
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.01.2011, 19:51
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Создать массив записей об игрушках, которые можно купить, имея определенную сумму денег (Turbo Pascal):

Какое наибольшее количество бутылок воды можно купить, имея некоторую сумму денег S копеек? - Turbo Pascal
бутылка воды стоит 45 копеек. Пустые бутылки сдаются по 20 копеек, и на полученные деньги опять покупается вода. Какое наибольшее...

Вывести минимальную сумму денег, при которой в пятницу семья сможет купить хотя бы одну бутылку лимонада - Turbo Pascal
запрашивающую с клавиатуры два натуральных числа К и М и печатающую минимальную сумму денег, при которой в пятницу семья сможет купить хотя...

Вычислить сколько нужно купить быков, коров и телят, имея определенную сумму денег - C++
Помогите пожалуйста зделать програму по етой задеч: Сколько можно купить быков, коров и телят, платя за быка 10р., за корову 5р., а за...

Какое наибольшее количество бутылок воды можно купить, имея некоторую сумму денег - PHP
1. Бутылка воды стоит 45 копеек. Пустые бутылки сдаются по 20 копеек, и на полученные деньги опять покупается вода. Какое наибольшее...

Подсчитать, какие предметы можно купить на определенную сумму - PascalABC.NET
Требуется определить, сколько можно приобрести ручек (по цене 10 руб.), карандашей (5 руб.) и ластиков (2 руб.) на 100 рублей. При этом...

Способы потратить определенную сумму денег определенными монетами - Visual Basic .NET
У Вас А монет по Х рублей и В монет по Y рублей. Можно ли с их помощью заплатить Z рублей, если да - то как? Если можно то с...

1
TernyFolls
0 / 0 / 1
Регистрация: 23.01.2015
Сообщений: 12
31.01.2016, 16:21 #2
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Тааакс, что тут у нас) пять лет прошло, пора бы уже предложить хоть какое то решениеD
надеюсь, что если не автору, который думаю, сам давно научился писать код и по красивее, то хоть таким же студентам-первокурсникам, как я сейчас, поможет сия реализация)

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
#include "stdafx.h"
#include "iostream"
using namespace std;
 
struct ToyBase {
    char Name;
    double Price;
    int Age;
};
 
void GetData(ToyBase *M, int N) {
    for (int i = 0; i < N; i++) {
        cout << "Игрушка " << i+1 << endl;
        cout << "Название\t"; cin >> M[i].Name;
        cout << "Цена\t"; cin >> M[i].Price;
        cout << "Возраст\t"; cin >> M[i].Age;
        cout << endl;
    }
}
 
int NewMas(ToyBase *M, ToyBase *M2, int N, int Cash, int Age) {
    int j = 0;
    for (int i = 0; i < N; i++) {
        if ((M[i].Price <= Cash) && (M[i].Age <= Age)) {
            M2[j].Name = M[i].Name;
            M2[j].Price = M[i].Price;
            M2[j].Age = M[i].Age;
            j++;
        }
    }
    return j;
}
 
void ShowData(ToyBase *M, int j) {
    for (int i = 0; i < j; i++) {
        cout << "Игрушка " << i+1 << endl;
        cout << "Название\t" << M[i].Name << endl;
        cout << "Цена\t\t" << M[i].Price << endl;
        cout << "Возраст\t\t" << M[i].Age << endl << endl;
    }
}
 
int main()
{
    setlocale(0, "");
    cout << "Количество игрушек:\t";
    int N;
    cin >> N;
    ToyBase *M = new ToyBase[N];
    GetData(M, N);
 
    ToyBase *M2 = new ToyBase[N];
    system("CLS");
    double Cash;
    int Age;
    cout << "Введите cash (RUB):\t";
    cin >> Cash;
    cout << "Введите возраст ребёнка:\t";
    cin >> Age;
    int J = NewMas(M, M2, N, Cash, Age);
    system("CLS");
    ShowData(M2, J);
    delete M;
    delete M2;
    system("pause");
    return 0;
}
так и не смог разобраться, как записать строку в переменную, ни string ни char у меня либо не компилировались, либо резко останавливали работу программы. мб когда нибудь, лет через 5 предложат решение и этого ньюансаD

Добавлено через 44 минуты
67 и 68 строка - delete []M; и delete []M2;
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.01.2016, 16:21
Привет! Вот еще темы с ответами:

Создать массив записей из 15 элементов, которые описывают книги в библиотеке - Pascal ABC
Создать массив записей из 15 элементов, которые описывают книги в библиотеке: название, автор, год выпуска. Определить книгу с наиболее...

Можно ли восстановить проект, имея код, но не имея файлов проекта - C#
Помогите пожалуйста, как восстановить проект, у меня остался только сам код записанный в ворде, а сами файлы проекта утеряны, в C# плохо...

Можно ли создать переменную имея string `овое значение её имени - Delphi
Такая ситуация, от пользователя получаем данные типа string. И создаем переменную с именем которое ввел пользователь. Можно ли так...

Как на excele можно вывести сумму денег прописью? - VBA
например 3200 три тысяча двести (денежная единица может быть разной)


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru