C/C++ - C/C++ - Перевод с Pascal на C

C/C++ - C/C++ - Перевод с Pascal на C

andrew17

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

Сообщения: 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