Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Отсортировать содержимое файла F методом прямого обмена, и записать в файл G https://www.cyberforum.ru/ turbo-pascal/ thread136139.html необходимо в файл f записать 30 000 чисел с помощью randomize и затем написать отдельную програму которая считывает числа с файла, отсортировать с помощью метода прямого обмена и записать все в файл g. Добавлено через 19 минут подскажите пожалуста, метод прямого обмена и метод пузырька это одно и то же? дело в том что препод сказал что да, но в интернете я нашла много сайтов где написано что...	Turbo Pascal Цветочки в вазе) Графика: 1)нарисовать 3 цветочка в вазе 2)анимировать так чтобы лепестки у цветочков падали)
Turbo Pascal плс кажите как заставить его двигаться!! и как его раскрасить!! вот текс программы! зарания спс! https://www.cyberforum.ru/ turbo-pascal/ thread136121.html program grapika; uses Graph, crt; var Gd, Gm: Integer; Radius: Integer; FillInfo: FillSettingsType; begin clrscr; Gd := Detect;	Turbo Pascal Анимация снеговика Program ZaD_Snegovik; Uses graph; Var Device,mode:Integer; Begin Device:=0; InitGraph(Device,Mode,'c:\Turbo'); Setcolor(Brown); SetFillStyle(SolidFill,Brown); Bar(300,30,360,80);{shapka} SetColor(white); https://www.cyberforum.ru/ turbo-pascal/ thread136088.html
Turbo Pascal Символьные массивы Помогите пожалуйста с задачей : Ввести из клавиатуры строку S длиной до 50 символов. Вывести ее на печать, удвоив пробелы между словами.	Turbo Pascal Найти сумму максимального и минимального элементов этого файла. https://www.cyberforum.ru/ turbo-pascal/ thread136033.html Заполнить файл н действительными числами, полученных с помощью датчика случайных чисел. Найти сумму максимального и минимального элементов этого файла.
Turbo Pascal записать в файл н действительных чисел. записать в файл н действительных чисел. Вычислить произведение компонентов файла и вывести на экран. https://www.cyberforum.ru/ turbo-pascal/ thread136030.html	Множества Turbo Pascal Помогите с задачей пожалуйста Дан текст, за котоpым следует точка. В алфавитном поpядке, напечатать (по pазу) все стpочные pусские гласные буквы (*), входящие в этот текст не более трёх раз.
Turbo Pascal Круг летает по экрану https://www.cyberforum.ru/ turbo-pascal/ thread135961.html Круг летает по экрану, начальный цвет случайный. При столкновении с правой границей экрана меняет цвет на синий, с левой - на красный, с верхней - на зеленый, с нижней - на желтый	Turbo Pascal типизированные файлы https://www.cyberforum.ru/ turbo-pascal/ thread135905.html у меня не боьшая проблема, у меня такое вот задание: ОПРЕДЕЛИТЬ ПЕРЕМЕННУЮ СТУДЕНТ, СОДЕРЖАЩУЮ СЛЕДУЮЩИЕ ПОЛЯ: ИМЯ, ФАМИЛИЯ, ОТЧЕСТВО СТУДЕНТА, НАЗВАНИЕ ИНСТИТУТА, НОМЕР ГРУППЫ. ДАННЫЕ СЧИТАТЬ ИЗ ТЕКСТОВОГО ФАЙЛА. ВЫВЕСТИ ДАННЫЕ О СТУДЕНТАХ, КОТОРЫЕ УЧАТСЯ В ОДНОМ И ТОМ ЖЕ ИНСТИТУТЕ, И В ОДНОЙ ГРУППЕ.. Я написала программу используя текстовый файл, что нужно исправить в коде что бы данные...
Подскажите какая команда закрашивает фигуру? Turbo Pascal Подскажите какая команда закрашивает фигуру?)	Turbo Pascal Подсчитать минимальную сумму элементов в столбцах двумерного массива вещественных чисел https://www.cyberforum.ru/ turbo-pascal/ thread135891.html помогите пощалуйста подсчитать минимальную сумму элементов в столбцах двумерного массива вещественных чисел зарание спасибо

Стервочка

0 / 0 / 1

Регистрация: 23.05.2010

Сообщений: 32

28.05.2010, 06:58

Анимировать снеговика - Turbo Pascal - Ответ 760036

28.05.2010, 06:58. Показов 1688. Ответов 1

Метки (Все метки)

Ответ

Pascal

Program ZaD_Snegovik;
Uses graph;
Var Device,mode:Integer;
Begin
     Device:=0;
     InitGraph(Device,Mode,'c:\Turbo');
     Setcolor(Brown);
     SetFillStyle(SolidFill,Brown);
     Bar(300,30,360,80);{shapka}
     SetColor(white);
     SetFillStyle(1,white);
     Circle(330,120,40);
     Circle(345,110,5);
     Circle(315,110,5);
setcolor(вырезано...);
     Line(320,140,340,140); {rot}
     SetColor(red); SetFillStyle(SolidFill,red);
     Line(330,120,330,130); {nos}
     Line(330,120,305,130); {nos}
     Line(330,130,305,130); {nos}
     SetColor(White);
     SetFillStyle(SolidFill,LightMagenta);
     Circle(330,220,60);
     Circle(330,360,80);
     Rectangle(350,163,455,183); {ryka}
     Rectangle(203,163,308,183); {ryka}
     SetColor(Red);
     Line(210,130,210,440);  {Posoh}
     Readln;
     CloseGraph
END.

Вернуться к обсуждению:
Анимировать снеговика Turbo Pascal

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

28.05.2010, 06:58

Готовые ответы и решения:

Анимация снеговика
Program ZaD_Snegovik; Uses graph; Var Device,mode:Integer; Begin Device:=0; ...

Нарисовать снеговика
в графике не могу нарисовать снеговика( помогите пожалуйста

Нарисовать снеговика
Нарисуйте снеговика: вот какое должно получиться:

Дорисовать снеговика
Вот к этой программке нужно что-то..елочку например..дорисовать снеговика..выручайте.графику вообще...

	28.05.2010, 06:58

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

28.05.2010, 06:58

Помогаю со студенческими работами здесь

Нарисовать тающего снеговика
Нарисовать в паскале снеговика, который при нажатии кнопки(F2) начнет постепенно таять, превращаясь...

Нарисовать лебедя на воде и анимировать его
Народ помогте с задачкой пожалуйста. В общем мне нужно нарисовать лебедя на воде и анимировать его....

Составьте программу рисования на экране снеговика
Составьте программу рисования на экране снеговика. Радиус меньшего круга и координаты центра этого...

Нарисовать подмигивающего снеговика около елки.
ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ ПОЖАЛУЙСТА. Нарисовать подмигивающего снеговика около елки. СПАСИБО ВСЕМ...

Наверх