4 года назад

Влад на тебе прогу на самокат

самокатище
program samokat;
uses
graphABC;

begin
// ручки самоката
roundRect (31, 11, 170, 35, 25, 25);
MoveTo (71, 11);
lineTo (71, 35);
moveTo (130, 11);
lineTo (130, 35);
floodfill (50, 19, 14309406);
floodfill (144, 24, 14309406);
floodfill (100, 26, 1296122);
// палка центральная
moveTo (90, 34);
lineTo (90, 150);
lineTo (110, 150);
lineTo (110, 34);
floodFill (99, 78, 1296122);
roundRect (50, 150, 230, 175, 25, 25);
floodFill (138, 166, 1296122);

// колеса
circle (75, 194, 15);
circle (200, 194, 15);
floodFill (75, 194, 343378);
floodfill (200, 194, 343378);

// дуги над полесами
setPenWidth (7);
arc (75, 193, 20, 50, 130);
arc (200, 193, 20, 50, 130);

end.

maveric.toni@mail.ru (Гость) Программирование
3

Программирование: Влад на тебе прогу на самокат

2 года назад Правильно ли написана прога на турбо паскале?

http://i57.fastpic.ru/big/2014/0105/56/901023e00cea2375a602e5f2fdd79856.jpg вот тут коды. суть проги нужно посчитать длины 10 бочек

влад архинчеев (Гость) 2 ответа
3
2 года назад Паскаль переделать прогу из двух в одну. Заранее спасибо!

Как можно слепить 2 проги для вычисления студентов одного имени: №1 это запыс групы и их оценок, что нестоль важно, а №2 выбор одного имени
№1
program Laba5Prog;
uses crt;
const size=5;
type
Student = record
surname,ownname,patronym:string;
marks:record
sda,math,prog,alg:byte;
end;
end;
type
SimpleGroup=array[1..size] of Student;
var Group:SimpleGroup;
function GetFromString(var str:string):string;
var i:integer; tmpstr:string;
begin
i:=1;
while str[i]<>' ' do
inc(i);
tmpstr:=copy(str,1,i...

Алексей Бодров (Гость) 2 ответа
3
2 года назад Паскаль переделать прогу из двух в одну. Заранее спасибо!

Как можно слепить 2 проги для вычисления студентов одного имени: №1 это запись групы и их оценок, что нестоль важно, а №2 выбор одного имени
№1
program Laba5Prog;
uses crt;
const size=5;
type
Student = record
surname,ownname,patronym:string;
marks:record
sda,math,prog,alg:byte;
end;
end;
type
SimpleGroup=array[1..size] of Student;
var Group:SimpleGroup;
function GetFromString(var str:string):string;
var i:integer; tmpstr:string;
begin
i:=1;
while str[i]<>' ' do
inc(i);
tmpstr:=copy(str,1,...

emmanuel131313monro@mail.ru (Гость) Нет ответов
3
Влад на тебе прогу на самокат (Программирование) - вопросы и ответы на все случаи жизни - справочник Программирование FOR-ASK.RU