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

С++ для начинающих

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

Как переделать задачу из Pascal в C++ - C++

25.10.2013, 17:58. Просмотров 968. Ответов 0
Метки нет (Все метки)

Помогите, пожалуйста, переделать задачу из Pascal в C++. Я Pascal вообще не знаю. Мне самому не справиться.

Задан вес E пустой копилки и вес F копилки с монетами. В копилке могут находиться монеты N видов, для каждого вида известна ценность Pi и вес Wi одной монеты. Найти минимальную и максимальную суммы денег, которые могут находиться в копилке.
Ограничения: 1 £ E £ F £ 100, 1 £ N £ 50, 1 £ Pi £ 500, 1 £ Wi £ 100, все числа целые, время 2с. [1].


Pascal
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
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
Program Problem6_6; 
Var
   n:integer;   {Количество видов монет}    
   e,f:integer;   {Вес пустой копилки и вес копилки с монетами}    
   p,w:array[1..50] of word;{Ценность и вес монет}
   i,j,l:integer;
   min,max,m:longint;
   sum:array[0..100] of longint;{Сумма денег в копилке}
   lo:array[0..100, 1..50] of byte;{Какие монеты в копилке}
   wes:integer;
Begin
  clrscr;
  {-------------- Ввод данных ---------}
  Repeat{Проверка – удовлетворяет ли условию задачи}
    write('Введите вес пустой копилки (1..100): ');
    readln(e);
    write('Введите вес копилки с монетами (1..100): ');
    readln(f);
  Until (e >= 1) And (f >= e) And (f <= 100);
  Repeat{Проверка}
    write(' Введите количество видов монет (1..50): ');
    readln(n);
  Until (n>=1) And (n<=50);
  writeln(' Введите ценность и вес монет:');
  For i:= 1 To n Do{Ввод цены и веса монет}
     Begin
       Repeat{Проверка}
         write('Цена  ',i,' монеты: ');
         readln(p[i]);
       Until (p[i]>0) And (p[i]<=500);
       Repeat{Проверка}
         write('Вес ',i,' монеты: ');
         readln(W[i]);
       Until (w[i]>0) And (w[i]<=100);
     end;
  {---------- Ввывод на экран введенных данных ---------}
  clrscr;
  writeln('Вес монет в копилке равен: ',f-e);
  writeln('Виды монет, которые могут быть в копилке (номер, ценность, вес):');
  For i:= 1 To n Do{Вывод цены и веса монет}
    writeln(i,'   ',p[i],'   ',w[i]);
  {---------- Поиск минимальной суммы денег ---------}
  For i:= 0 To f-e Do{"Обнуление" матрицы lo}
   For j:= 1 To n Do
         lo[i,j]:= 0;
  sum[0]:= 0;{Обнуление}
  For wes:=1 To f-e Do{Заполнение массива sum и матрицы lo}
    Begin
     m:= -1;{Минимальная сумма}
     l:= 0;{Индекс в lo}
     For i:=1 To n Do{Может ли эта монета «поместиться» в копилку}
       If wes-w[i] >= 0 Then{При этом может ли копилка быть заполнена до конца}
         If sum[wes-w[i]] >= 0 Then
             {Нахождение минимальной суммы}
             If (m = -1) Or (sum[wes-w[i]]+p[i] < m) Then
                     Begin
                       m:= sum[wes-w[i]] + p[i];
                       l:= i;{Какую монету взяли}
                     end;
     If l <> 0 Then{Если поместили монету в копилку}
      Begin
        For i:= 1 To n Do lo[wes,i]:= lo[wes-w[l],i];{Заполнение матрицы lo}
        lo[wes,l]:= lo[wes-w[l],l]+1;{Взяли одну монету данного вида}
      end;
     sum[wes]:= m;{Заполнение массива sum}
   end;
  min:= sum[wes];{Нашли минимальное значение}
  If min <> -1 Then{Если копилку можно заполнить, то выводим виды монет}
   Begin
     writeln;
     writeln(' Заполнение монетами копилки (сумма минимальна):');
     For i:= 1 To n Do writeln(i,' -й вид монет: ',lo[wes,i]);
   end;
  {---------- Поиск максимальной суммы денег ---------}
  {-- Аналогично поиску минимальной суммы денег ---}
  For i:= 0 To f-e Do
   For j:= 1 To n Do
         lo[i,j]:= 0;
  sum[0]:= 0;
  For wes:=1 To f-e Do
    Begin
     m:= -1;
     l:= 0;
     For i:=1 To n Do
       If wes-w[i] >= 0 Then
         If sum[wes-w[i]] >= 0 Then
             {Отличие от поиска минимальной суммы денег}
             If sum[wes-w[i]]+p[i] > m Then
                     Begin
                       m:= sum[wes-w[i]] + p[i];
                       l:= i;
                     end;
     If l <> 0 Then
      Begin
        For i:= 1 To n Do lo[wes,i]:= lo[wes-w[l],i];
        lo[wes,l]:= lo[wes-w[l],l]+1;
      end;
     sum[wes]:= m;
   end;
  max:= sum[wes];
  If min <> -1 Then
   Begin
     writeln;
     writeln(' Заполнение монетами копилки (сумма максимальна):');
     For i:= 1 To n Do writeln(i,' -й вид монет: ',lo[wes,i]);
   end;
  writeln;
  {-- Вывод минимальной и максимальной суммы денег --}
  If (min = -1) Or (max = -1) Then  {Проверка - заполнена ли копилка}
       writeln('Невозможно заполнить копилку!!')
   else
    Begin
      writeln(min,' - минимальная сумма денег в копилке');
      writeln(max,' - максимальная сумма денег в копилке');
   end;
  ReadKey;
