Форум программистов, компьютерный форум, киберфорум
Наши страницы

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
Darrius
0 / 0 / 0
Регистрация: 19.12.2010
Сообщений: 18
#1

переписать из Pascal в C++ - C++

20.12.2010, 20:07. Просмотров 292. Ответов 0
Метки нет (Все метки)

Помогите пожалуйста переписать из Pascal в C++

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
48
49
50
program P1;
    uses crt;
 
  var f,g:file of integer;
  n,i,a,b,c:integer;
 
      begin
 
assign(f,'f');
rewrite(f);
assign(g,'g');
rewrite(g);
 
writeln('Введите количество чисел');
readln(n);
 
    for i:=1 to n do
  begin
a:=random(100);
write(f,a);
 end;
reset(f);
writeln('Содержание файла f:');
  while not eof(f) do
 begin
read(f,a);
write(a,' ');
end;
close(f);
writeln;
reset(f);
  for i:=0 to filesize(f)-2 do
 begin
seek(f,i);
read(f,a);
seek(f,i+1);
read(f,b);
c:=a*b;
write(g,c);
end;
reset(g);
writeln('Содержание файла g:');
  while not eof(g) do
 begin
read(g,a);
write(a,' ');
end;
close(g);
close(f);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.12.2010, 20:07
Я подобрал для вас темы с готовыми решениями и ответами на вопрос переписать из Pascal в C++ (C++):

Переписать с pascal на c++ - C++
const a=5.7;b0=2;bk=8;h=2;x3=30;b1=4;b2=6; begin writeln('k = ',(b0+5.6)+(b1+5.6)+(b2+5.6)+(bk+5.6)+(x3/7*5.7)); end.

Переписать с Pascal на С++ - C++
Var f1,f2: File of Real; i,n,k: Integer; x,s: Real; BEGIN Write('Введите кол-во чисел: '); Readln(n); ...

Переписать код с Pascal - C++
я тут написал на паскале нужно на С++ uses crt; var a,b:integer; q:boolean; z:real; begin clrscr; ...

Программу pascal переписать под c++ - C++
Всем доброго времени суток, прошу помощи у вас по скольку слабо разбераюсь в этой отрасли. program gth; Uses crt; ...

Программу Pascal переписать под c++ - C++
Всем доброго времени суток много увожаемые пользователи форума. Прошу помощи у вас, по скольку очень плохо владею языком c++ program...

Переписать за меня программу с Pascal на С++ - C++
Кто может первести код из Паскаля в си++? uses wincrt; var x : array of byte i,j, m,n : byte; begin ...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.12.2010, 20:07
Привет! Вот еще темы с ответами:

Программы pascal переписать под c++ - C++
Всем доброго времени суток помогите переписать программы под c++ Условие Дано натуральное число n, и действительное число x....

Программы pascal переписать под c++ - C++
Всем доброго времени суток помогите переписать программы под c++ Условие Дано натуральное число n, и действительное число x....

Программы pascal переписать под c++ - C++
Доброго времени суток. вот последняя программа которую нужно сделать под c++ Я знаю парни я вам надоел уже :) Больше не буду вас...

Программу pascal переписать под c++ - C++
Напечатать в возрастающем порядке все числа от 100 до 999, в десятичной записи в которых нет одинаковых цифр. Var s:string; ...


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

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru