Составьте программу вывода ** экран рисунка, построенного из различных символов.Помогите...

0 голосов
104 просмотров

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


Информатика (105 баллов) | 104 просмотров
0

Что именно должен изображать рисунок?

0

там не написано

0

только мат не рисуй

Дано ответов: 2
0 голосов
Правильный ответ

//Мона Лиза
//Pascal ABC.NET 3.1 сборка 1256

begin
writeln('i`it)v|[[[[(//s+)`(-\\/[email protected]@@@@@@dmKK(c!(/-[2=/cct/!-v\!_L\)|',chr(10),chr(13),']-!/(!-)\L\)v|c5(!,[email protected]@@@@@@@@@@@@@@@@@@dK/]!c\\\v|i\/cT\v((c-',chr(10),chr(13),']!`/v\//(-|t\[email protected]@@@@[email protected]@@@@@@@@@@@@@@@@@@@bLt\\|)c/2-vv)/it\.',chr(10),chr(13),'--/-,\,\v\,|)/v/[email protected]@@@@@[email protected]@@@@@@@@@@@@@@@@@@@@@@bK!v!-( )-!.[/cT',chr(10),chr(13),'.//.\--.--|-/c([email protected]@@@@@@[email protected]@@@@@@@@@@@@@@@@@@@@@@@@@s\\\\-||/v!c\.',chr(10),chr(13),'-,-|\`||\-\/[email protected]@@@@@@@[email protected]@@@@@@@@@@@@@@@@@@@@@@@@@@@b.),`-,-/c-`i',chr(10),chr(13),'!,\[email protected]@@@@@@P[+~**[email protected]@@@@@@@@@@@@@@@@@@@@@@b/./`c-/.\7-',chr(10),chr(13),'--..-- -/,[email protected]@@*P!`          \[email protected]@@@@@@@@@@@@@@@@@@@@i.\\..\.c',chr(10),chr(13),',`,`\.-,[email protected]@5`-           -- `[email protected]@@@@@@@@@[email protected]@@@@@@@@_\-|-\c-',chr(10),chr(13),'. -.,`/[email protected]@K- `               - )[email protected]@@@@@@@@@@@@@@@@@@c-----/',chr(10),chr(13),'- `-  [email protected]@Ai                    [email protected]@@@@@@@@@@@@@@@@@@b! \`|-`',chr(10),chr(13),' `-,.- [email protected]@@[,                    [email protected]@@@@@@@@@@@@@@@@@@[/-,-/.',chr(10),chr(13),'-` .-/[email protected]@@A)                      -)[email protected]@@@@@@@@@@@@@@@@@\. _\',chr(10),chr(13),'- ` ,[email protected]@@!                     .-!([email protected]@@@@@@@@@@@@@@@@@[(/s[.',chr(10),chr(13),'  - i\[email protected]@@Z-                    . ! [email protected]@@@@@@@@@@@@@@@@)(4)`',chr(10),chr(13),' , -|[email protected]@@@!\                     .  ` |[email protected]@@@@@@@@@@@@@@@XNYZ-',chr(10),chr(13),'   [email protected]@@@A-,                        .  `)([email protected]@@@@@@@@@@@@@@@D)8A[',chr(10),chr(13),'   )[email protected]@@@@\                         ,-.-/[email protected]@@@@@@@@@@@@@@@@[email protected][',chr(10),chr(13),'  ]][email protected]@@@d|-              ,ii.c,, [email protected]@@@@@[email protected]@@@@@@@@@(@8[',chr(10),chr(13),'  [email protected]@@@@( .i!vGG_      [email protected]@[email protected]@@@@@@@[email protected]@@@@@@@@@[email protected]',chr(10),chr(13),' )/[email protected]@@[email protected]@dP~~~T4(    [email protected]@7`[email protected]@@@@[email protected]@@[email protected]@@@@@@@@@@@LM8[',chr(10),chr(13),'\[email protected]@@@@[email protected]@d*@@@bVi   [email protected]@@@@@*ff/\[email protected]@@@@@@@@@@@@@@[email protected][',chr(10),chr(13),',\[email protected]@@[email protected]~t` !*~!`.  -MA)    .~..).` `,[email protected]@@@@@@@@@@@@@@@@AKb[',chr(10),chr(13),',`[email protected]@@@@@ -`,,gvZ``    A//-  ..c\+\`    i][email protected]@@@@@[email protected]@@@@@@@@@@8[',chr(10),chr(13),'i\@[email protected]@@@D              \!.             [email protected]@@[email protected]@@@@[email protected]@@@8M[',chr(10),chr(13),'[email protected]@@@@@             .!-             .-)[email protected]@@@@@@@@@@@@@@@@@M8i',chr(10),chr(13),'[email protected]@@@@-             v  ,          ,\[email protected]@@@@@@@@@@@[email protected]@@@@@Z2|',chr(10),chr(13),'@[email protected]@@@[email protected][              //           [email protected]@@[email protected]@[email protected]@[email protected]@@[email protected]@@bmi',chr(10),chr(13),'@@[email protected]@[email protected]@@P-            -=/.         /[email protected]@@@@@@@@@@@@@[email protected]@@[email protected]@[',chr(10),chr(13),'@[email protected]@@[email protected]@@@\-      .   _)g2i        -(([email protected]@@@@[email protected]@@@[email protected]@[email protected]@@@@@K[',chr(10),chr(13),'@@@[email protected]@[email protected]@)i     .c,,[email protected]@bK       )X)[email protected]@@<a href="/cdn-cgi/l/email-protection" class="__cf_e

(38.6k баллов)
0

больше тутить не буду

0

шутить

0

Шутить можно, конечно же. Но...в допустимых пределах, тут же дети от 7-8 лет.

0

ты не врёшь?

0

как заработать баллы если ты ничо не знаешь ?

0

[Sage] Как жаль, что можно выкладывать только ответы, содержащие не более 5000 символов. У меня тут такой годный ASCII art c I3artle на 16 тысяч символов.

0

Что за проблема? В файл тхт его и прицепить

0

Обновил. Давно не использовал вложения для передачи кода, не учёл возможность.

0

круто

0

полегче нельзя

0 голосов

// PascalABC.NET 3.1, сборка 1267 от 10.07.2016
begin
  Writeln(17*'_','.888888888.');
  Writeln(17*'_','88"P""T"T888_8o');
  Writeln(13*'_','o8o_8.8"8_88o."8o_8o');
  Writeln(12*'_','88_._o88o8_8_88."8_88P"o');
  Writeln(11*'_','88_o8_88_oo.8_8 88_8_888_88');
  Writeln(11*'_','88_88_88o888"_88"__o888_88');
  Writeln(11*'_','88."8o."T88P.88"._88888_88');
  Writeln(11*'_','888."888."88P".o8_8888_888');
  Writeln(11*'_','"888o"8888oo8888_o888_o8P"');
  Writeln(12*'_','"8888. ""888P"P.888".88P');
  Writeln(13*'_','"88888ooo__888P".o888');
  Writeln(15*'_','""8P"".oooooo8888P');
  Writeln(6*'_','.oo888ooo.____8friga888P8');
  Writeln('____o88888"888"88o.__"8888"".8f___.oo888o o..');
  Writeln('_____8f88"_"88_88888._______8r".o88888888" 888.');
  Writeln('_____"8r88o.""o_88"88o.____oi".888"888" 88_"88P');
  Writeln(6*'_','T8i8C.oo._"8."8"8___og"o888_o88"_" .=888"');
  Writeln(7*'_','88g88888o_"8_8_8__.a_.8"88_8"".o888 o8P');
  Writeln(8*'_','"8a88C.o8o__8_8__8"_8_o"_...o""" 8888');
  Writeln(10*'_','"88888888_"_8_.8__8___88888888888 "');
  Writeln(12*'_','"8888888o__.8o="_o8o..o(8oo88".');
  Writeln(16*'_','"888"_88"____88FRIGA88"".');
  Writeln(20*'_','o8P_______"888"""');
  Writeln(14*'_','...oo88');
  Writeln('_____"8oo...oo888""')
end.


image
(142k баллов)
0

нельзя ли рисунок полегче а ?

0

а то мне это переписывать