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

Паскаль>>>С++ Переведите, пожалуйста, код - C++

Восстановить пароль Регистрация
 
yurecmoget
Сообщений: n/a
14.06.2013, 20:20     Паскаль>>>С++ Переведите, пожалуйста, код #1
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
uses crt;
var f:file of integer;
    g:file of real;
    n,a,b,i,j:integer;
    c:real;
begin
clrscr;
randomize;
assign(f,'file1');
rewrite(f);
assign(g,'file2');
rewrite(g);
write('Ckolko 4icel vvesti v fayl N n=');
readln(n);
for i:=1 to n do
 begin
  a:=random(10)+1;
  write(f,a);
 end;
writeln('Icxodnbly fayl:');
reset(f);
while not eof(f) do
 begin
  read(f,a);
  write(a,' ');
 end;
close(f);
writeln;
reset(f);
c:=1;
while not eof(f) do
 begin
  read(f,a);
  c:=c*a;
  write(g,c);
 end;
close(f);
writeln('Fayl proizvedeniy:');
reset(g);
while not eof(g) do
 begin
  read(g,c);
  write(c:0:0,' ');
 end;
close(g);
readln
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.06.2013, 20:20     Паскаль>>>С++ Переведите, пожалуйста, код
Посмотрите здесь:

переведите с Паскаля на си++ пожалуйста! C++
C++ Переведите пожалуйста прогамму на С++
C++ Переведите пожалуйста прогу)
Переведите, пожалуйста, с паскаля на C++ C++
C++ Переведите с Pascal на С++ пожалуйста
переведите, пожалуйста, код паскаля в с++ C++
C++ Переведите пожалуйста с CLIPS на C++
C++ Пожалуйста, переведите с Pascal на C++

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

Текущее время: 14:38. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru