Форум программистов, компьютерный форум, киберфорум
Наши страницы
С++ для начинающих
Войти
Регистрация
Восстановить пароль
 
rasonti
0 / 0 / 0
Регистрация: 18.11.2018
Сообщений: 19
1

Переделать с паскаля на с++

28.11.2018, 17:22. Просмотров 274. Ответов 1
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Var n,k1,k2,i:integer;
    s1:char;
Begin
    write('n: ');readln(n);
    For i:=1 to n do
    Begin
      read(s1);
      if s1='+' then inc(k1)
       else if s1='*' then inc(k2);
    End;
    writeln('Символ "+" встречается ',k1);
    writeln('Символ "*" встречается ',k2);
    readln;
End.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.11.2018, 17:22
Ответы с готовыми решениями:

Переделать с Паскаля на С++
Составить неразветвленную программу на языке Turbo Pascal. Текст программы: Program lab_1;...

Переделать с паскаля на с++
Procedure tree (a, n); -------- begin a:=0; a:=0; a:=0; for i:=2 to n do begin k:=1...

Переделать код из Паскаля в С++
program Param40; type St=String; var S:St; i,K:integer; Function...

Переделать код с паскаля в с++
Код на скриншоте

Переделать код из Паскаля в С++
Type mas = Array of Real; {--------------} Procedure Sort(var a: mas; n: Byte); var i,j:...

1
Fixer_84
1344 / 842 / 770
Регистрация: 30.04.2016
Сообщений: 2,815
28.11.2018, 21:47 2
rasonti, здравствуйте! Вот:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#include <iostream>
 
    using namespace std;
 
int main() {
    int n, k1, k2, i;
    char s1;
    cout << "n: "; cin >> n;
    k1 = k2 = 0;
    for (i = 1; i <= n; i++) {
        cin >> s1;
        if (s1 == '+') k1++;
        else if (s1 == '*') k2++;
    }
    cout << "Symbol \"+\" encounters " << k1 << "\n";
    cout << "Symbol \"*\" encounters " << k2 << "\n";
    system("pause");
    return 0;
}
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.11.2018, 21:47

переделать из турбо паскаля в Cи
Помогите переделать именно эту программу в Си uses crt; var a,b:integer; function...

как переделать на с++? с паскаля
function aaa(x: integer):boolean; var b: integer; begin b:=1; While...

Переделать прогу с паскаля в Вижуал
вот прога на Паскале, надо переделать под вижуал... срочно... ...


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

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

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