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

Перевести программу из Паскаля в С++.Дан список фамилий.Найти однофамильцев - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Виртуальные функции http://www.cyberforum.ru/cpp-beginners/thread1059525.html
Здравствуйте, помогите пожалуйста с вопросом: Заданный порожденный класс, содержащий две функции по таким именно именами, как и в базовом классе. При описании базового класса одна из этих функций...
C++ Перевести программу из Паскаля в С++ program Project1; {$APPTYPE CONSOLE} uses SysUtils; var f,f2:textfile; A:array of string; i,n,j:integer; begin http://www.cyberforum.ru/cpp-beginners/thread1059516.html
Базовые и порожденные классы C++
Здравствуйте, помогите пожалуйста с вопросом: Что должно быть предусмотрено в базовом классе, чтобы порожденный класс мог обращаться к закрытым полям базового класса? если можно то с примером.
Не получается создать экземпляр абстрактного класса C++
в общем я очень тупой, буду благодарен за умные советы, имеется класс object и наследуемые от него triangle и uravn вот фрагмент из мэйна object** A; A= new object*; for(int i=0;i<100;i++)...
C++ Нужно изменить метод ввода данных - с помощью текстового файла http://www.cyberforum.ru/cpp-beginners/thread1059490.html
Нужно изменить метод ввода данных - с помощью текстового файла #include "stdafx.h" #include <iostream> using namespace std; int main() { setlocale(LC_ALL,"Rus"); // включаем русский...
C++ Необходимо изменить способ ввода данных - с помощью текстового файла Необходимо изменить способ ввода данных - с помощью текстового файла #include "stdafx.h" #include <iostream> #include <cmath> #include <conio.h> using namespace std; int main() { подробнее

Показать сообщение отдельно
Makcon
0 / 0 / 0
Регистрация: 17.12.2013
Сообщений: 7

Перевести программу из Паскаля в С++.Дан список фамилий.Найти однофамильцев - C++

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

program Project2;

{$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.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru