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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ На выходе выдаются непонятные символы http://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. При... http://www.cyberforum.ru/cpp-beginners/thread624128.html
C++ Переписать с C# на C++
Уважаемые знатоки, помогите перевести данный код на с++ using System.Text; // Чтобы не усложнять код, не проверяю входные параметры на корректность. public class Hex { private const...
Решение интеграла методом трапеций C++
Пожалуйста, напишите программу на vsc++: нахождение определенного интеграла методом трапеций.
C++ Запись в таблицу .ods матрицы чисел http://www.cyberforum.ru/cpp-beginners/thread624110.html
Как в таблицу записать матрицу, так что бы в каждой ячейке было одно число?
C++ Функция Бесселя Здравствуйте. Нужна ваша помощь. Не знаю как подступиться к задаче. Сабж: Вычислить на ЭВМ значения специальной функции f(x) (в моём случае это функция Бесселя) в нескольких точках. Для вычисления... подробнее

Показать сообщение отдельно
Aleksashka
0 / 0 / 0
Регистрация: 14.11.2011
Сообщений: 38

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

15.07.2012, 19:31. Просмотров 398. Ответов 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
Var f:text;
    s,s1:string;
    i:byte;
Begin
    Assign(f,'D:\in.txt');Reset(f);
    While not Eof(f) do
     Begin
      readln(f,s);
      For i:=Length(s) downto 1 do
       Case s[i] of
        '0':Begin Delete(s,i,1);Insert('Г*îëü',s,i);End;
        '1':Begin Delete(s,i,1);Insert('îäèГ*',s,i);End;
        '2':Begin Delete(s,i,1);Insert('äâГ*',s,i);End;
        '3':Begin Delete(s,i,1);Insert('òðè',s,i);End;
        '4':Begin Delete(s,i,1);Insert('÷åòûðå',s,i);End;
        '5':Begin Delete(s,i,1);Insert('ГЇГїГІГј',s,i);End;
        '6':Begin Delete(s,i,1);Insert('ГёГҐГ±ГІГј',s,i);End;
        '7':Begin Delete(s,i,1);Insert('ñåìü',s,i);End;
        '8':Begin Delete(s,i,1);Insert('âîñåìü',s,i);End;
        '9':Begin Delete(s,i,1);Insert('äåâÿòü',s,i);End;
       End;
      s1:='';
      For i:=1 to Length(s) do
       if not(s[i] in ['.','?','!']) then s1:=s1+s[i]
        else 
         Begin
          writeln(s1+s[i]);
          s1:='';
         End;
      if s1<>'' then writeln(s1);
     End;
     Close(f);
End.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru