Форум программистов, компьютерный форум, киберфорум
С++ для начинающих
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 1
Регистрация: 17.12.2013
Сообщений: 7
1

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

28.12.2013, 18:21. Показов 373. Ответов 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
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.12.2013, 18:21
Ответы с готовыми решениями:

Перевести программу с паскаля на си
var a,b,c:integer; begin if (a=b) and (b=c) then writeln('равносторонний') else if (a=b)...

Перевести программу с Паскаля на Си++
const a = 0.5; b = 2.9; X = 0.3; var U, F : real; begin U := (sqr(a)*X...

Перевести программу из паскаля
Uses crt; Var b,g: Array of Integer; d,m,s1,s2,i: Integer; sr1,sr2: Real; BEGIN Clrscr;...

Перевести программу с паскаля на си
uses crt; var x,y,z:real; begin read(x,y,z); if x+y+z>x*y*z then writeln(x+y+z) else...

__________________

Записывайтесь на профессиональные курсы C++ разработчиков
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.12.2013, 18:21

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

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

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

Перевести программу с Паскаля на C++
Никак не получается транспортировать программу в C++ var a,b,c,x,F:real; begin ...

Перевести программу с Паскаля на C++
var n,k: integer; begin write ('n='); readln (n); k:=0; while n>0 do begin k:=k+1; ...


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

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

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