задача: нуна написать игру в слова на пацкале. типа есть загаданное слово. вместо букв прочерки. от пользователя ждем ввод буквы. если такой нету - рисуем виселицу. если есть - заменяем прочерк на букву.

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

если кто может напесать полностью, отпишитесь. потому как у мну ща напряги со свободным временем =( так бы покопался сам, но ща уже поздно.
или хотя бы кусками кодеса. рисовать вроде получается. нада остальное :/

зы: буду очень благодарен за любую помощь.

-----
Недостаточно только получить знания:надо найти им приложение

Rascal пишет:
но я хз как в пацкале работа с консолью обстоит

а что разве паскаль не исключительно под дос? откуда консоль?

ну турбопацкаль. я о нем.

-----
Недостаточно только получить знания:надо найти им приложение

Rascal вроть была в турбопацкале функа AT которая ставит курсор в нужное место

-----
StarForce и Themida ацтой!

var
entered_symbol: char;
s, s2: string;
i: integer
begin
for i:=1 to length(s2) do
begin
if s2[i] = entered_symbol then s[i] := entered_symbol
endl;
типа шаблончег проверки буквы.
мож кто еще что подкинет?

-----
Недостаточно только получить знания:надо найти им приложение

там есть ссыль на игру
**********************
Язык: Turbo Pascal
Категория: Курсовая работа
Игра "Поле чудес" - угадывается слово по буквам.
**********************
http://www.foxweb.net.ru/files/?arc=1

sER
там денег просят :/

-----
Недостаточно только получить знания:надо найти им приложение

Посылаем курсор черт знает куда и пишем там что хотим:
uses crt;
....
begin
GotoXY(10,10); // а в виндовом паскале было бы Uses WinCrt; CursorTo(10, 10);
WriteLn('Hello');
end;

-----
Don_t hate the cracker - hate the code.

Maximus пишет:
Rascal вроть была в турбопацкале функа AT которая ставит курсор в нужное место
AT вроде из Бейсика.

Когда-то в детстве хотел написать что-то типа Norton Commander. Накидал каркас, потом надоело. В приложении сырец. Думаю, тебе поможет.




f8c2_14.12.2007_CRACKLAB.rU.tgz - commander.ZIP

-----
2C6H5CH2CH(NH2)CH3*H2SO4

Rascal

uses crt;
var
m:string;
c:char;
p:char;
s:string;
k, j, l1 :word;

begin
clrscr;
m:='cracklab';
l1:=length(m);
for i:=1 to l1 do
begin
gotoxy(i,1);
write('-');
end;
writeln;

for k:=1 to l1 do begin
gotoxy(1,4);
writeln('Enter any letter');
clreol;
readln(p);

for j:=1 to l1 do
if m[j]=p then
begin
gotoxy(j,1);
write(p);
end ;
{else
begin
...
end; }

END;

readln;
end.

Примерно так. Тольео внешний цикл сделай по-другому. Учти кол-во повторяющийся букв в слове.
А также нужно сравнивать полученную после ввода строку с исходным словом. Вот тогда, цикл будет работать правильное число раз.

uses crt;
const max=10;
ch:array[0..21] of string[6] =(
' . .','',' o .','',' o o','',' o O','',
' O O','', ' O O',' o', ' 0 0',' O',
' O O',' q', ' O O ',' \ O /', ' * * ',' \ O /',
' _ _ ',' Q ');

var s,ss:string;
z,i:integer;
c:char;
b:boolean;
begin
s:='cracklab';
clrscr;
ss:='';
for i:=1 to length (s) do sS:=ss+'-';
z:=0;
repeat
gotoxy (1,1); writeln (ss);
writeln ('Errors=',z);
writeln (ch[z*2],#13#10,ch[z*2+1]);
c:=readkey; b:=true;
for i:=1 to length (s) do if s[i]=c then
begin ss[i]:=s[i]; b:=false; end;
if b then inc (z);
until (z>max) or (s=ss);
readln;
end.

В свое время писал модуль для паскаля. Он довольно большой, но там есть 3 функции - ReadAt, WriteAt и Quick_Write. Эти функции позволяют вывести что угодно где угодно или прочитать существующие символы с экрана. По прототипам разберетесь). Так же там есть функции работы с мышью, пара переводов строка - число и еще немного шушеры.
Пользуйтесь, opensource так сказать)
29df_14.12.2007_CRACKLAB.rU.tgz - CRT2.PAS

спасибо всем за помощь. будем курить кодес =)

-----
Недостаточно только получить знания:надо найти им приложение

Rascal пишет:
будем курить кодес =)

Кодес, а кто это?

Балет Аллы Духовой =)

-----
The truth is out of there...

--> Задание <--
короч вот задание к этой лабе. самому все таки песать некогда. задание плевое, так что можете срубить на мне немного жидоденег =) кто хочет взяться - пишите за скока сделаете денег и времени в пм.

-----
Недостаточно только получить знания:надо найти им приложение

Rascal

Именно на паскале (досовом) ? ...

-----
Don_t hate the cracker - hate the code.

турбопаскаль 7 версия

-----
Недостаточно только получить знания:надо найти им приложение

Rascal

Нужна программа в текстовом режиме? crt 80x25? Или всё-таки в графическом, как сказано в задании?

Если в текстовом - то модуль CRT использовать нельзя либо нужен патч, ибо на теперешних компах программа использующая модуль crt будет давать Division by zero. Либо отказаться от crt вообще - но тогда нужно писать свои функции работы с видеопамятью для вывода текста и для чтения скан-кодов клавиш с клавиатуры.

Если в графике, то в каком режиме? В VGA mode (640x480x16 цветов)? 13h (320x200x256) ? Уточни.

uses graph;
var y:real;
gd,gm,width,height,x:integer;
begin
write('vvedite dlinnu: ');
readln(width);
write('vvedite visotu: ');
readln(height);
gd:=detect;
x:=0;
initgraph(gd,gm,'');
floodfill(320,230,WHITE);
setcolor(Black);
setfillstyle(1,black);
line(320-width-x,240-height-height,320+width+x,240-height-height);
line(320-width-x,240-height-height,320,240);
line(320,240,320+width+x,240-height-height);
floodfill(320,240-height,black);
setcolor(4);
ellipse(320,240,0,360,width+5,height+5);
setfillstyle(1,RED);
floodfill(320,240,4);
readln;
closegraph;
end.

вот лаба из предыдущих. думаю такого же плана. хз какой здесь режим.

-----
Недостаточно только получить знания:надо найти им приложение

Rascal пишет:uses graph;
Rascal пишет:initgraph(gd,gm,'');
Это графический режим, CRT не юзается.

-----
StarForce и Themida ацтой!