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

Перевести код с Паскаля на С++

30.03.2021, 18:02. Показов 1033. Ответов 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
uses crt;
var
  a: array[1..20] of word;
  i: integer;
begin
//-----------------------ВВОД---------------------------------------------------
for i:=1 to 20 do
  begin
    write('a[',i,']=');
    readln(a[i]);
  end;
//-----------------------ВЫВОД-МАССИВА------------------------------------------
write('Исходный массив:');
  for i:=1 to 20 do
    write(a[i],' ' );
//------------------------ПОИСК-И-ВЫВОД-ПАРЫ------------------------------------
for i:=1 to 19 do
    if a[i]=a[i+1] then
      begin
        writeln('');
        write('Первая пара одинаковых элементов: ',i,', ',i+1);
        halt;
      end;
//--------------------------КОНЕЦ-----------------------------------------------
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.03.2021, 18:02
Ответы с готовыми решениями:

Каким образом можно перевести код Паскаля в код Фортран?
Здравствуйте уважаемые программисты! Может быть банальная, но довольно сложная проблема - перевод...

Как перевести код с паскаля на Java. Пытался сам но код не хочет работать переведенный
А сам код на паскале работает. Вот код на паскале var i,j,m,c,d: integer; A:array of...

Перевести код паскаля на c#
var c,alpha,a,h,s:real; begin write('Введите длину основания c='); readln(c); write('Введите...

Перевести код с Паскаля на С++
uses crt; type kod=set of char; var N, T: kod; type a=array of string; var...

2
Эксперт CЭксперт С++
3859 / 2254 / 1226
Регистрация: 14.12.2018
Сообщений: 4,331
Записей в блоге: 1
30.03.2021, 18:14 2
Лучший ответ Сообщение было отмечено PROGRAMMA2021 как решение

Решение

Цитата Сообщение от PROGRAMMA2021 Посмотреть сообщение
Перевести код с Паскаля на С++
Можно:
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
#include <iostream>
#include <string>
using namespace std;
 
int main()
{
    string a[20];
    int i;
    //-----------------------ВВОД---------------------------------------------------
    for (i = 0; i < 20; i++)
    {
        cout << "a[" << i + 1 << "] = ";
        getline(cin, a[i]);
    }
    //-----------------------ВЫВОД-МАССИВА------------------------------------------
    cout << "Исходный массив:" << endl;
    for (i = 0; i < 20; i++)
        cout << a[i] << " ";
    //------------------------ПОИСК-И-ВЫВОД-ПАРЫ------------------------------------
    for (i = 0; i < 19; i++)
        if (a[i] == a[i + 1])
        {
            cout << endl;
            cout << "Первая пара одинаковых элементов: " << i + 1 << ", " << i + 2;
            system("pause");
            return 0;
        }
 
    system("pause");
    return 0;
}
1
1 / 1 / 0
Регистрация: 26.03.2021
Сообщений: 30
30.03.2021, 21:49  [ТС] 3
Спасибо вам большое, вы очень-очень помогли!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.03.2021, 21:49
Помогаю со студенческими работами здесь

Перевести код с Паскаля на C
var f,g: text; s: string; begin assign(f,'F:\text1.txt'); assign(g,'F:\text2.txt');...

Перевести код с паскаля на C++
//Помогите пожалуйста перевести с паскаля на С++ uses crt; type PList=^TList; ...

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

Перевести код с Паскаля на С++
Помогите пожалуйста решить задачу или перевести код с Паскаля на С++ File13. Дан файл целых...

Перевести код из паскаля в с#
Кто сможет перевести кож ниже из паскаля в с#: const cruch=10; ckar=5; clas=2; ...

перевести код с паскаля на си
program pr; const Csize = 10; type Tgranary = record district: string; number:...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru