Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > C/C++ программирование > Visual C++
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.03.2013, 15:16   #1
V1rus.25
Пользователь
 
Аватар для V1rus.25
 
Регистрация: 09.04.2012
Сообщений: 62
Печаль перевод текста с Pascal

Данная действительно квадратная матрица порядка n. Найти наибольшее из значений элементов, расположенных в закрашенной части матрицы (б)



Обязательное условие: вводить размер, и саму матрицу с клавиатуры.

Код:
var a:array[1..100, 1..100] of integer;
    i,j,amax,n,k,c:integer;
    begin
    WriteLn('Введите размеры матрицы:');
    ReadLn(n);
    WriteLn('Исходная матрица:');
    for i:=1 to n do begin
      for j:=1 to n do begin
      a[i,j]:=random(50)-25;
      Write(a[i,j]:4);
      end;
    WriteLn();
    WriteLn();
    end;
    k:=0;
    i:=1;
    j:=1;
    c:=a[i,j];
    for i:=1 to n do begin
      for j:=1 to k+1 do begin
      if c<a[i,j] then 
      c:=a[i,j];
      end;
      k:=k+1;
    end;
    WriteLn();
    WriteLn('Максимальный элемент: ',c:3);
 end.
V1rus.25 вне форума Ответить с цитированием
Старый 29.03.2013, 11:18   #2
DAVID973
Пользователь
 
Регистрация: 10.03.2012
Сообщений: 16
По умолчанию

Код:

    #include <iostream>
    #include <stdlib.h>
    #include <stdio.h>
    #include <vector>
    #include <conio.h>
    #include <time.h>

    using namespace std;

    int gen_random( int range_min, int range_max ) 
    {
        if ( range_min>range_max ) 
        {
	        int min_max = range_min;
	        range_min = range_max;
	        range_max = min_max;
        }
        return range_min+rand()%(range_max-range_min+1);
    } 

	
    // ПОСТРОЧНОЕ ПРЕОБРАЗОВАНИЕ = = =

    int a[100][100];                                        //var a:array[1..100, 1..100] of integer;
    int i,j,amax,n,k,c;                                     //i,j,amax,n,k,c:integer;
    int main(){ setlocale(0,"Russian"); srand(time(NULL));  //begin
    cout << "Введите размеры матрицы: ";                    //WriteLn('Введите размеры матрицы:');
    cin  >> n;                                              //ReadLn(n);
    cout << "Исходная матрица: " << endl << endl;           //WriteLn('Исходная матрица:');
    for (i=0; i<n; i++){                                    //for i:=1 to n do begin
    for (j=0; j<n; j++){                                    //for j:=1 to n do begin
    a[i][j] = gen_random(0,50)-25;                          //a[i,j]:=random(50)-25;
    cout.width(4); cout << a[i][j];                         //Write(a[i,j]:4);
    }                                                       //end;
    cout << endl;                                           //WriteLn();
    cout << endl;                                           //WriteLn();
    }                                                       //end;
    k = 0;                                                  //k:=0;
    i = 0;                                                  //i:=1;
    j = 0;                                                  //j:=1;
    c = a[i][j];                                            //c:=a[i,j];
    for (i=0; i<n; i++){                                    //for i:=1 to n do begin
    for (j=0; j<n; j++){                                    //for j:=1 to k+1 do begin
    if (c<a[i][j])                                          //if c<a[i,j] then
    c=a[i][j];                                              //c:=a[i,j];
    }                                                       //end;
    k=k+1;                                                  //k:=k+1;
    }                                                       //end;
    cout << endl;                                           //WriteLn();
    cout << "Максимальный элемент: "; cout.width(3); cout << c;  //WriteLn('Максимальный элемент: ',c:3);
    _getch(); return 0; }                                   //end.

Последний раз редактировалось DAVID973; 29.03.2013 в 15:19.
DAVID973 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Перевод текста в цифры Vadiliy Общие вопросы C/C++ 3 26.12.2012 15:19
Перевод текста в бинарный код в C. MARTINS Помощь студентам 0 13.03.2011 13:03
Си. Перевод текста в бинарный код Geremy Помощь студентам 0 02.06.2009 15:05
Перевод текста... Ar][ange1 Общие вопросы Delphi 1 06.01.2009 06:56
Перевод кода из Pascal в Object Pascal zemskov77 Общие вопросы Delphi 1 03.01.2009 09:37