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

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

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

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

13.11.2015, 13:12. Просмотров 143. Ответов 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.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.11.2015, 13:12
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перепишите с Pascal на C++ (C++):

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

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

Перепишите с С на С++ - C++
#include<conio.h> #include<stdio.h> const int N = 10; main(){ int A, i, b; for(i=0; i<N; i++){ ...

Перепишите код - C++
Здраствуйте, помогите пожалуйста переписать код так что бы не через указатель temp, а через вызов функции с тела программы. #include...

перепишите на C++ пожалуйста - C++
Перепешите пожалуйста на С/С++. uses crt; var a:array of integer; n,i:integer; begin writeln('Введите любые числа от -10 до...

Перепишите пожалуйста на C++ - C++
procedure TForm1.Button1Click(Sender: TObject); var r5,x1,y1,x2,y2,x3,y3,x4,y4:integer; l,n,r4,r3,r1,r2:integer; begin ...

1
Kerry_Jr
Модератор
Эксперт PHP
2201 / 1997 / 700
Регистрация: 14.05.2014
Сообщений: 5,856
Записей в блоге: 1
Завершенные тесты: 5
13.11.2015, 13:34 #2
ВС17061998,
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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
#include <iostream>
 
struct TInfo
{
    double M, V;
};
 
int main()
{
    const int N_MAX = 30;
    TInfo Info[N_MAX];
    int i, i_min, n;
    double min, temp;
    
    do
    {
        std::cout << "Количество тел (не более " << N_MAX << "): ";
        std::cin >> n;
    }
    while (n < 0 || n > N_MAX);
    
    std::cout << "Введите данные о телах: " << std::endl;
    
    for (i = 0; i < n; ++i)
    {
        std::cout << "Масса тела №" << i + 1 << ": ";
        (std::cin >> Info[i].M).get();
        std::cout << "Объем тела №" << i + 1 << ": ";
        (std::cin >> Info[i].V).get();
    }
    
    min = Info[0].M / Info[0].V;
    i_min = 1;
    for (i = 1; i < n; ++i)
    {
        temp = Info[i].M / Info[i].V;
        if (temp < min)
        {
            min = temp;
            i_min = i + 1;
        }
    }
    
    std::cout.fixed;
    std::cout.precision(4);
    std::cout << "Минимальная плотность у тела №" << i_min << " и она равна " << min << " кг/м^3" << std::endl;
}
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.11.2015, 13:34
Привет! Вот еще темы с ответами:

Перепишите строчку на printf_s - C++
case 1: cout &lt;&lt; &quot;\n Red&quot;; break; как строчку эту переписать на printf_s

Перепишите, пожалуйста, программу, используя цикл for - C++
#include &quot;stdafx.h&quot; #include &lt;iostream&gt; #include &lt;math.h&gt; using namespace std; int main() { double y, x, a, b, h, p, eps,...

Перепишите мой код через scanf printf - C++
Замените cin cout на scaf print правильно #include &lt;cmath&gt; #include &lt;vector&gt; #include &lt;iostream&gt; #include &lt;stdio.h&gt; using...

Перепишите за меня код с С++ Builder на C++ Visual Studio - C++
Помогите пожалуйста переделать код программы с С++ Builder на C++ Visual Studio, а то что уже не пробовала и что не перечитала. Походу...


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

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

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