Вторник, 05 Ноября 2024, 13:51

Приветствую Вас Гость

[ Новые сообщения · Игроделы · Правила · Поиск ]
  • Страница 1 из 1
  • 1
Исходки Pascal.
KvinterДата: Суббота, 08 Мая 2010, 10:25 | Сообщение # 1
был не раз
Сейчас нет на сайте
Новичкам:
Hello World! - Простая программа, ввыводит на экран сообщение "Hello World!".
Addition - складывает два числа.

Игры:
Угадай ка - игра в которой нужно угадать число.

Добовляем свои программы.

Сообщение отредактировал Kvinter - Суббота, 08 Мая 2010, 11:43
ezhickovichДата: Суббота, 08 Мая 2010, 10:38 | Сообщение # 2
[Великий и могучий хозяинъ]
Сейчас нет на сайте
Code

program ezhickovich;
uses crt;

begin
write('powered by ezhickovich');
end.



Я: О великий повелитель этой ничтожной вселенной - сокращённо ЁЖ!
simtikoДата: Понедельник, 24 Мая 2010, 17:53 | Сообщение # 3
почти ветеран
Сейчас нет на сайте
Исходник интерпретатора упрошенного brainfuck-a.
Code

// © SimTiko
uses crt;
var p:array[0..1000] of char;
var i,n,s,k:integer;
var code:string;
var kuk:boolean;
begin
writeln('Введите код');
readln(code);
writeln('Старт...');
repeat
if code[n]='>' then i:=i+1;
if code[n]='<' then i:=i-1;
if code[n]='+' then begin k:=integer(p[i])+1; p[i]:=char(k); end;
if code[n]='-' then begin k:=integer(p[i])-1; p[i]:=char(k); end;
if code[n]='.' then begin write(p[i]); end;
if code[n]=',' then read(p[i]);
n:=n+1;
until n=length(code)+1;
end.
skorpiДата: Четверг, 10 Июня 2010, 14:04 | Сообщение # 4
постоянный участник
Сейчас нет на сайте
Извиняюсь архив битый перезалью добавлю.

Сообщение отредактировал skorpi - Четверг, 10 Июня 2010, 14:10
TrueIfritДата: Суббота, 25 Сентября 2010, 20:19 | Сообщение # 5
Свободный геймдизайнер
Сейчас нет на сайте
[sorces_for_beginners_of_pascal]
Нубские правда, но многим пригодилось
P.S> Есть аналогичные для Си


Сообщение отредактировал TrueIfrit - Суббота, 25 Сентября 2010, 20:22
  • Страница 1 из 1
  • 1
Поиск:

Все права сохранены. GcUp.ru © 2008-2024 Рейтинг