0 / 0 / 0
Регистрация: 01.04.2016
Сообщений: 76
1

Перевести с с++ на паскаль

19.09.2016, 16:47. Показов 1736. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
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
#include "stdafx.h"
#include <iostream>
#include <windows.h>
 
using namespace std;
static const int N = 10000;
int main()
{
SetConsoleCP(1251);
SetConsoleOutputCP(1251);
 
int i, p, q, id[N];
for (i = 0; i < N; i++)
{
    id[N] = i;
}
while (cin >> p >> q) {
    int t = id[p];
    if (t == id[q]) continue;
    for (i = 0; i < N; i++)
    {
        if (id[i] == t)
        {
            id[i] = id[q];
        }
    }
    cout << " " << p << " " << q << endl;
}
 
system("pause");
return 0;
}
0
Лучшие ответы (1)
19.09.2016, 16:47
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
19.09.2016, 16:47
Ответы с готовыми решениями:

Снова перевести с Турбо Паскаля на Паскаль АВС или Паскаль АВС.Нет
program derevo; uses crt, graph; function cx(length, angle:real):integer; begin cx:=round(length*cos(angle)); end; ...

Перевести на паскаль
using System; namespace ConsoleApp4 { class Program { static void Main(string args) { ...

Перевести на язык паскаль

1
CAPITAL OF ROCK!
 Аватар для JokeR.BY
1281 / 708 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
19.09.2016, 20:14 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

не очень понял о чём прога, но код "почти один в один".
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
const
    NMAX = 10000;
function BooleanReadLn(var x: Integer): Boolean;
var
    Result: Boolean;
    s: String;
    code: Word;
begin
    ReadLn(s);
    Result := (Length(s) > 0);
    if (Result)
    then
    begin
        Val(s, x, code);
        Result := (code = 0);
    end;
    BooleanReadLn := Result;
end;
var
    t, i, p, q: Integer;
    id: Array[0..NMAX - 1] Of Integer;
begin
    for i := 0 to NMAX - 1 do
        id[i] := i;
    while (BooleanReadLn(p) And BooleanReadLn(q)) do
    begin
        t := id[p];
        if (t <> id[q])
        then
            for i := 0 to NMAX - 1 do
                if (id[i] = t)
                then
                    id[i] := id[q];
        WriteLn(' ', p, ' ', q);
    end;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
19.09.2016, 20:14
Помогаю со студенческими работами здесь

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

Перевести код с С++ на язык Паскаль
Добрый вечер, помогите перевести код int main() { float A,B;//0-x,1-y,2-z float C;//Вторая найвысшая точка float...

Перевести программу с псевдокода на паскаль
помогите очень нужно bool dfs(v: int): if (used) return false used = true for to in g if (matching == -1 or...

Перевести С++ в Паскаль
Здравствуйте, нужна помощь в переводе С++ на язык Паскаля) спасибо заранее #include &lt;iostream&gt; #include &lt;math.h&gt; #include...

Перевести С++ в Паскаль
Всем здравствуйте, нужна помощь в переводе на язык Паскаля) #include &lt;iostream&gt; #include &lt;stdio.h&gt; #include &lt;math.h&gt; ...


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

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

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Опции темы

Новые блоги и статьи
Как в jQuery проверить, что элемент скрыт
hw_wired 10.02.2025
jQuery предоставляет несколько эффективных способов определить, скрыт элемент или отображается на странице. Самый простой метод использует специальные селекторы :hidden и :visible. Селектор :hidden. . .
Как проверить (check out) ветку Git в удаленном репозитории
hw_wired 10.02.2025
Проверка удаленной ветки в Git требует понимания нескольких базовых концепций и точного выполнения определенной последовательности действий. Для начала необходимо получить актуальную информацию о. . .
chucknorris в HTML и другие обозначения цветов
hw_wired 10.02.2025
HTML, как основной язык разметки веб-страниц, прошел длинный путь развития в плане работы с цветами. На заре развития веб-технологий разработчики могли использовать только базовый набор из 16. . .
Стек и куча: отличия и назначение
hw_wired 10.02.2025
Управление памятью - ключевой элемент работы любой программы. В современных языках программирования память делится на две основные области: стек и кучу. Каждая из них обладает уникальными. . .
Комментарии в JSON
hw_wired 10.02.2025
JSON - текстовый формат обмена данными, построенный на основе синтаксиса JavaScript. Этот формат отличается простотой, читаемостью и широкой поддержкой во всех современных языках программирования. . . .
Перезаписываем локальные файлы с помощью git pull
hw_wired 10.02.2025
Git pull - незаменимая команда для синхронизации локального репозитория с удаленным. При работе над проектом в команде разработчиков часто возникает необходимость получить актуальные изменения,. . .
Оператор --> в C++
hw_wired 10.02.2025
Оператор --> (называемый "spaceship operator" или оператор космического корабля) - важное нововведение в стандарте C++20, упрощающее реализацию операций сравнения в пользовательских типах данных. . . .
Отмена git add до коммита
hw_wired 10.02.2025
Git предлагает несколько методов для отмены индексации файлов перед созданием коммита. Разработчики часто сталкиваются с ситуацией, когда нужно убрать файлы из индекса, не теряя внесенные изменения в. . .
Типы MIME в JSON: что и когда использовать в REST API
hw_wired 10.02.2025
MIME-типы играют ключевую роль в современных веб-приложениях, особенно в контексте REST API и микросервисной архитектуры. Они определяют формат передаваемых данных между клиентом и сервером, что. . .
Переименование локальной ветки Git
hw_wired 10.02.2025
Git предлагает систему управления версиями, где ветки играют ключевую роль в организации разработки. Ветки позволяют изолировать изменения кода, экспериментировать с новыми функциями и поддерживать. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru