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

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

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

Pascal to С++ - C++

27.12.2011, 23:01. Просмотров 752. Ответов 4
Метки нет (Все метки)

Нужно переписать программу паскаля под с++
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Program PascalGuru;
 
var s,x:string;
    i:integer;
 
{----------------------------------}
begin
write('Vvedite stroky1: '); readln(s);
write('Vvedite stroky2: '); readln(x);
 
Insert(x, s, 1); {ðåГ*ëèçîâûâГ*ГҐГ¬ Г± ïîìîùüþ ГўГ±ГІГ*ГўГЄГЁ}
 
writeln;
writeln('Stroka1: ',s);
 
readln;
end.
Задание
Разработать функцию, которая дописывает одну строку у начало другой. При реализации функции запрещается пользоваться функциями библиотек языка C.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.12.2011, 23:01     Pascal to С++
Посмотрите здесь:

Turbo Pascal, Pascal ABC, Free Pascal, PascalABC.NET - в чем разница? - Pascal
Всем привет, решил изучать Паскаль, но на форуме увидел 4 его версии - Turbo Pascal, Pascal ABC, Free Pascal, PascalABC.NET и не понял, в...

Различия трансляторов Pascal ABC.Net и Turbo/Borland Pascal - Pascal
Пожалуйста, объясните различия между компиляторами Pascal ABC.Net и Turbo/Borland Pascal

Из множества выбрать три различные точки по условию -из Turbo Pascal во Free Pascal - Turbo Pascal
Даны 2 множества точек на плоскости. Выбрать три различные точки первого множества так, чтобы круг ограниченный окружностью , проходящий...

Список слов распечатать в алфавитном порядке. В Turbo Pascal или Pascal ABC - Turbo Pascal
Дана непустая последовательность слов, в каждом из которых содержится от 1 до 6 заглавных латинских букв; соседние слова разделены запятой,...

Нужно перевести код с Pascal ABC на Turbo Pascal - рисование работающей мельницы - Turbo Pascal
Вот код, он должен рисовать работающею мельницу. uses graphABC,crt; type point=record x,y:integer; end; ...

Можно как-то переделать код из Turbo Pascal чтобы он работал в pascal abc.net? - PascalABC.NET
Сделайте пожалуйста, я просто не вникаю uses Graph, Crt; var grDriver: integer; grMode: integer; ErrCode: integer; ...

После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Mikola-BLR
47 / 47 / 7
Регистрация: 27.12.2011
Сообщений: 65
27.12.2011, 23:42     Pascal to С++ #2
Например, так:
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#include <iostream>
#include <conio.h>
 
using namespace std;
 
int main()
{
    string s, x;
    cout << "Vvedite stroky1: "; cin >> s;
    cout << "Vvedite stroky2: "; cin >> x;
    s=x+s;
    cout << s;
 
    getch();
    return 0;
}
Sinko
0 / 0 / 0
Регистрация: 27.10.2011
Сообщений: 7
27.12.2011, 23:47  [ТС]     Pascal to С++ #3
Mikola-BLR Спасибо
R136a1
142 / 111 / 15
Регистрация: 14.04.2011
Сообщений: 261
27.12.2011, 23:50     Pascal to С++ #4
думаю getline лучше использовать

C++
1
2
3
4
5
6
7
8
9
10
11
12
#include <iostream>
 
int main()
{
    std::string s, x;
    std::cout << "Vvedite stroky1: "; getline(std::cin,s);
    std::cout << "Vvedite stroky2: "; getline(std::cin,x);
    s=x+s;
    std::cout << s << std::endl;
 
    return 0;
}
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.12.2011, 00:32     Pascal to С++
Еще ссылки по теме:

Переделайте, пожалуйста, программу из Turbo pascal в ABC pascal - Pascal ABC
Помогите, пожалуйста, перевести из PASCAL TURBO в PASCAL ABC Program ProgInt; Uses Crt, Graph; Var Punkt : Byte; Knopka :...

Необходимо перевести программу с Pascal ABC на free pascal - Free Pascal
var a, factorial:longint; const c:array of char= ('0','1'); var res:string; d:0..1; k, n, i:byte; begin ...

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

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

Перевод программы с Turbo Pascal на Pascal ABC.NET - PascalABC.NET
написала программу в паскаль турбо на рабочем компьютере. перенесла в паскаль авсNet так как дома стоит эта версия /перестала работать что...


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

Или воспользуйтесь поиском по форуму:
Mikola-BLR
47 / 47 / 7
Регистрация: 27.12.2011
Сообщений: 65
28.12.2011, 00:32     Pascal to С++ #5
Ну да. Тем более, как я глянул, из-за пробелов строка string , введённая через cin , разделяется на месте пробела. Надо через getline(cin, string). Так будет нормально работать
Yandex
Объявления
28.12.2011, 00:32     Pascal to С++
Ответ Создать тему
Опции темы

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