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

Перегнать с паскаля на чистый С - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Составление программ на использование двумерных массивов http://www.cyberforum.ru/cpp-beginners/thread519621.html
Написать программу, которая запрашивает размерность двумерного массива, заполняет его случайными числами от 4 до 12 и меняет местами первый и последний столбец массива. Добавлено через 1 час 6 минут upupup
C++ Ошибка структуры о_О void AlgA (ListElem*begin1, ListElem*begin2, ListElem*&begin3) //Составляем третий список из элементов, которые входят в первый и второй { if (!begin1) return; if (!begin2) return; ListElem*curr1 = begin1; ListElem*curr2 = begin2; while (curr1) http://www.cyberforum.ru/cpp-beginners/thread519605.html
Во введенном слове подсчитать количество различных пар букв. C++
Задача по Си. Во введенном слове подсчитать количество различных пар букв. (Например, в слове babacabacd 5 различных пар букв.) даже не знаю с чего начать
C++ Удалить динамически выделенную память
Получится ли освободить динамически выделенную память в интерфейсе одного класса, в интерфейсе другого класса, с условием что я использую композицию?
C++ Всевозможные числа из цифр введенного числа. Без Массивов!! http://www.cyberforum.ru/cpp-beginners/thread519574.html
Здравствуйте, помогите пожалуйста, дали задачку такого плана Пользователь вводит число. Составить всевозможные числа из цифр введенного числа. Без массивов. Может с массивами еще более менее понятно, а как сделать без них не представляю.
C++ Сложение двухбайтовых слов, при переполнении к сумме добавляется единица. В общем, нужно считать произвольное слово из произвольного же файла, это я сделал. Но вот дальше нужно преобразовать этот "строковый ключ" в целое число данным способом: "Сложение двухбайтовых слов, при переполнении к сумме добавляется единица". Не пойму, как выполнить само сложение. Вот что написал сам в этой функции: int HashFunc(char* key) { union { char* KeyString; //копия... подробнее

Показать сообщение отдельно
Fobos1994
4 / 4 / 0
Регистрация: 15.04.2011
Сообщений: 271
15.03.2012, 19:50     Перегнать с паскаля на чистый С
Вот эту програму нужно пергнать с паскаля на чистый С

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
program pr_19;
uses CRT;
var f,g,d:file of integer;
a,s,h,n,i:integer;
begin
clrscr;
assign(f,'input.dat');
assign(g,'vid.dat');
assign(d,'out.dat');
rewrite(f);
randomize;
for i:=1 to 20 do
begin
a:=random(20)-10;
write(f,a);
write(a,' ');
end;
close(f);
writeln;
s:=0;
reset(f);
rewrite(g);
rewrite(d);
for i:=1 to filesize(f) do
begin
read(f,a);
if a<0 then
begin
s:=s+a;
write(g,s);
end;
if a>-3 then write(d,a);
end;
writeln('Suma vid`emnih = ',s);
close(f);
close(g);
close(d);
reset(d);
writeln('V fayle "d" ',filesize(d),'  elementov');
for i:=1 to filesize(d) do
begin
read(d,a);
writeln(a);
end;
close(d);
readln;
end.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 23:59. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru