Напишите программу для данного рисунка - Pascal

  1. Напишите программу для данного рисунка:

textual

Код:

uses GraphAbc;
begin
SetWindowSize(800,600);
//Кораблик
  line (129,194,249,72);
  line(247,71,246,232);
  line(104,235,359,235);
  line(103,235,167,304);
  line(167,304,292,303);
  line(292,303,361,234);
  line(127,192,246,196);
  line(248,153,305,154);
  line(305,154,250,72);
  FloodFill(206,149,clBlue);
  FloodFill(264,127,clBlue);  
  FloodFill(233,271,clRed); 
//Книга
  line(399,286,498,288);
  line(498,288,542,232);
  line(542,232,511,373);
  line(511,372,469,423);
  line(469,423,499,288);
  line(399,286,367,427);
  line(367,427,467,425);
//Звезда
  line(514,151,531,145);
  line(531,145,538,122);
  line(538,122,543,143);
  line(543,143,561,151);
  line(561,151,542,157);
  line(542,157,538,182);
  line(538,182,533,158);
  line(533,158,516,151);
  FloodFill(538,153,clYellow);   
// Свеча
  line(623,222,623,242);
  line(613,244,633,245);
  line(633,245,633,406);
  line(633,406,613,407);
  line(613,407,614,245);
  line(590,130,610,152);
  line(624,136,624,107);
  line(640,156,656,134);
  MoveTo(626,152);
  LineTo(625,155);
  LineTo(625,155);
  LineTo(619,162);
  LineTo(616,166);
  LineTo(612,171);
  LineTo(609,178);
  LineTo(607,185);
  LineTo(607,194);
  LineTo(608,204);
  LineTo(610,210);
  LineTo(613,217);
  LineTo(617,220);
  LineTo(621,223);
  LineTo(625,221);
  LineTo(632,216);
  LineTo(636,212);
  LineTo(637,189);
  LineTo(637,179);
  LineTo(634,172);
  LineTo(631,164);
  LineTo(631,159);
  LineTo(627,151);
  FloodFill(620,193,clYellow);   
//Месяц
  Arc(435,162,50,90,270);
  Arc(445,162,50,90,270);
  FloodFill(390,162,clYellow);     
  SetFontName('Times New Roman');
  SetFontSize(30);  
  TextOut(295,29,'Вариант 10.');
end.

Похожие ответы
  1. Напишите программу, которая выводит в столбец произведения чисел а = 143, b = 777 и чисел 1, 2, 3, ... 9. Результаты решения этой задачи могут удивить и озадачить. Тысячелетиями человечество, выполняя различные вычисления, находило среди чисел и результатов операций с ними интересные закономерности. Некоторым числам, например, 3, 7, 13, 666 и т. п., придавалось мистическое значение. В наше время, имея доступ к компьютеру, можно целенаправленно заниматься поиском различных «фокусов» с числами. Как правило, такой поиск требует значительных переборов вариантов и по силам только компьютеру.

  1. Здравствуйте,помогите пожалуйста написать код,спасибо.Напишите программу, которая заполняет массив из N элементов в обратном порядке последовательными натуральными числами, начиная с последнего элемента, который должен быть равен X . Входные данные Входная строка содержит два целых числа: начальное значение X и размер массива N , разделённые пробелом. Гарантируется, что 0 < N ≤ 10000 . Выходные данные Программа должна вывести содержимое массива: убывающую последовательность из N последовательных натуральных чисел; последний элемент должен быть равен X . Примеры входные данные 6 4 выходные данные 9 8 7 6

  1. Помогите пожалуйста написать код.Напишите программу, которая сортирует массив по возрастанию "методом камня": аналогично "методу пузырька", но в обратном порядке: самый "тяжелый" элемент из оставшихся спускается к концу массива. Входные данные Первая строка содержит размер массива N . Во второй строке через пробел задаются N чисел – элементы массива. Гарантируется, что 0 < N ≤ 10000 . Выходные данные Программа должна выводить весь массив после каждой перестановки элементов. Все элементы массива выводятся в одну строку и разделяются пробелами, после окончания вывода массива выполняется переход на новую строку. Если перестановок не было, программа выводит только число 0. Примеры входные данные 4 4 3 2 1 выходные данные 3 4 2 1 3 2 4 1 3 2 1 4 2 3 1 4 2 1 3 4 1 2 3 4

  1. Помогите написать код,спасибо.Напишите программу, которая сортирует массив целых чисел и определяет количество различных значений в нём. Входные данные Первая строка содержит размер массива N . Во второй строке через пробел задаются N чисел – элементы массива. Гарантируется, что 0 < N ≤ 10000 . Выходные данные Программа должна вывести в первой строке элементы массива, отсортированного в порядке возрастания, а во второй строке – количество различных чисел в массиве. Примеры входные данные 6 6 2 1 3 6 2 выходные данные 1 2 2 3 6 6 4

  1. Здравствуйте,помогите пожалуйста написать код.Напишите программу, которая сортирует по возрастанию все элементы массива с нечётными номерами. При этом все элементы с чётными номерами должны остаться на своих местах. Нумерация элементов массива начинается с единицы. Входные данные Первая строка содержит размер массива N . Во второй строке через пробел задаются N чисел – элементы массива. Гарантируется, что 0 < N ≤ 100000 . Выходные данные Программа должна вывести все элементы отсортированного массива в одну строку, разделив их пробелами. Примеры входные данные 6 6 5 4 3 2 1 выходные данные 2 5 4 3 6 1

  1. Здравствуйте,помогите пожалуйста написать программу .Напишите программу, которая заменяет в символьной строке все буквы a на буквы b , a буквы A на буквы B .Входные данные Входная строка содержит символы латинского алфавита, как строчные, так и заглавные. Выходные данные Программа должна вывести в первой строке получившуюся в результате обработки символьную строку, а во второй – количество выполненных замен. Примеры входные данные aabbccAABBCC выходные данные bbbbccBBBBCC 4

  1. Здравствуйте, помогите написать программу на pascal,спасибо.Напишите программу, которая выделяет в другой массив все элементы исходного массива, которые меньше нуля.Первая строка содержит размер массива N . Во второй строке через пробел задаются N чисел – элементы массива. Гарантируется, что 0 < N ≤ 10000 .Программа должна вывести содержимое полученного массива: все отрицательные элементы исходного массива в том же порядке. Если таких нет, нужно вывести число 0. входные данные 6 1 2 3 4 5 6 выходные данные 0

  1. Всем доброго времени суток! В одной компьютерной игре игрок выставляет в линию шарики разных цветов. Когда образуется непрерывная цепочка из трех и более шариков одного цвета, она удаляется из линии. Все шарики при этом сдвигаются друг к другу, и ситуация может повториться. Напишите программу, которая по данной ситуации определяет, сколько шариков будет сейчас "уничтожено". Естественно, непрерывных цепочек из трех и более одноцветных шаров в начальный момент может быть не более одной. Помогите, пожалуйста, тут что-то не так:

  1. Напишите программу «КОРЕНЬ», которая запрашивает число и выдает корень квадратный из заданного числа. Запросы продолжаются до тех пор, пока пользователь не введет отрицательное число.


Нашли ошибку?
Развитие проекта
Яндекс.Метрика