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

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

Войти
Регистрация
Восстановить пароль
 
yurecmoget
Сообщений: n/a
#1

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

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

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++
Вот, добрые люди, само задание: заданной и действительной квадратной матрицы порядка n найти сумму элементов строки, в которой расположен...

Пожалуйста переведите из С++ в С(Си) - C++
Задание: Работа со строками. Найти длину самого короткого слова #include <string> #include <iostream> #include <sstream> using...

Переведите пожалуйста с паскаля на с++ - C++
var i,j: integer; function lol(x: integer): integer; var i,k: integer; begin k:=0; for i:=1 to x-1 do if x mod i = 0 then ...

переведите с паскаля на с++.пожалуйста - C++
uses crt; var i,j,n,k:integer; a:array of byte; begin Write ('Введите n='); Readln(n); clrscr; k:=0; j:=0; i:=1;

переведите с Паскаля на си++ пожалуйста! - C++
Дано имя файла и целое число N (0 < N < 27). Создать текстовый файл с указанным именем и записать в него N строк длины N; строка с номером...

Переведите пожалуйста формулу - C++
Переведите формулу

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.06.2013, 20:20
Привет! Вот еще темы с ответами:

Переведите пожалуйста прогамму на С++ - C++
program variant23; uses crt; var s,a:real; n:integer; Begin clrscr; writeln('Введите а'); read(a); S:=0; for n:=1 to 10 do

Переведите пожалуйста прогамму на С++ - C++
program ffair; var x,a,b:real; function Sign(x:real):integer; begin if a+b<0 then x:=-1 else if a+b=0 then ...

Переведите пожалуйста прогу) - C++
Program m3; Uses CRT; Const n=5; m=5; k1=100; k2=k 1 *2+1; Type matr =array of integer; Var a :matr; i, j, f, ma...

переведите с Паскаля на си++ пожалуйста! - C++
в Паскале получается...а в СИ++ нет( procedure Mean(x,y:real; var AMean,GMean:real); begin AMean:=(x+y)/2; GMean:=sqrt(x * y); ...


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

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

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