Составление ребуса

@antony sky · Регистрация: 09.03.2011

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

помогите пжалуйста составить ребус
я начал,но не могу вводить текст как в ворд документе .
вот файлы
файл 1 .rar моя картинка,подключённая в программе

@antony sky · 03.05.2012, 11:39 **[ТС]**

это то что у меня получилось а как сделать чтобы вводить текст в окне под выражением введите слово-отгадку

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program raskr;
uses GraphABC;
var a,b,pic1: integer;
begin
SetWindowSize(640,480);
CenterWindow;
FloodFill(0,0,clWhite);
SetWindowCaption('Ðåáóñ');
pic1:=LoadPicture('i:\1.jpg');
DrawPicture(pic1,50,350);
Sleep(500);
setpencolor(clblue);
Line(0,250,900,250);
SetFontColor(clGreen);
setfontsize(15);
textout(250,70,'Ââåäèòå ñëîâî îòãàäêó:');
end.

Добавлено через 2 часа 17 минут
вот что ещё получилось но не пашет

Добавлено через 15 секунд
вот что ещё получилось но не пашет

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program raskr;
uses GraphABC,crt;
var n,a,b,pic1: integer;
begin
SetWindowSize(640,480);
CenterWindow;
FloodFill(0,0,clWhite);
SetWindowCaption('Ребус');
pic1:=LoadPicture('i:\1.jpg');
DrawPicture(pic1,50,350);
Sleep(500);
setpencolor(clblue);
Line(0,250,900,250);
SetFontColor(clGreen);
setfontsize(15);
textout(250,70,'Введите слово отгадку:');
GotoXY(42,7);
read(a, b);
if (a=b)
then
write(n =n:10,'верно')
else
write(n =n:10,'неверно');

@КонецСвета · 03.05.2012, 12:30

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
34
35
36
37
38
39
program raskr;
uses GraphABC,crt;
var a,b,pic1,i: integer;
    s: string;
    c: char;
begin
hidecursor;
SetWindowSize(600,500);
CenterWindow;
SetWindowCaption('Ребус');
pic1:=LoadPicture('1.bmp');
DrawPicture(pic1,50,280,130,150);
Sleep(500);
setpencolor(clblue);
Line(0,250,900,250);
SetFontColor(clGreen);
setfontsize(15);
textout(200,70,'Введите слово отгадку:');
SetFontColor(clred);
s:='';
repeat
c:=readkey;
inc(i);
if c<>#13 then
   begin
   textout(200+(20*i),100,c);
   s:=s+c;
   end;
until (c=#13)or(i=20);
if s='каратист' then
   begin
   SetFontColor(clGreen);
   textout(250,140,'ВЕРНО');
   end else
   begin
   SetFontColor(clred);
   textout(250,140,'НЕВЕРНО');
   end;
end.

@antony sky · 03.05.2012, 12:55 **[ТС]**

спасибо большое выручили

Новые блоги и статьи Все статьи Все блоги /
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. На мобильном - сканируйте QR-код. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .

@antony sky 0 / 4 / 1 Регистрация: 09.03.2011 Сообщений: 482
	03.05.2012, 12:55 [ТС]
	спасибо большое выручили 0