Форум программистов, компьютерный форум, киберфорум
С++ для начинающих
Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Работа с файлами. Найти слово, встречающееся в каждом предложении, или сообщить, что такого слова нет https://www.cyberforum.ru/ cpp-beginners/ thread1579891.html
Создать файл, содержащий текст на английском языке. Найти слово, встречающееся в каждом предложении, или сообщить,что такого слова нет.Результат записать в новый файл 5 задача на...
Матрица, инициализация переменных C++
Здравствуйте. Написала программу, которая должна в матрице в строках с отрицательными элементами брать элемент, который находится на главной диагонали и найти среди таких элементов максимальный...
C++ Структура в С++
Добрый день всем! Вот моё задание: Известны фамилии 25 человек, их семейное положение: женат (замужем) или нет, и сведения о наличии детей (есть или нет). Определить фамилии женатых (замужних)...
C++ Определить какое из любых двух из 24 событий произошло в эти сутки раньше Известна информация о 24 событиях, произошедших в течении суток: часы (значения от 0 до 23), минуты (от 0 до 59) и секунды (от 0 до 59). Составить программу, определяющую, какое из любых двух событий... https://www.cyberforum.ru/ cpp-beginners/ thread1579850.html
C++ Smart pointers + полиморфизм + делегирование. Ошибка компиляции https://www.cyberforum.ru/ cpp-beginners/ thread1579835.html
Доброго времени суток, уважаемые форумчане! Есть вопрос по поводу использования умных указателей в качестве указателей на абстрактные классы. Сразу к коду: /*Абстрактный класс:*/ class View...
C++ Найти наименьший непарный элемент массива по значению
Доброе время суток всем) Допустим есть массив с элементами {1,4,6,1,2,3,1,2,2,3}. Программа должна вывести наименьший непарный элемент по значению, то есть 4. А выводит 1. Уже голова кипит, помогите...
Ошибки сборки DLL C++
Хочу написать DLL. Написал данный код, который под linux собирается без проблем. #include <string> #ifdef __WIN32__ #define EXPORT __declspec(dllexport) #else #define EXPORT #endif
C++ Найти количество элементов последовательности кратных ее первому элементу Дана последовательность из n целых чисел. Найти количество элементов этой последовательности, кратных ее первому элементу. так не работает, я явно что-то забыл... for (int i = 0; i < 10; i++) {... https://www.cyberforum.ru/ cpp-beginners/ thread1579798.html
C++ Скопировать элементы первого массива во второй https://www.cyberforum.ru/ cpp-beginners/ thread1579794.html
Как можно одной функцией скопировать все элементы первого массива во второй, но так чтобы они сохранились в элементы второго массива с определенной позиции ?? Можете простенький примерчик с такой...
C++ Работа с несколькими файлами Имеются два типизированных файла одинакового размера, элементами которых являются отдельные символы. Выяснить, совпадают ли их элементы. Если нет, то получить номер первого компонента, в котором эти... https://www.cyberforum.ru/ cpp-beginners/ thread1579791.html
0 / 0 / 0
Регистрация: 28.05.2015
Сообщений: 35
0

Перепишите с Pascal на C++

13.11.2015, 13:12. Просмотров 866. Ответов 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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
uses crt;
 
const
  nmax = 30;
 
type
  TInfo = record
    M : real;
    V : real;
  end;
 
var
  Info : array [1..nmax] of TInfo;
  i, n, imin : integer;
  min : real;
 
begin
  Repeat
    Write('Количество тел (не более ', nmax, '): ');
    Readln(n);
  until n in [1..nmax];
  Writeln('Введите данные о телах: ');
  for i := 1 to n do
    begin
      Write('Масса тела №', i, ': ');
      Readln(Info[i].M);
      Write('Объем тела №', i, ': ');
      Readln(Info[i].V);
    end;
  min := Info[1].M / Info[1].V;
  imin := 1;
  for i := 2 to n do
    if min > Info[i].M / Info[i].V then
      begin
        min := Info[i].M / Info[i].V;
        imin := i;
      end;
  Writeln('Минимальная плотность у тела №', imin, ' и она равна ', min:0:4, ' кг/м^3');
  Readln;
end.


Вернуться к обсуждению:
Перепишите с Pascal на C++
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.11.2015, 13:12
Готовые ответы и решения:

Перепишите программу из Pascal в C++
Здравствуйте. Прошу вас о помощи. Есть программа на Pascal. Нужно переписать её на C++, чтобы она...

Перепишите, пожалуйста, программу с pascal на с++
Var a, b, c, m, n, d: integer; L: boolean; begin writeln('a'); read(a); writeln('b');...

Перепишите задачу из Pascal на C++ (Есть условие)
Здравствуйте, прошу о помощи. Решите задачу: В начальной школе Будущего изучали целые числа типа...

дан код на С++ перепишите на Pascal
#include &lt;iostream.h&gt; #include &lt;conio.h&gt; #include &lt;math.h&gt; void main() { clrscr(); int...

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