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

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

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

Переведите с Pascal на C++ - C++

09.04.2014, 16:39. Просмотров 193. Ответов 1
Метки нет (Все метки)

Пожалуйста, переведите на C++
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var a:array[0..99,0..99] of longint;
n,m,i,j,i1,j1,max:Longint;
begin
 read(n,m);
 for i:=0 to n-1 do
  for j:=0 to m-1 do
   read(a[i,j]);
 max:=a[0,0];
 i1:=0;
 j1:=0;
 
 for i:=0 to n-1 do
  for j:=0 to m-1 do
   if a[i,j]>max then
    begin
     max:=a[i,j];
     i1:=i;
     j1:=j;
    end;
  writeln (max);
   write(i1,' ',j1);
end.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.04.2014, 16:39
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Переведите с Pascal на C++ (C++):

Переведите с Pascal на C++ - C++
Var f,g: Text; i,n: Integer; s: String; BEGIN Write('Vvedite kol-vo chisel: '); Readln(n); Randomize; ...

Переведите с Pascal на C++ - C++
Уважаемые программисты, переведите с Pascal на C++, пожалуйста var a, h, z:longint; tz, tgz, rez:real; begin readln (a,...

Переведите с Pascal на C++ - C++
uses crt; var s:string; i,m,n:integer; begin clrscr; writeln('введите текст'); readln(s); for i:=1 to length(s) do m:=0;

Переведите с Pascal в C++ - C++
помогите пож с заданиями,очень нужно на завтра( 1) переведите пож в с ++ код var a1,b1,h1,p1,s1,a2,b2,h2,p2,s2,sp,ss:Real; ...

Переведите из Pascal в C++ - C++
Переведите из Pascal в C++, пожалуйста. type Zavedenie = record typ : Byte; kol : word; end; var a : array of...

Переведите с Pascal на C++ - C++
var m, n, i : integer; a : array of longint; begin assign(input,'input.txt'); reset(input); 268 assign(output,'output.txt');...

1
Тамика
Котовчанин
917 / 461 / 145
Регистрация: 16.02.2010
Сообщений: 3,239
Записей в блоге: 27
09.04.2014, 17:44 #2
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
C++
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
#include<iostream>
 
int main()
{
    long int a[99][99];
    long int n, m, i , j , i1, j1, max;
    std::cin >> n;
    std::cin >> m;
    for (i = 0; i < n - 1; ++i)
        for (j = 0; j < m- 1; ++j)
            std::cin>>a[i][j];
    max = a[0][0];
    i1 = 0;
    j1 = 0;
 
    for (i = 0; i < n - 1; ++i)
        for (j = 0; j < m- 1; ++j)
            if (a[i][j] > max) 
            {
                max = a[i][j];
                i1 = i;
                j1 = j;
            }
        std::cout << "\n" << max;
        std::cout << i1 << " " << j1;
        system("pause>>null");
}
Добавлено через 38 минут
Цитата Сообщение от nata95 Посмотреть сообщение
Пожалуйста, переведите на C++
Напишите задание. Так как программа довольно глупо изначально написана.

Добавлено через 1 минуту
Понятно, что максимум, индексы и всё такое. А условия начальные какие?
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.04.2014, 17:44
Привет! Вот еще темы с ответами:

Переведите с Pascal на C++ - C++
program stringtale; var x,y:array of char; n,i,s:integer;t:boolean;p:char; Begin readln(n); for i:=1 to n do...

Переведите с Pascal на С++ - C++
Пожалуйста, переведите с Pascal на С++ function Min(a, b, c, d: integer): integer; var iMIn: integer; begin iMin := a; ...

Пожалуйста, переведите с Pascal на C++ - C++
Помогите, пожалуйста. Времени в обрез. var arr: array of integer; i,n: integer; begin read(n); for i := 1 to n do ...

Переведите с Pascal на С++ пожалуйста - C++
program asd; var r,V:real; begin write(‘введите радиус r’); readln(r); V:=4/3*3.14*sqr(r)*r; write(‘объем...


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

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

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