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

C++

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

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

08.07.2011, 06:31. Просмотров 534. Ответов 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++
Есть задание найти по главной и второстепенной диагоналям массива максимальный и минимальный элементы и поменять их местами. Код...

Исправить код: Поменять 1 и последний столбцы StringGrid местами - C++ Builder
Надо исправить код Задача &quot;Поменять 1 и последний столбцы местами, и все элементы сместятся на 1&quot; Вот код, но тут меняются рядки. ...

Кратчайший код: поменять два числа местами и вывести их - C++
Вот борюсь за первое место в рейтинге Задачка Swap 1000 надо ввести два числа поменять их местами и вывести их я сделал так ...

Поменять местами первый и последний элемент массива (исправить код) - C++
Почему массив не не меняет первый и последний элемент местами? #include &lt;iostream&gt; #include &lt;locale.h&gt; using namespace std; ...

Двумерный массив. Найти минимальный и поменять его с первым, найти максимальный и поменять его с последним - C++
Как можно изменить код чтобы выполнялось. 1.Найти минимальный элемент и поменять его с первым элементом. 2.Найти максимальный...

Visual c++ код перевести в gcc linux код - C++
Ниже есть код. Нужно сделать так, что бы он компилировался и работал в линуксе(компиляция с помощью gcc). #include &quot;stdio.h&quot; #pragma...

код, который прекрасно выполняет Code::Blocks не выполняеться в Студии, как сделатьь так чтобы Студия воспринимала этот код?? - C++
Ребята, обьясните мне чего код, который прекрасно выполняет Code::Blocks не выполняеться в Студии, там требуються существенно другие...

Поменять код. Битрикс - PHP
Добрый день! вот есть код вывода новостей на сайт. сейчас каждая новость выводится вертикально одна за одной вниз последовательно. ...

Сможете поменять программный код!?!?! - C++/CLI WinForms
Очень надо для курсовой работы...кто может, или умеет...помогите поменять программный код на аналогичный (смена переменных и т.д.)...нужно...

Вытащить код и поменять цвет - 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
411 / 391 / 51
Регистрация: 16.03.2008
Сообщений: 1,932
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     Поменять код на С++
Ответ Создать тему
Опции темы

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