Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » C/C++ - C/C++ - Перевод с Pascal на C

Ответить
Настройки темы
C/C++ - C/C++ - Перевод с Pascal на C

Новый участник


Сообщения: 2
Благодарности: 0

Профиль | Отправить PM | Цитировать


Помогите с программой нужно переделать ее на C

Код: Выделить весь код
Program Zavdanya_3;
Uses crt;
Type masiv=array[1..10000]of Integer;
Var F,f1:file of integer;
y,R:byte;
Procedure Stvorenna_file (var F:file of integer);
var x:integer;
i,n:integer;
Begin rewrite (F);
Write ('Созданный файл с размерностью: ');
read (n);
For i:=1 To n Do
Begin x:=Random(100)-50;
Write (f,x); End;
Close (F);
writeln;
write('файл создан!');
End;
Procedure Pereglad_file (var F:file of integer);
var x:integer;
Begin reset (F);
Write ('Вміст файлу: ');
While not eof(f) do
begin read (f,x);
write (x,' ');
End;
Writeln;
Writeln;
Write ('Файл прочитано полностью');
close (F);
End;
Procedure Dopovnenna_file (var F:file of integer);
Var x,a,i:integer;
Begin reset (f);
seek (f,filesize(f));
write ('Введите количество элементов на которую нужно увеличить файл: ');
Read (a);
For i:=1 To a Do
Begin x:=random(100)-50;
write (F,x);
End;
close (f);
end;
Procedure Vulychenna_10 (var F:file of integer);
Var Q:masiv; x:integer;
a,b,c,i,v,p:integer;
Begin
i:=1; reset (f);

While not eof(f) do
begin Read (F,x);
write(x,' ');
If (x mod 7)=0 Then i:=i*x;
End;
writeln;
if i=1 then writeln('Цифр кратных 7 нет')
else
writeln('Добуток: ',i);
Close (F);
End;
Begin Assign (F,'Zavdanya_3.txt');
Repeat
Write('--------------------------------------------------------------------------------');
Write (' главное меню');
Writeln;
Writeln ('1 - создание файла');
Writeln ('2 - просмотр файлу');
Writeln ('3 - дополнение файла');
Writeln ('4 - Вывести произведение чисел которые кратны числу 7');
Writeln ('0 - закончить программу');
Write('--------------------------------------------------------------------------------');
Write ('Введите один из пунктов главного меню: ');
Read (r);
Case r of
1:Stvorenna_file (F);
2:Pereglad_file (F);
3:Dopovnenna_file (f);
4:Vulychenna_10 (F);
0:Writeln ('конец программы');
End;
Writeln;
Until r=0;
End.

Отправлено: 22:31, 04-06-2014

 

Ветеран


Сообщения: 1635
Благодарности: 146

Профиль | Отправить PM | Цитировать


Типа, поискать программки для этого не пытались?
Цитата:
p2c -- a Pascal to C translator

p2c converts the computer language Pascal to C which you can then compile with cc or gcc.

Отправлено: 14:44, 05-06-2014 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Новый участник


Сообщения: 2
Благодарности: 0

Профиль | Отправить PM | Цитировать


не умею пользоваться этой программой

Отправлено: 17:20, 05-06-2014 | #3


Ветеран


Сообщения: 1635
Благодарности: 146

Профиль | Отправить PM | Цитировать


Ох, лучше бы Вы такой ответ не писали!

Отправлено: 16:45, 10-06-2014 | #4



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » C/C++ - C/C++ - Перевод с Pascal на C

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
C/C++ - Перевод с Pascal на C++ Snake750 Программирование и базы данных 14 14-09-2015 04:48
C/C++ - [решено] Перевод с Pascal на C++ sleepking89 Программирование и базы данных 3 16-02-2013 04:32
C/C++ - Перевод с Pascal на C++ Ru1nN Программирование и базы данных 0 21-12-2011 22:45
C/C++ - Перевод процедуры с Pascal на C++ Snake750 Программирование и базы данных 56 05-04-2011 09:39
C/C++ - Перевод с Pascal на C++ DimaZone88 Программирование и базы данных 0 13-05-2010 13:52




 
Переход