/*Дано трехзначное число. Найти сумму и произведение его цифр. Вывести число, полученное при прочтении исходного числа справа налево. В нем зачеркнули первую слева цифру и приписали ее справа. Вывести полученное число. В нем зачеркнули первую справа цифру и приписали ее слева. Вывести полученное число. Вывести число, полученное при перестановке цифр сотен и десятков исходного числа (например, 123 перейдет в 213). Вывести число, полученное при перестановке цифр десятков и единиц исходного числа (например, 123 перейдет в 132).*/ #include <stdio.h> #include <clocale> void sp (int); //функция нахождения суммы и произведения цифр void sprnl (int); //функция прочтения числа справа налево void pervsl (int); //функция 3 :D void pervsp (int); //функция 4 :P void sotdes (int); //функция перестановки сотен и десятков void desedin (int); //функция перестановки десятков и единиц int main() { setlocale (2, ".1251"); int num; do { printf ("Введите число: "); while (!(scanf("%d", &num)) || num < 100 || num > 999) { fflush(stdin); printf ("\nОшибка. Введите заново: "); } sp (num); sprnl (num); pervsl (num); pervsp (num); sotdes (num); desedin (num); printf ("\n\n"); } while (1); return 0; } void sp (int a) { int sum=0, mult=1; while (a) { sum+=a%10; mult*=a%10; a=a/10; } printf ("\n\nСумма цифр равна: %d", sum); printf ("\nПроизведение цифр: %d", mult); } void sprnl (int num) { int a, b, c; a=num%10; num/=10; b=num%10; num/=10; c=num%10; printf ("\nПеревернутое число: %d", 100*a+10*b+c); } void pervsl (int num) { int a, b; a=num%100; b=num/100; printf ("\nЗачеркнули первую слева цифру и приписали ее справа: %d", a*10 + b); } void pervsp (int num) { int a, b; a=num%10; b=num/10; printf ("\nЗачеркнули первую справа цифру и приписали ее слева: %d", a*100 + b); } void sotdes (int num) { int a, b, c; a=num%10; num/=10; b=num%10; num/=10; c=num%10; printf ("\nПерестановка сотен и десятков: %d", b*100 + c*10 + a); } void desedin (int num) { int a, b, c; a=num%10; num/=10; b=num%10; num/=10; c=num%10; printf ("\nПерестановка десятков и единиц: %d", c*100 + a*10 + b);
for i:=1 to 15 do {} begin if(count <= 4) then begin circle(a,b,c); floodfill(a, b, clwhite); a:=a+90; end; if(count = 5) then begin circle(a,b,c); floodfill(a, b, clwhite); a:=100; b:=b+90; count:=0; end; count:=count+1; end; end. вот еще одна прога program grnebo; uses graphABC,crt; var x,y:integer; n,i,r,k:integer; m:array [1..6] of integer; begin randomize; m[1]:=clred; m[2]:=clyellow; m[3]:=clgreen; m[4]:=clblue; m[5]:=clolive; m[6]:=clsilver; for i:=1 to 50 do begin x:=300 + random(510)-200; y:=250 + random(400)-200; r:=10; delay(100); k:= random(6)+1; SetBrushColor(m[k]); circle(x,y,r); end; end.
ЛИЦО uses crt,graphABC; var x,y,ul,gr,nt,w,r,h:integer; c:char; label 1; procedure uslov; begin if w=0 then DrawPicture(nt,x,y,r,h); if w=1 then DrawPicture(ul,x,y,r,h); if w=2 then DrawPicture(gr,x,y,r,h); end; begin r:=650; h:=400; w:=1; HideCursor; 1: circle(300,200,100); arc(300,350,100,60,120); circle(340,170,20); circle(340,180,10); circle(260,170,20); circle(260,180,10); RoundRect (290,180,310,230,10,10); line(300,100,300,140); line(260,110,250,140); line(340,110,350,140); SaveWindow('d:\g'); ClrScr; circle(300,200,100); line (250,250,350,250); circle (340,170,20) ; circle (340,180,10); circle (260,170,20); circle (260,180,10); RoundRect (290,180,310,230,10,10); line (300,100,300,140); line (260,110,250,140); line (340,110,350,140); SaveWindow('d:\n'); ClrScr; circle(300,200,100); arc(300,220,50,210,-30); circle (340,170,20) ; circle (340,180,10); circle (260,170,20); circle (260,180,10); RoundRect (290,180,310,230,10,10); line (300,100,300,140); line (260,110,250,140); line (340,110,350,140); SaveWindow('d:\u'); ClrScr; gr:=LoadPicture('d:\g'); nt:=LoadPicture('d:\n'); ul:=LoadPicture('d:\u'); uslov; repeat if keypressed then begin c:=readkey; case c of #110:begin ClrScr; w:=0; DrawPicture(nt,x,y,r,h); //нейтраль end; #117:begin ClrScr; w:=1; DrawPicture(ul,x,y,r,h); //улыбка end; #104:begin ClrScr; w:=2; DrawPicture(gr,x,y,r,h); //грусть end; #72:begin // клавиша вверх ClrScr; y:=y-5; uslov; end; #75:begin //клавиша вправо ClrScr; x:=x+5; uslov; end; #80:begin //клавиша вниз ClrScr; y:=y+5; uslov; end; #77:begin //клавиша влево ClrScr; x:=x-5; uslov; end; #44:begin //клавиша "<" меньше ClrScr; r:=r-7; h:=h-5; uslov; end; #46:begin //клавиша ">" больше ClrScr; r:=r+7; h:=h+5; uslov; end; #114:begin //клавиша "r" красный ClrScr; SetPenColor(clred); goto 1 end; #103:begin //клавиша "g" зеленый ClrScr; SetPenColor(clgreen); goto 1 end; #98:begin //клавиша "b" синий ClrScr; SetPenColor(clblue); goto 1 end; #121:begin //клавиша "y" желтый ClrScr; SetPenColor(clyellow); goto 1 end; #97:begin //клавиша "a" черный ClrScr; SetPenColor(clblack); goto 1 end; #113:begin //клавиша "q" увеличение контура втрое ClrScr; SetPenWidth(3); goto 1 end; #119:begin //клавиша "w" уменьшение контура Перемещение - стрелки лево, право, вверх, вниз'); writeln(' Увеличить рисунок - ">"'); writeln(' Уменьшить рисунок - "<"'); writeln(' Контур толще - "q"'); writeln(' Контур тоньше - "w"'); writeln(' Улыбка - "u"'); writeln(' Грусть - "h"'); writeln(' Нейтрал.- "n"'); writeln(' Красный - "r"'); writeln(' Зеленый - "g"'); writeln(' Синий - "b"'); writeln(' Желтый - "y"'); writeln(' Черный - "a" "F1"'); writeln; writeln; writeln(' Выход из окна любое действие над картинкой'); end; end; end; until c=#27; end.
uses graphABC; beginsetwindowsize(800,600);setpencolor(clblue);setbrushcolor(clblue);rectangle(0,0,800,400);setpencolor(clgreen);setbrushcolor(clgreen);rectangle(0,400,800,600); setpencolor(clblack);setbrushcolor(clSilver);rectangle(50,300,250,500);rectangle(250,500,500,300);line(50,300,150,200);line(150,200,250,300);line(400,200,500,300);line(150,200,400,200);floodfill(150,250,clsilver);floodfill(300,250,clMaroon);setbrushcolor(claqua);rectangle(110,360,190,440);rectangle(280,360,360,440);setbrushcolor(clSilver);rectangle(280,180,320,230);setbrushcolor(clMaroon);rectangle(400,350,470,500);setbrushcolor(claqua);circle(150,270,20);setbrushcolor(clBrown);rectangle(650,400,670,500);setbrushcolor(clgreen);ellipse(570,150,750,420);end.
КРУГ
uses graphabc;
var a,b,c,i,count:integer;
begin
floodfill(1, 1, clblue); {çàêðàøèâàåì ïðÿìîóãîëüíèê}
setbrushstyle(bsClear); {ñîçäà¸ì êðóãè}
{êîðäèíàòû êðóãà}
a:=100;
b:=100;
c:=50;
count:=1;
for i:=1 to 15 do {}
begin
if(count <= 4) then
begin
circle(a,b,c);
floodfill(a, b, clwhite);
a:=a+90;
end;
if(count = 5) then
begin
circle(a,b,c);
floodfill(a, b, clwhite);
a:=100;
b:=b+90;
count:=0;
end;
count:=count+1;
end;
end.
вот еще одна прога
program grnebo;
uses graphABC,crt;
var
x,y:integer;
n,i,r,k:integer;
m:array [1..6] of integer;
begin
randomize;
m[1]:=clred;
m[2]:=clyellow;
m[3]:=clgreen;
m[4]:=clblue;
m[5]:=clolive;
m[6]:=clsilver;
for i:=1 to 50 do begin
x:=300 + random(510)-200;
y:=250 + random(400)-200;
r:=10;
delay(100);
k:= random(6)+1;
SetBrushColor(m[k]);
circle(x,y,r);
end;
end.
ЛИЦО
uses crt,graphABC; var x,y,ul,gr,nt,w,r,h:integer; c:char; label 1; procedure uslov; begin if w=0 then DrawPicture(nt,x,y,r,h); if w=1 then DrawPicture(ul,x,y,r,h); if w=2 then DrawPicture(gr,x,y,r,h); end; begin r:=650; h:=400; w:=1; HideCursor; 1: circle(300,200,100); arc(300,350,100,60,120); circle(340,170,20); circle(340,180,10); circle(260,170,20); circle(260,180,10); RoundRect (290,180,310,230,10,10); line(300,100,300,140); line(260,110,250,140); line(340,110,350,140); SaveWindow('d:\g'); ClrScr; circle(300,200,100); line (250,250,350,250); circle (340,170,20) ; circle (340,180,10); circle (260,170,20); circle (260,180,10); RoundRect (290,180,310,230,10,10); line (300,100,300,140); line (260,110,250,140); line (340,110,350,140); SaveWindow('d:\n'); ClrScr; circle(300,200,100); arc(300,220,50,210,-30); circle (340,170,20) ; circle (340,180,10); circle (260,170,20); circle (260,180,10); RoundRect (290,180,310,230,10,10); line (300,100,300,140); line (260,110,250,140); line (340,110,350,140); SaveWindow('d:\u'); ClrScr; gr:=LoadPicture('d:\g'); nt:=LoadPicture('d:\n'); ul:=LoadPicture('d:\u'); uslov; repeat if keypressed then begin c:=readkey; case c of #110:begin ClrScr; w:=0; DrawPicture(nt,x,y,r,h); //нейтраль end; #117:begin ClrScr; w:=1; DrawPicture(ul,x,y,r,h); //улыбка end; #104:begin ClrScr; w:=2; DrawPicture(gr,x,y,r,h); //грусть end; #72:begin // клавиша вверх ClrScr; y:=y-5; uslov; end; #75:begin //клавиша вправо ClrScr; x:=x+5; uslov; end; #80:begin //клавиша вниз ClrScr; y:=y+5; uslov; end; #77:begin //клавиша влево ClrScr; x:=x-5; uslov; end; #44:begin //клавиша "<" меньше ClrScr; r:=r-7; h:=h-5; uslov; end; #46:begin //клавиша ">" больше ClrScr; r:=r+7; h:=h+5; uslov; end; #114:begin //клавиша "r" красный ClrScr; SetPenColor(clred); goto 1 end; #103:begin //клавиша "g" зеленый ClrScr; SetPenColor(clgreen); goto 1 end; #98:begin //клавиша "b" синий ClrScr; SetPenColor(clblue); goto 1 end; #121:begin //клавиша "y" желтый ClrScr; SetPenColor(clyellow); goto 1 end; #97:begin //клавиша "a" черный ClrScr; SetPenColor(clblack); goto 1 end; #113:begin //клавиша "q" увеличение контура втрое ClrScr; SetPenWidth(3); goto 1 end; #119:begin //клавиша "w" уменьшение контура Перемещение - стрелки лево, право, вверх, вниз'); writeln(' Увеличить рисунок - ">"'); writeln(' Уменьшить рисунок - "<"'); writeln(' Контур толще - "q"'); writeln(' Контур тоньше - "w"'); writeln(' Улыбка - "u"'); writeln(' Грусть - "h"'); writeln(' Нейтрал.- "n"'); writeln(' Красный - "r"'); writeln(' Зеленый - "g"'); writeln(' Синий - "b"'); writeln(' Желтый - "y"'); writeln(' Черный - "a" "F1"'); writeln; writeln; writeln(' Выход из окна любое действие над картинкой'); end; end; end; until c=#27; end.