Может кому пригодится

не моё это =) мне больше машинки нравятся)

 

:) машинки :) ну то же не плохо :)

 

каждому свое :)

 

спс

 

program asdasd;
uses
crt,
GraphABC;
var x:integer;
begin

begin
for x := 1 to 305 do
begin

clearwindow;
rectangle(300, 300, 375, 430);
circle(x + 50, 350, 17);
line(x + 50, 367, x + 35, 390);
line(x + 50, 367, x + 65, 390);
line(x + 50, 367, x + 50, 407);
line(x + 50, 407, x + 35, 425);
line(x + 50, 407, x + 65, 425);
circle(x + 43, 343, 3);
circle(x + 55, 343, 3);
line(x + 45, 355, x + 55, 355);
delay(20);

end;

end;

end.

недавно нам задали сделать вот такую программку на паскале что бы человечек до шел до двери
может кому надо будит берите если будут вопросы пишите в личку

 

нас паскалю в школе учат =\

 

:) Вы изучите только написания программ которые будут решать уравнения :)
особо изучать вы его не будите ;)
ну это и не плохо что вы его изучаете )

 

чертить линию
Program dzchisla;
uses Drawman;
Var a,b,i:integer;
Begin
Writeln('введите число A');
Readln(a);
Writeln('введите число B');
Readln(b);

For i:=A to B do
begin
end;
Field (3,4)
ToPoint(a,b);
PenDown;
End.

 

следующие программки будут на сях так что извеняйте если что :D

 

Спасибо.!

 

продолжения ;) С# - чекер прокси :)

 

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

<script>
var trans;
var beast=promp ("Введите слово для перевода")

switch (beast)
{
case "lost"
trans ="пропавший"
breal;
default:
trans ="неизвестное слово"
}
alert(beast+" - "+trans);
</script>