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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Объяснить директивы препроцесора http://www.cyberforum.ru/cpp-beginners/thread1224468.html
Добрый день, уважаемые. Встретил такие вот не знакомые мне директивы, объясните пожалуйста. #if 0 // какой-то код #endif #if 1
C++ Перегрузка оператора [] Есть: class any{ char arr } http://www.cyberforum.ru/cpp-beginners/thread1224464.html
Ошибка при выполнении программы "division by zero" C++
Прошу, обьясните мне, почему когда я уже запускаю прогу и ввожу числа вилетает ошибка:
C++ Неконтролируемое завершение программы подсчета введенных слов
Решаю вот такую задачу: Напишите программу, которая использует объект string и цикл для чтения но одному слову за раз до тех пор, пока не будет введено слово done. Затем программа должна...
C++ Указатели, функции и динамическое выделение памяти: вывести строки с неповторяющимися данными http://www.cyberforum.ru/cpp-beginners/thread1224441.html
Задана матрица A(n,n) ,n<=15 . Написать программу, которая находит и выводит на экран номера тех строк, элементы которых не повторяются. Если таких нет, то выводит уведомление об этом.
C++ Перевести с Pascal на C++ Здравствуйте! Помогите пожалуйста перевести вот эти программы с языка Pascal на C++ Сам я очень плохо знаю C++ поэтому был бы крайне признателен вам! 2) var s, t: real; i, n, x: integer; begin... подробнее

Показать сообщение отдельно
aleksch
0 / 0 / 0
Регистрация: 03.07.2014
Сообщений: 12

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

08.07.2014, 15:52. Просмотров 231. Ответов 1
Метки (Все метки)

 Комментарий модератора 
Каково содержание задачи?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var a:array[1..10,1..10] of integer;
  i,j,k,l,q,w,e:integer;
begin            // Randomize;
  for i:=1 to 10 do begin
    k:=0;l:=-1;
    for j:=1 to 10 do begin
      a[i,j]:=5-random(10); write(a[i,j]:5);
      if (a[i,j]<0)and(k<2) then begin inc(k); l:=j;end;
    end; writeln;
    for q:=l to 10 do begin
      for w:=l to 10 do begin
        if a[i,q]<a[i,w] then begin e:=a[i,q];a[i,q]:=a[i,w];a[i,w]:=e;end;
      end;
    end;
  end;
  writeln;
  for i:=1 to 10 do begin
    for j:=1 to 10 do begin
      write(a[i,j]:5);
    end;
 writeln;
  end;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.