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

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

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

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

17.12.2011, 18:55. Просмотров 222. Ответов 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.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.12.2011, 18:55
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Подскажите как с паскаля перевести в С?За ранее спасибо (C++):

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

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

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

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

Как можно перевести этот код с паскаля в с++? - C++
uses crt; const n=10; var a:array of integer; i,j,p,k:byte; begin clrscr;

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

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

Перевести из паскаля в c++ - C++
собственно вот паскалевский код, тут через файлы. На с++ надо через ввод/вывод. var N:integer; E:integer; En1,En2:integer; ...

перевести на c++ с паскаля - C++
переведите пожалуйста как написать эти строчки на с++ for i:=1 to Length(s) do for j:=length(sl) downto 1 do Добавлено...

Перевести из паскаля на c++ - C++
Program laba2; var d, m: integer; begin writeln('Введіть день'); readln (d); writeln('Введіть мiсяць'); readln (m); ...

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


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

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

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