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

перевести код с паскаля на си++ - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Матрица. Удаления строк http://www.cyberforum.ru/cpp-beginners/thread214640.html
помогите написать код на с. Удалить строку содержащую все нули. срочно нужно!
C++ Работа с файлами и массивами строк В файле хранится строка вида d1± d2± …± dn, где di – числа (0 ≤ di ≤ 9). а) вывести на экран числа в порядке возрастания, б) вывести на экран записанную в тексте алгебраи-ческую сумму помогите пж с кодом, я даже без понятия с чего тут начать.. http://www.cyberforum.ru/cpp-beginners/thread214634.html
C++ Конструктор инициализации
Добрый день, возник вопрос по поводу инициализации из файла. Предположим имеется следующая иерархия классов: Класс CPerson предок для классов CSt и CWokers и к примеру для работы объявим структуру следующего вида: struct Inf { string name;//Имя
C++ E2040 Declaration terminated incorrectly
Делал прогу по очередям по книги Дейтелов, но билдер выдаёт ошибку List.h(15): E2040 Declaration terminated incorrectly, не могу понть почему, помогите. List.h: #ifndef LIST_H #define LIST_H #include<iostream.h> #include "Listnode.h" template< typename NODETYPE > class List { public:
C++ В строке заменить каждое слово child словом children http://www.cyberforum.ru/cpp-beginners/thread214620.html
В данном предложении заменить каждое слово child словом children.
C++ стандартная функция нужно написать собственную функцию форматного преобразования данных. преобразование строки в число типа float. без использования стандартной atof подробнее

Показать сообщение отдельно
Kran4
0 / 0 / 0
Регистрация: 20.11.2010
Сообщений: 16
19.12.2010, 15:44     перевести код с паскаля на си++
нужно перевести код с паскаля на си++
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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
program lr4_19;
uses crt;
var
bukvi:set of char;
f:text;
slovo,c,s,possl:string;
pslovo,i,k,j:integer;
massl:array[1..100] of string;
begin
clrscr;
assign(f,'h:/text.txt');
reset(f);
bukvi:=['A'..'Z','a'..'z'];
j:=1;
writeln('====Text=====================');
while not eof(f) do
begin
readln(f,s);
writeln(s);
i:=1;
while (i <=length(s)) do
begin
pslovo:=0;
if not (s[i] in bukvi) then inc(i);
slovo:='';
while (i <=length(s)) and (s[i] in bukvi ) do
begin
pslovo:=1;
slovo:=slovo+s[i];
inc(i);
end;
if pslovo=1 then
begin
massl[j]:=slovo;
inc(j);
end;
end;
end;
writeln('=============================');
for i:=1 to j-1 do
write(massl[i],' ');
writeln;
 
writeln('****last word****************');
possl:=massl[j-1];
writeln(possl);
writeln('*****************************');
 
for i:=1 to j do
begin
slovo:=massl[i];
c:=slovo[1];
delete(slovo,1,1);
if pos(c,slovo) > 0 then
begin
slovo:=c+slovo;
massl[i]:=slovo;
if (slovo<>possl) then writeln(slovo);
end;
end;
{ writeln(possl); esli nujno pechatat' possl }
 
close(f);
readln;
end.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 02:27. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru