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

Перевести с 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. Затем программа должна сообщить количество введенных слов (исключая done). Пример запуска должен быть таким: Вводите слова (для завершения введите слово done): anteater birthday category dumpsteг envy finagle geometry...
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 readln(i); s:=1;t:=1; for i:=1 to n do begin t:=t*x/i; подробнее

Показать сообщение отдельно
aleksch
0 / 0 / 0
Регистрация: 03.07.2014
Сообщений: 12
08.07.2014, 15:52     Перевести с Pascal на C++
 Комментарий модератора 
Каково содержание задачи?

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.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 19:00. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru