Форум программистов, компьютерный форум, киберфорум
C++
Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ "Замок" (на перебор с возвратом) https://www.cyberforum.ru/ cpp/ thread210070.html
Написать программу, которая определяет: количество комнат в замке; площадь наибольшей комнаты; какую стену в замке следует удалить, чтобы получить комнату наибольшей площади. Замок...
Модуль расчёта пространственного заряда C++
Модуль расчёта пространственного заряда PIC-методом для ячеек конечно-разностной схемы и CIC-методом для конечно-разностной ячейки Исходные данные: 1) Координаты и размеры ячеек-параллелепипедов....
Использование функций в коде программы C++
Дана целочисленная квадратная матрица. Определить: сумму элементов в тех строках, которые не содержат отрицательных элементов; минимум среди сумм элементов диагоналей, параллельных главной...
C++ Циклы Напечатать в возрастающем порядке все трехзначные числа, в десятичной записи которых нет одинаковых цифр (операции деления и нахождения остатка от деления не использовать) https://www.cyberforum.ru/ cpp/ thread209439.html
C++ Курсовой проект (С++) https://www.cyberforum.ru/ cpp/ thread209388.html
Препод дал задание по программированию( C ++). Сам я электрик, ничерта не смыслю в программировании. Нашел ваш форум в надежде что вы поможете. Спасибо! ЗАДАНИЕ на курсовую работу По...
нужны решения (С++, Microsoft Visual Studio 2008(Компилятор)) C++
Всем доброе время суток вобщем у меня проблема заболел не был на занятиях в академии а нужны решенные 4 задачи, вообщем в задачах можно использовать if, switch, for(цикл), сопсна только это нам...
C++ Написать функцию TEST(A,k)
Написать функцию TEST(A,k), принимающую значение True, если се элементы k-й строки четные и положительные.
C++ классы Здравствуйте! Помогите, пожалуйста, написать задачу на С++ по классам. Вот текст: Класс «Человек» Поля: имя, рост, вес Метод: сказать свой индекс массы тела I = m/(h*h) • m — масса тела в... https://www.cyberforum.ru/ cpp/ thread209179.html
C++ Залить цветом полумесяц https://www.cyberforum.ru/ cpp/ thread209125.html
Здравствуйте. Помогите пожалуйста. Преподователь задал нарисовать флаг любой страны. Я выбрал флаг Ирака. Флаг нарисовал, осталось залить синим цветом полумесяц. Кто ответит буду очень благодарен. ...
C++ поиск слова в тексте помогите пожалуйста, очень нужна программка, которая ищет по координатам заданное слово в заданном тексте. И выдает номер этого слова в исходном тексте. Очень и очень, заранее вам благодарна! ... https://www.cyberforum.ru/ cpp/ thread208525.html
0 / 0 / 0
Регистрация: 20.11.2010
Сообщений: 16
16.12.2010, 20:06 0

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

16.12.2010, 20:06. Просмотров 1248. Ответов 1
Метки (Все метки)

Ответ

аналогичная проблема. Прошу помочь только с записью файла
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.

Вернуться к обсуждению:
перевести код с паскаля на С++
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.12.2010, 20:06
Готовые ответы и решения:

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

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

Перевести код с Паскаля на Си
Думаю Вам не составит труда ). А я запутался) uses crt; var N,M:integer; function...

Перевести код паскаля в с++
Нужно перевести данный код паскаля в с++. Задание: Найти в строке все заданные последовательности...

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