Форум программистов, компьютерный форум CyberForum.ru

C++

Войти
Регистрация
Восстановить пароль
 
povtiasd051
2 / 2 / 0
Регистрация: 06.12.2010
Сообщений: 135
#1

Поменять код на С++ - C++

08.07.2011, 06:31. Просмотров 530. Ответов 5
Метки нет (Все метки)

Нужно преобразовать в С++ этот код.
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
uses crt;
const
        Max = 100;
type 
        MyType = array [1..Max]of integer;
procedure CreatArr(var TheArr:MyType;Size:integer);
var
        i:integer;
begin
        for i:=1 to Size do
        begin
                TheArr[i]:=random(max);
        end;
end;
{}
//вывод массива
procedure PrintArr(TheArr:MyType;Size:integer);
var
        i:integer;
begin
        for i:=1 to Size do
        begin
                write(TheArr[i],' ');
        end;
        writeln;
end;
{}
function Final(H,B:MyType;S:integer;n,m:integer):boolean;
var
        i,j:integer;
        Clon_Price:boolean;
        Temp:integer;
begin
        Final:=True;
        Clon_Price:=False;
        for i:=1 to n do
        begin
                if(H[i] = S)then
                begin
                        Clon_Price:=True;
                end;
        end;
        if(Clon_Price=False)then
        begin
                for i:=1 to n do
                begin
                        if(H[i]>20)then 
                        begin
                                Temp:=H[i]-S;
                                for j:=1 to m do
                                begin
                                        if(B[i]=Temp)then
                                        begin
                                                Clon_Price:=True;
                                        end;
                                end;
                        end;
                end;
        end;
        Final:=Clon_Price;
end;
var
        n,m:integer;
        S:integer;
        H,B:MyType;
begin
        repeat
                write('Введите количество монет у продавца и покупателя:');
                readln(n,m);
        until(n<Max)and(m<Max);
        write('введите сумму товара:');
        readln(S);
        CreatArr(H,n);
        CreatArr(B,m);
        {}
        PrintArr(H,n);
 
        PrintArr(B,m);
        {}
        if(Final(H,B,S,n,m) = True)then
        begin
                write('Купит!!');
        end
        else
        begin
                write('Нет сдачи');
        end
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.07.2011, 06:31     Поменять код на С++
Посмотрите здесь:

C++ В чем разница между exit(код возврата) и ExitProcess (код возврата)?
немного поменять, C++
C++ Кратчайший код: поменять два числа местами и вывести их
C++ Поменять местами первый и последний элемент массива (исправить код)
Односвязный список (псевдокод) - поменять два элемента местами (посмотреть, правильно ли написан код) C++
Поменять элементы массива местами(код) C++
C++ Поменять байты
Двумерный массив. Найти минимальный и поменять его с первым, найти максимальный и поменять его с последним C++
Написал код в Full Debug, потом переделал в Release - и написанный код не работает C++ Builder
C++ Builder Исправить код: Поменять 1 и последний столбцы StringGrid местами
Как получить исходный код *.exe или отредактировать его исполняемый код? C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Dekio
08.07.2011, 12:20
  #2

Не по теме:

povtiasd051, где учат так быдлокодить? 100500 begin end'ов, никаких отступов.. Если не цените себя так цените других, кто будет это читать..
P.S. я бы без проблем перевел, но разбираться в 20 лишних begin'ax нет желания

Jupiter
09.07.2011, 11:56
  #3

Не по теме:

очень умно povtiasd051

pito211
186 / 173 / 8
Регистрация: 22.03.2010
Сообщений: 612
09.07.2011, 12:59     Поменять код на С++ #4
Цитата Сообщение от Maxwe11 Посмотреть сообщение

Не по теме:

очень умно povtiasd051

Не по теме:

спалился

voral
377 / 357 / 50
Регистрация: 16.03.2008
Сообщений: 1,801
10.07.2011, 10:39     Поменять код на С++ #5
В этом алгоритме, что то не так. (Не считая опечатки "<20").
Допустим
у покупателя 20 18 5
у продавца 21
Стоимость 2

Ищем используя заложенный алгорим
Монеты 2 нет
Входим в "длинный" цикл
20 > S - да
Temp = 20 - S = 18
прбегаем цикл по кошельку продавца - монеты 18 нет
18 > S - да
Temp = 18 - S = 16
прбегаем цикл по кошельку продавца - монеты 16 нет
5 > S - да
Temp = 5 - S = 3
прбегаем цикл по кошельку продавца - монеты 3 нет
Результат - купить не можем

Реальность:
Покупатель дает 18+5 = 23
Продавец сдает 21

23 - 21 = 2 бинго!!!
povtiasd051
2 / 2 / 0
Регистрация: 06.12.2010
Сообщений: 135
12.07.2011, 14:53  [ТС]     Поменять код на С++ #6
Цитата Сообщение от voral Посмотреть сообщение
В этом алгоритме, что то не так. (Не считая опечатки "<20").
Допустим
у покупателя 20 18 5
у продавца 21
Стоимость 2

Ищем используя заложенный алгорим
Монеты 2 нет
Входим в "длинный" цикл
20 > S - да
Temp = 20 - S = 18
прбегаем цикл по кошельку продавца - монеты 18 нет
18 > S - да
Temp = 18 - S = 16
прбегаем цикл по кошельку продавца - монеты 16 нет
5 > S - да
Temp = 5 - S = 3
прбегаем цикл по кошельку продавца - монеты 3 нет
Результат - купить не можем

Реальность:
Покупатель дает 18+5 = 23
Продавец сдает 21

23 - 21 = 2 бинго!!!
Дружище если не трудно выложи да правильное решение.
Yandex
Объявления
12.07.2011, 14:53     Поменять код на С++
Ответ Создать тему
Опции темы

Текущее время: 07:07. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru