Проявления Паскаля в Cpp

@Ignat · Регистрация: 16.09.2009

Студворк — интернет-сервис помощи студентам

Видел несколько раз картину имитации Паскаля на Cpp.
Вопрос зачем это нужно, есть ли в этом замысел, может это зов природы.

Представляю вашему внимаю код сортировки вставкой, с имитированным синтаксисом:

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
#include <iostream.h>
 
#define begin {
#define end   }
 
int main()
 
begin
const int size = 10;
 
int mas[size] = {9,8,7,6,5,4,3,2,1,0};
 
for( int i = 1 ; i < size ; i++ )
begin
       int t = mas[i];
       for ( int j = i; j>0&&mas[j-1]>t; j--)
           begin    //здесь это не требуется но иногда пишут на всякий случай.
           mas[j]=mas[j-1];
           end      //здесь это не требуется но иногда пишут на всякий случай.
 
           mas[j]=t;
end
for( int p = 0 ; p < size ; p++ )cout<<mas[p]<<' ';
cout<<'\n';
return 0;
end

@insideone · 16.04.2010, 12:40

Надо же сила привычки!

) Тогда автору пригодилось бы ещё

C++
1
#define pavno ==

а тож одно равно будет ставить

@Sekt · 16.04.2010, 12:42

C++
1
#define private public

@insideone · 16.04.2010, 12:49

Genius Ignat, Странно что после end нету ; это фейк?

Maxim Prishchepa · 16.04.2010, 13:33

Сообщение от Genius Ignat

Видел несколько раз картину имитации Паскаля на Cpp.
Вопрос зачем это нужно, есть ли в этом замысел, может это зов природы.

Представляю вашему внимаю код сортировки вставкой, с имитированным синтаксисом:

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
#include <iostream.h>
 
#define begin {
#define end   }
 
int main()
 
begin
const int size = 10;
 
int mas[size] = {9,8,7,6,5,4,3,2,1,0};
 
for( int i = 1 ; i < size ; i++ )
begin
       int t = mas[i];
       for ( int j = i; j>0&&mas[j-1]>t; j--)
           begin    //здесь это не требуется но иногда пишут на всякий случай.
           mas[j]=mas[j-1];
           end      //здесь это не требуется но иногда пишут на всякий случай.
 
           mas[j]=t;
end
for( int p = 0 ; p < size ; p++ )cout<<mas[p]<<' ';
cout<<'\n';
return 0;
end

немного оффтоп, но всё же:
Код забавный, но правила никто не отменял.

@MikeSoft · 16.04.2010, 13:57

l_a_m,

пацталом!

пеши есчё!

ещё и GPL ... копипастим, парни

Genius Ignat, я думаю, такой стиль используют только люди, которые не хотят переучиваться на С++. Где-то я о таком уже читал ... Может даже на Башорге. Там было о стареньком преподе, заядлом паскалисте, которому уже не было смысла изучать С++.

@Ignat · 16.04.2010, 15:20 **[ТС]**

Genius Ignat, Странно что после end нету ; это фейк?

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
#include <iostream.h>
#define begin {
#define end   }
 
int main()
 
begin;
const int size = 10;
 
int mas[size] = {9,8,7,6,5,4,3,2,1,0};
 
for( int i = 1 ; i < size ; i++ )
begin;
       int t = mas[i];
       for ( int j = i; j>0&&mas[j-1]>t; j--)
           begin;    //здесь это не требуется но иногда пишут на всякий случай.
           mas[j]=mas[j-1];
           end;      //здесь это не требуется но иногда пишут на всякий случай.
 
           mas[j]=t;
end;
for( int p = 0 ; p < size ; p++ )cout<<mas[p]<<' ';
cout<<'\n';
return 0;
end;

@insideone · 16.04.2010, 15:36

Genius Ignat,

ненене, перед begin не ставится

а последний end заканчивается точкой, так что не выйдет

дааа... трудно сделать из C++ паскаль

Maxim Prishchepa · 16.04.2010, 15:38

Сообщение от insideone

Genius Ignat,

ненене, перед begin не ставится

а последний end заканчивается точкой, так что не выйдет

дааа... трудно сделать из C++ паскаль

ну почему же :-))

C++
1
2
#define end; }
#define end. }

@insideone · 16.04.2010, 15:56

Не по теме:

l_a_m, error C2008: ;: не требуется в макроопределении

Новые блоги и статьи Все статьи Все блоги /
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .

@insideone 3687 / 964 / 114 Регистрация: 10.01.2010 Сообщений: 2,550
	16.04.2010, 12:49
	Genius Ignat, Странно что после end нету ; это фейк? 1

@MikeSoft 3957 / 1812 / 184 Регистрация: 21.11.2009 Сообщений: 2,540
	16.04.2010, 13:57
	l_a_m, пацталом! пеши есчё! ещё и GPL ... копипастим, парни Genius Ignat, я думаю, такой стиль используют только люди, которые не хотят переучиваться на С++. Где-то я о таком уже читал ... Может даже на Башорге. Там было о стареньком преподе, заядлом паскалисте, которому уже не было смысла изучать С++. 1

@insideone 3687 / 964 / 114 Регистрация: 10.01.2010 Сообщений: 2,550
	16.04.2010, 15:36
	Genius Ignat, ненене, перед begin не ставится а последний end заканчивается точкой, так что не выйдет дааа... трудно сделать из C++ паскаль 0

@insideone
	16.04.2010, 15:56
	Не по теме: l_a_m, error C2008: ;: не требуется в макроопределении 0

Проявления Паскаля в Cpp

Решение