End.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.10.2013, 17:58
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Как переделать задачу из Pascal в C++ (C++):

как переделать задачу что б были указатели ? - C++
#include &lt;iostream.h&gt; #include &lt;conio.h&gt; #include &lt;math.h&gt; int main () { int a , d, b; cout&lt;&lt;&quot;vvedite elementu...

помогите переделать задачу. - C++
дана задача:. Написать программу, которая для прямоугольной целочисленной матрицы опреде¬ляет номер самого левого столбца, содержащего...

Переделать задачу, с использованием <string.h> - C++
Обработку строки реализовать с помощью функций, описанных в &lt;string.h&gt; и (или) с использованием указателей. Память под строки выделять...

Переделать задачу под С++ с рекурсией - C++
Здравствуйте,нужно переделать данную задачу с паскаля на С++ с использованием рекурсии.Нужна помощь. Вот условие к ней Вычислить...

Переделать задачу под бинарные файлы - C++
Дан файл, компонентами которого являются массивы действительных чисел. Вычислить для каждого массива число отрицательных элементов....

Переделать задачу (убрать генератор случайных чисел) - C++
Условие: Вывести начальные индексы всех непрерывных последовательностей неотрицательных чисел, длина которых больше 5. Похожая задача...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.10.2013, 17:58
Привет! Вот еще темы с ответами:

Переделать задачу под другой тип данных - C++
Нужно переделать задачу под тип string Программа заменяет букву в начале каждого слова на букву верхнего регистра ...

Переделать задачу, используя указатели вместо индексов(С++) - C++
#include &lt;stdio.h&gt; #define TWLV 12 #define YRS 5 void main () { float rain = { {10.2, 8.1, 6.8, 4.2, 2.1, 1.8, 0.2, 0.3,...

Переделать задачу с использованием функций или процедур - C++
Вот собственно и сама задача. Выводит элементы которые имеются в нескольких экземплярах в первом и которых нет во втором. Все работает, но...

Кто-нибудь может переделать задачу со структур на классы? - C++
Огромное спасибо, кто откликнется. #include &lt;stdio.h&gt; #include &lt;string.h&gt; main() { struct ZNAK {


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

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

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