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

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

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

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

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

Из Turbo Pascal в C++ - C++
Составить программу, которая находит наибольшую сторону треугольника, если заданы координаты вершин (x1,y1), (x2,y2), (x3,y3). Вычисление...

Из Turbo pascal в С++ - C++
var st: string; i, count: integer; begin readln(st); for i:=1 to length(st) do if st in then inc(count); ...

Перевести из Turbo Pascal в C++ - C++
помогите пожалуйста uses crt; var a,t,x,R,s: real; begin clrscr; write(‘Введіть х = ‘); readln(х); until...

Перевести из Turbo Pascal в C++ - C++
uses crt; var x: longint; begin clrscr; writeln(‘Введите число от 1 до 10000: ‘); readln(x); ...

Перевод программы с Turbo Pascal на С++ - C++
Помогите пожалуйста перевести с Turbo Pascal на С++!!!! Задачу и тексты надо переписывать!.

Нужно Перевести программу с Turbo pascal на C++ - C++
Помогите пожалуйста! Нужно Перевести программу с Turbo pascal на C++ вот этот код: uses crt; const nmax=10; var a:array of...

1
dimcoder
Полярный
466 / 439 / 68
Регистрация: 11.09.2011
Сообщений: 1,137
13.03.2012, 19:39 #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;
}
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.03.2012, 19:39
Привет! Вот еще темы с ответами:

Как программу на Turbo Pascal перевести на C++?Выручите) - C++
const N=3; var X,Y:array of real;Z:array of real;max,min:real;m,p,i,j,k:integer; Begin for i:=1 to N do Begin Read(X,Y);Readln;end;...

Turbo Pascal -> C++ (подсчет суммы мест, на которых в словах текста стоит заданная буква) - C++
Задание. Написать программу для подсчета суммы мест, на которых в словах текста стоит заданная буква. program zadacha5; Var s, c:...

Путем перестановок строк и столбцов элемент переместить в правый верхний угол подмассива (С Turbo Pascal на C++) - C++
Можете программу преобразовать в C++?? Задан двумерный массив N x N. Последовательно рассматриваются квадратные подмассивы, правый...

сравнительные характеристики систем программирования Turbo Pascal и Borland C - C++
сравнительные характеристики систем программирования Turbo Pascal и Borland С??????


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

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

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