Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Нарисовать свою визитку. Использовать разный шрифт и направление текста. Паскаль, помогитеее

Ответ оставил Гость

Кое что убрал - работает, только свои данные введи (фамилия и т.д.)

uses graphabc;var s,f,i,o: string;    j: byte;    pic: integer;begin
s:=AVALON;f:=FAMILY;i:=name;o:=second name;
setfontcolor(clred);setwindowsize(550,250);setfontsize(20);setfontstyle(fsbold);for j:=1 to length(s) do    textout(10,(j*40)-40,s[j]);setpencolor(clred);setbrushcolor(clred);rectangle(30,120,550,125);setfontcolor(clblue);setbrushcolor(clwhite);setfontname(Tahoma);setfontsize(16);SetFontStyle(fsnormal);textout(300,10,f);SetFontStyle(fsItalic);textout(300,50,i);textout(300,90,o);setpenwidth(6);for j:=1 to 10 do    arc(500+(j*30),420,300,0,180);setfontname(Times);setfontsize(26);textout(40,150,Something for good);end.