Форум программистов, компьютерный форум, киберфорум
С++ для начинающих
Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ На выходе выдаются непонятные символы https://www.cyberforum.ru/ cpp-beginners/ thread624131.html
Задание: написать программу которая разворачивает запись типа a-z в строке s в полный список abc...xyz в строке s2 # include <stdio.h> int ascii(char c) { int a; a=c; return a;
C++ Как игнорировать ненужные данные из потока?
Формат входной строки должен быть таким: Слово нужное_нам_число Например: windows 2012 Нужно из strStream потока присвоить переменной k число, стоящее после слова. В данном случае число 2012. При...
C++ Переписать с C# на C++
Уважаемые знатоки, помогите перевести данный код на с++ using System.Text; // Чтобы не усложнять код, не проверяю входные параметры на корректность. public class Hex { private const...
C++ Решение интеграла методом трапеций Пожалуйста, напишите программу на vsc++: нахождение определенного интеграла методом трапеций. https://www.cyberforum.ru/ cpp-beginners/ thread624115.html
C++ Запись в таблицу .ods матрицы чисел https://www.cyberforum.ru/ cpp-beginners/ thread624110.html
Как в таблицу записать матрицу, так что бы в каждой ячейке было одно число?
C++ Функция Бесселя
Здравствуйте. Нужна ваша помощь. Не знаю как подступиться к задаче. Сабж: Вычислить на ЭВМ значения специальной функции f(x) (в моём случае это функция Бесселя) в нескольких точках. Для вычисления...
Вывести текст файла, заменив цифры от 0 до 9 на слова "ноль", "один"."девять", начиная каждое предложение с новой строки C++
Написать программу, которая считывает текст из файла и выводит его на экран, заменив цифры от 0 до 9 на слова "ноль", "один"..."девять", начиная каждое предложение с новой строки
C++ Найти количество стрел Задана последовательность, состоящая только из символов ‘>’, ‘<’ и ‘-‘. Требуется найти количество стрел, которые спрятаны в этой последовательности. Стрелы – это подстроки вида ‘>>-->’ и ‘<--<<’. ... https://www.cyberforum.ru/ cpp-beginners/ thread624068.html
C++ Послание эмуляции мыши определенному окну https://www.cyberforum.ru/ cpp-beginners/ thread624061.html
Здравствуйте, мне нужно послать эмуляцию нажатии клавиши мыши определенному окну: 1. Как по названию узнать hWnd окна? 2. Как послать клик определенному окну!?
C++ Как правильно сделать список #include <iostream> #include <windows.h> struct BList{ PWCHAR fullName; PWCHAR name; PWCHAR hash; BList *next; BList *prev; ULONG pId; https://www.cyberforum.ru/ cpp-beginners/ thread624047.html
13 / 13 / 8
Регистрация: 22.04.2012
Сообщений: 99
16.07.2012, 03:19 0

Перевести из PASCAL в С++

16.07.2012, 03:19. Просмотров 1499. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Aleksashka как решение

Решение

Как-то так. Ничего не менял в алгоритме задачи, старался сохранить стиль автора.
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 <stdlib.h>
#include <string>
#include <iostream>
#include <fstream>
using std::ifstream;
using std::string;
using std::cout;
using std::endl;
 
int main()
{
     ifstream text ("D:\\in.txt");
     string s,s1;
     while (!text.eof())
     {
           getline(text,s);
           for (int i=s.length()-1; i>=0; i--)
           {
               switch (s[i])
               {
                      case '0' : s.erase(i,1); s.insert(i,"íîëü"); break;
                      case '1' : s.erase(i,1); s.insert(i,"îäèí"); break;
                      case '2' : s.erase(i,1); s.insert(i,"äâà"); break;
                      case '3' : s.erase(i,1); s.insert(i,"òðè"); break;
                      case '4' : s.erase(i,1); s.insert(i,"÷åòûðå"); break;
                      case '5' : s.erase(i,1); s.insert(i,"ïÿòü"); break;
                      case '6' : s.erase(i,1); s.insert(i,"øåñòü"); break;
                      case '7' : s.erase(i,1); s.insert(i,"ñåìü"); break;
                      case '8' : s.erase(i,1); s.insert(i,"âîñåìü"); break;
                      case '9' : s.erase(i,1); s.insert(i,"äåâÿòü"); break;
               }
           }
           for (int i=0; i<s.length(); i++)
           {
               if (s[i]!='?' && s[i]!='!' && s[i]!='.') s1+=s;
               else
               {
                   cout<<s1+s[i]<<endl;
                   s1.clear();
               }
               if (s[i]!=' ') cout<<s1<<endl;
           }
     }
     text.close();
     system ("PAUSE");
}


Вернуться к обсуждению:
Перевести из PASCAL в С++
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.07.2012, 03:19

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

Перевести в код Pascal ABC из кода Pascal Delphi
Помогите перевести в код ABC а то с Delphi вообще не знаком. Задание было такое: Записать в файл...

Перевести в код Pascal ABC из кода Pascal Delphi
procedure TForm1.Button1Click(Sender: TObject); const n=8; var x:array of real; y,z:array of...

Нужно перевести код из Turbo Pascal в Pascal ABC
Program n5; { Задача. Описать функцию less(f) от непустого файла f ...

Перевести из Turbo Pascal в Pascal ABC
Добрый вечер. Необходимо перевести этот код из Turbo Pascal в Pascal ABC. Заранее спасибо. uses...

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