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

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

Восстановить пароль Регистрация
Другие темы раздела
C++ "Замок" (на перебор с возвратом) http://www.cyberforum.ru/cpp/thread210070.html
Написать программу, которая определяет: количество комнат в замке; площадь наибольшей комнаты; какую стену в замке следует удалить, чтобы получить комнату наибольшей площади. Замок условно разделен на M*N клеток (М<=50, N<=50). Каждая такая клетка может иметь от 0 до 4 стен.
C++ Модуль расчёта пространственного заряда Модуль расчёта пространственного заряда PIC-методом для ячеек конечно-разностной схемы и CIC-методом для конечно-разностной ячейки Исходные данные: 1) Координаты и размеры ячеек-параллелепипедов. 2) Набор трубок тока в виде последовательностей отрезков прямой с заданными параметрами: – координаты концов отрезков; – распределение заряда на каждом отрезке. парни может ктонибудь... http://www.cyberforum.ru/cpp/thread209977.html
Надо решить "Дано трехзначное число. Определить входит ли в него цифра 4." C++
Дано трехзначное число. Определить входит ли в него цифра 4.
C++ Фундоментальные циклы графа
Нужна программа на C\C++.по фундоментальным циклам графа,есть прога подобная на паскале но она у меня почемуто не работает...хотя пример взят из книжки где автор утверждает что она работает))) вот она помогите кто чем сможет((( Program GraphCycle; {Фундаментальные циклы графа} uses CRT,DOS; Const nVertex=100; {Максимальное количество вершин} nAdjacent=1000; {Максимальная длина списка...
C++ Использование функций в коде программы http://www.cyberforum.ru/cpp/thread209843.html
Дана целочисленная квадратная матрица. Определить: сумму элементов в тех строках, которые не содержат отрицательных элементов; минимум среди сумм элементов диагоналей, параллельных главной диагонали матрицы. Отдельно написал два кода: Дана целочисл. квадр. матр. Найти сумму эл-тов в тех строках, которые не содержат отриц. эл-тов.
C++ Создать новый файл, где удалены все числа, являющиеся полными квадратами Помогите решить данную зачётную задачу в Си: В файле записана непустая последовательность целых чисел (целое- непустая последовательность десятичных цифр, возможно начинающаяся знаком + или-). Создать новый файл, где удалены все числа, являющиеся полными квадратами подробнее

Показать сообщение отдельно
Kran4
0 / 0 / 0
Регистрация: 20.11.2010
Сообщений: 16
16.12.2010, 20:06     перевести код с паскаля на С++
аналогичная проблема. Прошу помочь только с записью файла
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.
 
Текущее время: 05:57. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru