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

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
Makcon
0 / 0 / 0
Регистрация: 17.12.2013
Сообщений: 7
#1

Перевести программу из Паскаля в С++ - C++

28.12.2013, 18:21. Просмотров 147. Ответов 0
Метки нет (Все метки)

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
program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var f,f2:textfile;
A:array [1..100] of string;
i,n,j:integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
assign(f,'c:\11.txt');
reset(f);
assign(f2,'c:\111.txt');
rewrite(f2);
n:=0;
while not eof(f) do
  begin
  inc(n);
  readln(f,a[n]); //заносим в массив фамилию
  readln(f);// пропускаем има
  readln(f);  //  и курс
  end;
for I:=1 to n do
  for j:=i+1 to n do
    begin
    if (a[i]=a[j]) or (a[i]+'а'=a[j]) or (a[i]=a[j]+'а')  then
        writeln(f2,a[i],' ',a[j]);
    end;
  close(f);close(f2);
  writeln('Prog zaver');
   readln;
end.[CODE][/CODE]
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.12.2013, 18:21
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевести программу из Паскаля в С++ (C++):

Перевести программу с Паскаля на Си++ - C++
Помогите пожалуйста переписать этот код на язык Си++, не знаю как также объявляется массив :( const a=3; b=4; var x,y,u:array...

Перевести программу с Паскаля на Си++ - C++
Помогите пожалуйста переписать этот код на язык Си++. Я просто не понимаю как его переписать. program Z2; const mx=1000; var a,b:...

Перевести эту программу на С++ с паскаля - C++
Кто может перевести эту программу на С++ вот задание 1 определит колличество строк без нуле 2 сложить характеристические ряды (это...

Нужно перевести программу из Паскаля в С++ - C++
К сожалению С++ только начали изучать, а программ задали много Delphi знаю хорошо Задача 1.Составить программу упорядочения по...

Нужно перевести программу из Паскаля в С++ - C++
Помогите пожалуйста перевести. Из Паскаля в С++ Код программы Паскаля: program Hello; var i:integer; begin ...

Помогите перевести программу с Паскаля на С++ - C++
function IsPowerN(K: integer; N: byte): boolean; var i: byte; res: integer; begin res := 1; //начальное значение степеня...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.12.2013, 18:21
Привет! Вот еще темы с ответами:

Надо перевести программу из ПАСКАЛЯ в СИ - C++
uses crt; var a:array of integer; m,n,i,j,k,m1,n1,q1,q2:integer; c:integer; begin clrscr; randomize; k:=0; ...

помогите перевести программу с паскаля на С++ - C++
Ребят , помогите перевести программу с паскаля на С++ , или подскажите как написать нечто подобное. Заранее благодарен. Вот задание : ...

перевести программу из паскаля в с++(для среды Borland C++) - C++
Помогите пожалуйста перевести программу из паскаля в с++(для среды Borland C++) Условие: дан символ С, изображающий цифру или...

перевести программу из паскаля в с++ (для среды Borland C++). Дана матрица размера MxN. Поменять местами столбец с номером N и первый из столбцов - C++
Помогите пожалуйста перевести программу из паскаля в с++(для среды Borland C++) Условие:дана матрица размера MxN. Поменять местами...


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

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

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