Форум программистов, компьютерный форум, киберфорум
C++
Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Функция удаления элемента из дерева https://www.cyberforum.ru/ cpp/ thread330758.html
В данной программе реализовано почти все,кроме фунции удаления,которую я так и не смог реализовать. Руководствуюсь методами: -если это лист, то просто удаляем. -если элемент имеет левое поддерево,...
C++ Дана действительная квадратная
Дана действительная квадратная матрица порядка n. Найти наибольшее из значений элементов, расположенных в заштрихованной части матрицы |............#| |........###| |....#####| |#######| У меня...
Преобразовать в С++ C++
Сделать в С++, если можно сделать в одну программу из них Программа для записи информации в файл type z=record f:string; adres:string; tel:string; obraz:string; ...
C++ Странный вопрос Здравствуйте, уважаемые! Я в очередной раз взялся за нейронные сети и в мою бедную голову въелся смешной вопрос. Как лучше организовать связи для входящих в нейрон сигналов? Значения из нейронов... https://www.cyberforum.ru/ cpp/ thread330437.html
C++ В дизассемблерованном коде отсутствует позднее связывание. Оптимизация? https://www.cyberforum.ru/ cpp/ thread330322.html
Добрый день/утро/вечер (нужное подчеркнуть)) Выдалось свободное время и решил немного пописать марсианского кода) В процессе написания пришлось лезть в дизассемблированный листинг и вот, что я там...
CRITICAL_SECTION 2 потока C++
Задача заставить 2 потока работать точно друг за другом(по очереди): main() { /*инициализация*/ EnterCriticalSection( &cs );//блокировка первого потока EnterCriticalSection( &cs2...
C++ Работа с формами
Будьте добры. Подскажите , как вписать код в формы? Чтобы , когда я делаю кнопочки, они делали то, что я хочу. Понимаю, что тема широкая, поэтому может кто ресурс укажет. В поисковике никак грамотно ...
C++ В конец целочисленного двоичного файла дописать нечетные значения, содержащиеся в другом целочисленном текстовом файле Дано такое задание: Дописывание в файл. В конец целочисленного двоичного файла дописать нечетные значения, содержащиеся в другом целочисленном текстовом файле. Итоговый файл должен иметь строго... https://www.cyberforum.ru/ cpp/ thread329204.html
C++ База на Code Blokcs C++ https://www.cyberforum.ru/ cpp/ thread328872.html
Помогите дописать практику с базой, проверьте написанный код и помогите добавить, вывод из файла, редактирование по id(vuz) и удаление (group). если можно с коментариями #include <stdio.h>...
C++ Программы по умолчанию для расширений Кто знает подскажите, каким образом можно изменить программу по умолчанию для расширений в с\с++, да и не важно в чем. Системных утилит, программ я не нашел которые могут это делать, что бы в... https://www.cyberforum.ru/ cpp/ thread328103.html
2 / 2 / 0
Регистрация: 06.12.2010
Сообщений: 135
0

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

08.07.2011, 06:31. Просмотров 765. Ответов 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.


Вернуться к обсуждению:
Поменять код на С++
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.07.2011, 06:31
Готовые ответы и решения:

Немного поменять код
Привет,в общем дан двухмерный массив и нужно все отрицательные элементы оправить в конец массива.С...

Поменять код на LINQ
using System; using System.Collections.Generic; using System.Linq; using System.Text; using...

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

Вытащить код и поменять цвет
Доброго времени суток. Есть программа, которая моделирует жидкость, но я не могу менять параметры -...

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