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

Из Turbo Pascal в C++ - C++

Восстановить пароль Регистрация
 
W0ks
0 / 0 / 0
Регистрация: 11.12.2011
Сообщений: 75
13.03.2012, 19:33     Из Turbo Pascal в C++ #1
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
  mas:array[1..100]of Integer;
  A,i,n,sum:Integer;
begin
  write('4islo elementov massiva: ');
  readln(n);
  writeln('Vvedite massiv: ');
  for i:=1 to n do read(mas[i]);
  write('Vvedite 4islo A: ');
  readln(A);
  sum:=0;
  for i:=1 to n do if mas[i]>A then sum:=sum+mas[i];
  writeln('Summa elementov massiva, bolshih ',A,': ',sum);
  readln;
end.
Добавлено через 19 секунд
Найти сумму элементов, больших данного числа А (А вводится с клавиатуры).
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.03.2012, 19:33     Из Turbo Pascal в C++
Посмотрите здесь:

C++ Из Turbo Pascal в C++
C++ Из Turbo pascal в С++
C++ Как программу на Turbo Pascal перевести на C++?Выручите)
C++ Turbo Pascal -> C++ (подсчет суммы мест, на которых в словах текста стоит заданная буква)
C++ Путем перестановок строк и столбцов элемент переместить в правый верхний угол подмассива (С Turbo Pascal на C++)
Перевести из Turbo Pascal в C++ C++
C++ Перевод программы с Turbo Pascal на С++
C++ Перевести из Turbo Pascal в C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
dimcoder
Полярный
 Аватар для dimcoder
449 / 422 / 66
Регистрация: 11.09.2011
Сообщений: 1,108
13.03.2012, 19:39     Из Turbo Pascal в C++ #2
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
#include <cstdlib>
#include <iostream>
 
using namespace std;
 
int main(int argc, char *argv[])
{
    int m[100];
    int n, A, sum = 0;
    cout << "n = " << endl;
    cin >> n;
    cout << "mas = ";
    for (int i = 0; i < n; i++)
        cin >> m[i];
    cout << "A = " << endl;
    cin >> A;
    for (int i = 0; i < n; i++)
        if (m[i] > A)
            sum += m[i];
    cout << "Sum = " << sum << endl;
    system("PAUSE > NULL");
    return EXIT_SUCCESS;
}
Yandex
Объявления
13.03.2012, 19:39     Из Turbo Pascal в C++
Ответ Создать тему
Опции темы

Текущее время: 03:18. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru