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

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

28.11.2018, 17:22. Просмотров 420. Ответов 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
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
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...

Переделать из паскаля в С#
Ребят помогите 2 неделю мучаюсь(обратная матрица). uses crt; const nmax = 20; type matr = array...

Переделать с паскаля на java
Дано натуральное число.Верно ли что цифра А встречается в нем реже чем цифра В? Знаете как?...

1
1451 / 918 / 806
Регистрация: 30.04.2016
Сообщений: 3,092
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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.11.2018, 21:47

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Переделать из Паскаля в Питона! ;)
uses crt; var r, d, h, m, v :integer; begin repeat clrscr; writeln('vibirite rezhim'); ...

Переделать из Паскаля в Делфи
Program Kursovaia_rabota_zadanie_3; uses crt; type mas=array of integer; var a,b:mas;...

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

переделать код из паскаля в с++
Var k,m,j,i:integer; Begin write('Введите k: ');readln(k); i:=0;j:=0; Repeat ...


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

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

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