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

Перевод кода из Pascal в C++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Написать программу, которая будет запускать другие приложения по выбору пользователя http://www.cyberforum.ru/cpp-beginners/thread1184439.html
нужно составить программу, которая будет вызывать другие 5 программ и по требованию запускать одну из них. как запустить одну программу я разобрался, а вот как сделать так чтоб она выдавала мне консоль и я мог выбрать то что мне нужно из списка не понимаю. делаю все это на VS Express 2013. вот как я вызываю одну: #include "stdafx.h" #include "windows.h" #include <iostream> using namespace...
C++ Составить программу для нахождения наибольшего общего делителя четырех натуральных чисел Составить программу для нахождения наибольшего общего делителя четырех натуральных чисел. http://www.cyberforum.ru/cpp-beginners/thread1184427.html
Найти и вывести сумму элементов массива, которые имеют нечетное значение и являются трехзначными числами C++
в файле записано n целых чисел. элементы файла могут применять целые значения от 0 до 10 000. составьте программму позволяющие найти и вывести сумму элементов массива, которые имеют нечетное значение и являются трехзначными числами. гарантируется что в исходном массиве есть хотя бы один трехзначный элемент, значение которого нечетно.
C++ Поменять в массиве наименьший элемент строки относительно главной диагонали.Найти сколько больше суммы столбца
В каждой строке наименьший элемент и поменять его местами с симметричным ему элементом относительно главной диагонали. Найти: Количество элементов, каждый из которых больше суммы остальных элементов своего столбца.
C++ Как посчитать количество положительных и отрицательных чисел в массиве? http://www.cyberforum.ru/cpp-beginners/thread1184405.html
Вывожу 10 случайных чисел (-10....10), как подсчитать кол-во положительных чисел и кол-во отрицательных? #include<iostream> #include<cstdlib> #include<ctime> using namespace std; int main(){ setlocale(0,"");
C++ Операторы повтора с условием Начав тренировки, лыжник в первый день пробежал 10 км. Каждый следующий день он увеличивал пробег на 10% от пробега предыдущего дня. Определить: а) Суммарный путь лыжника за первые 7 дней тренировок; б) в какой день он пробежит больше 20 км. подробнее

Показать сообщение отдельно
popigun911
Сообщений: n/a
22.05.2014, 09:59     Перевод кода из Pascal в C++
Всем привет, мне нужна помощь в переводе кода из Pascal в C++.
У самого получается с трудом, помогите кто сможет.
1)Даны две таблицы. Составить из них 3 таблицу, упорядоченную по возрастанию:
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
41
42
43
program z1;   
   uses crt;   
   var a : array [1..10] of longint;   
         b : array [1..20] of longint;   
         c : array [1..30] of longint;   
         n, m, k, l, i, j, min : longint;   
 begin   
   clrscr;   
   write ('введ. кол. эл. таб. а n='); readln (n);   
   write ('введ. кол. эл. таб. b m='); readln (m);   
   for i:=1 to n do   
     begin   
      write('a[', i, ']='); readln (a[i]);   
     end;   
   for i:=1 to m do   
    begin   
     write('b[' ,i, ']='); readln (b[i]);   
    end;   
   k := n + m;{кол. эл. таб. с}   
       
   (*заносим эл.таб.а в таб.с*)   
   for i:=1 to n do c[i] := a[i];   
  
   (*заносим эл.таб.в в таб.с*)   
   for i:=1 to m do c[i+n] := b[i];   
  
   (*упорядочим таб.с[1..k] по возраст*)   
   for i:=1 to k-1 do   
    begin   
     l := i; {номер мин.}   
     min := c[i];   
     for j := i+1 to k do   
      if c[j] < min then   
       begin   
        min := c[j];   
        l := j;   
       end;   
      c[l] := c[i]; {меняем местами 1-й и мин.эл.}   
      c[i] := min;   
    end;   
   for i:=1 to k do writeln ('Ответ: c[', i, ']=', c[i]);   
   readln;   
 end.
2)Найти наибольшее из четырёх чисел
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program z2;   
   uses crt;   
   var a, b, c, d, max, max1, max2 : real;   
  
   procedure bol2(aa, bb : real; var maxmax : real );   
    begin   
     if aa > bb then maxmax := aa else maxmax := bb;   
    end;   
  
 begin   
   clrscr;   
   write ('введте a, b, c, d через пробел ');   
   readln (a, b, c, d);   
   bol2 (a, b, max1);   
   bol2 (c, d, max2);   
   bol2 (max1, max2, max);   
   writeln ('max=', max);   
   readln;   
 end.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 20:11. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru