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

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

Войти
Регистрация
Восстановить пароль
 
Руслан21
0 / 0 / 0
Регистрация: 11.12.2011
Сообщений: 15
#1

Подскажите как с паскаля перевести в С?За ранее спасибо - C++

17.12.2011, 18:55. Просмотров 212. Ответов 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
uses crt;
var x:array[1..10,1..10] of real;
i,j,n,ind:integer; pr,max:real;
begin
randomize; clrscr;
writeln('Введите размерность массива* <= 10');
readln(n);
for i:=1 to n do
 begin
 for j:=1 to n do
  begin
  x[i,j]:=random*10-5;
  write(x[i,j]:6:2);
  end;
 writeln;
 end;
writeln; pr:=1;
for i:=1 to n do
 begin
 max:=x[i,1];
 for j:=2 to n do
 if x[i,j]>max then  begin max:=x[i,j]; ind:=j; end;
 writeln('‚В ',i,' строке максимальным является ',ind,' элемент, равный =',max:0:2);
 pr:=pr*max;
 end;
writeln('Произведение макс. зн. = ',pr:0:2);
readkey;
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.12.2011, 18:55     Подскажите как с паскаля перевести в С?За ранее спасибо
Посмотрите здесь:

Уважаемые програмеры помогите с массивами на с++. За ранее огромное спасибо - C++
1ДанцелочисленныймассивразмераN. Вывестивначале все содержа- щиесявданноммассивечетныечиславпорядкевозрастанияихиндексов, а затем— все...

Как перевести убывающий цикл из паскаля в C++? - C++
Не могу понять как перевести строчку кода из Pascal на C++. Подскажите пожалуйста For j:=n Downto (i+1) Do

Как можно перевести этот код с паскаля в с++? - C++
program razbienie_mnozhestwa(input,output); var i,j,k,n:byte;wper:arrayof boolean; sled,pred,blok:arrayof byte; procedure...

Как можно перевести фрагмент кода с паскаля в с++? - C++
begin j:=1; {номер первого блока} repeat write('( '); for i:=j to n do if blok=j then write(i, ' '); {если число і из блока...

Подскажите как перевести из с++ в паскаль - C++
Нужно перевести из с++ в борланд паскаль, или paskal.ABC.Net Задача программы такая: В честь успешного окончания первой четверти...

Перевести с Паскаля на С++ - C++
const n=10; var a,b: array of integer; i,j,k,km: byte; begin writeln('Исходная матрица:'); for i:=1 to n do ...

Перевести из паскаля в С - C++
Условие: Постройте массив p=2,p,...,p, где p=2, p=3, ..., p - n-е простое число uses crt; const maxn = 100; var a: array of...

Перевести из паскаля на с++ - C++
program laba3; var n, i: integer; a, y: real; begin writeln ('Введите n'); ...

Перевести с паскаля на си - C++
Здравствуйте,помогите пожалуйста перевести с паскаля на си var s: string; i: byte; sum,c,k,max: integer; begin sum:=0;...

Перевести с паскаля на С++ - C++
Program p1; Var x,i,n:integer; Begin Write ('n= '); Read (n); x:=10; i:=0; repeat if (n div x) &lt;&gt; 0 then...


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

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

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