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

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

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

Переведите пожалуйстя на С++ - C++

11.04.2010, 18:09. Просмотров 299. Ответов 1
Метки нет (Все метки)

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
program PR_6;
uses crt;
var i: integer;
    s: string;
    null,one,two,three,four,five,six,seven,eight,nine: integer;
 
begin
clrscr;
write('Input text->');
readln(s);
for i:=1 to length(s) do
begin
if s[i]='1' then one:=one+1;
if s[i]='2' then two:=two+1;
if s[i]='3' then three:=three+1;
if s[i]='4' then four:=four+1;
if s[i]='5' then five:=five+1;
if s[i]='6' then six:=six+1;
if s[i]='7' then seven:=seven+1;
if s[i]='8' then eight:=eight+1;
if s[i]='9' then nine:=nine+1;
if s[i]='0' then null:=null+1;
end;
writeln('number 9 was detected for ',nine,' times on your line');
writeln('number 2 was detected for ',two,' times in your line');
writeln('number 3 was detected for ',three,' times in your line');
writeln('number 4 was detected for ',four,' times in your line');
writeln('number 5 was detected for ',five,' times in your line');
writeln('number 6 was detected for ',six,' times in your line');
writeln('number 7 was detected for ',seven,' times in your line');
writeln('number 8 was detected for ',eight,' times on your line');
writeln('number 1 was detected for ',one,' times on your line');
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.04.2010, 18:09
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Переведите пожалуйстя на С++ (C++):

переведите на С++ - C++
переведите на С++ Var s,p:string; b:char; i:integer; Begin Write('Input text:'); Readln(s); Write('Input letter:');...

Переведите на С - C++
Функция по 3 числам проверяет могут ли эти числа быть сторонами треугольника. С помощью функции массив ( где каждая строка стороны...

Переведите программу в C++ - C++
Изначально прога написана на Паскале. Нужно перевести ее в C++ . И сделайте пожалуйста скрин работы программы) Условие: Файл F...

Переведите формулу на C++ - C++
Переведите пожалуйста вот эту формулу на язык C++. прикрепите картинку к сообщению Заранее Спасибо.

Переведите с Pascal на C++ - C++
uses crt; var s:string; i,m,n:integer; begin clrscr; writeln('введите текст'); readln(s); for i:=1 to length(s) do m:=0;

Переведите с паскаля в С++ - C++
if (str='А') or (str='A') then j:=j+1; if (str='а') or (str='a') then k:=k+1;

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
FireNovel
150 / 73 / 8
Регистрация: 09.04.2010
Сообщений: 297
12.04.2010, 00:58 #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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
#include <iostream>
#include <conio.h>
 
using namespace std;
 
int main()
{
    char *s, c[80];   
    cout << "Input text-> ";
    gets_s(c);
    s = c; 
    int null,one,two,three,four,five,six,seven,eight,nine;
    null =one=two=three=four=five=six=seven=eight=nine = 0;
    do{
        
        switch(*(s++))
        {
            case '1': one++   ; break;
            case '2': two++   ; break;
            case '3': three++ ; break;
            case '4': four++  ; break;
            case '5': five++  ; break;
            case '6': six++   ; break;
            case '7': seven++ ; break;
            case '8': eight++ ; break;
            case '9': nine++  ; break;
            case '0': null++  ; break;
        }
        
    }while(*s != '\0');
 
    cout << "number 0 was detected for " << null << " times on your line" << endl;
    cout <<"number 1 was detected for " << one << " times on your line" << endl;    
    cout <<"number 2 was detected for " << two << " times in your line" << endl;
    cout <<"number 3 was detected for " << three << " times in your line" << endl;
    cout <<"number 4 was detected for " << four << " times in your line" << endl;
    cout <<"number 5 was detected for " << five << " times in your line" << endl;
    cout <<"number 6 was detected for " << six << " times in your line" << endl;
    cout <<"number 7 was detected for " << seven << " times in your line" << endl;
    cout <<"number 8 was detected for " << eight << " times on your line" << endl;
    cout << "number 9 was detected for " << nine << " times on your line" << endl;
    
 
    _getch();
    return 0;
}
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.04.2010, 00:58
Привет! Вот еще темы с ответами:

Переведите с Pascal на C++ - C++
Var f,g: Text; i,n: Integer; s: String; BEGIN Write('Vvedite kol-vo chisel: '); Readln(n); Randomize; ...

Переведите из Pascal в C++ - C++
Переведите из Pascal в C++, пожалуйста. type Zavedenie = record typ : Byte; kol : word; end; var a : array of...

Переведите с Pascal на C++ - C++
Пожалуйста, переведите на C++ var a:array of longint; n,m,i,j,i1,j1,max:Longint; begin read(n,m); for i:=0 to n-1 do for...

Переведите с Pascal на С++ - C++
Пожалуйста, переведите с Pascal на С++ function Min(a, b, c, d: integer): integer; var iMIn: integer; begin iMin := a; ...


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

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

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