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

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


textual

Код к задаче: «Напишите программу для данного рисунка - Pascal»

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.

СДЕЛАЙТЕ РЕПОСТ

7   голосов, оценка 4.429 из 5



Похожие ответы
  1. Составить программу формирования по вещественной квадратной матрице А={a}_{ij},i=1/n,j=1/m логического вектора B={b}_{i},i=1/n,где {b}_{i} имеет значение true, если наибольший элемент в строке с номером i матрицы А не больше заданного Х,и значение false-в противном случае

  1. - Написать программу, которая читает с клавиатуры произвольную строку символов, преобразует ее и выводит результат на дисплей в виде строки. - Длина строки заранее не вводится, а определяется после окончания ввода с клавиатуры. - В строке группы символов разделяются одним или несколькими пробелами. Пробелы могут находиться в начале и в конце строки. Группа символов - последовательность букв, цифр или знаков, отделенная пробелами от других групп или находящаяся в начале/конце строки. - Все буквы считать вводимыми только в нижнем регистре, Заглавные буквы не рассматривать. - В заголовок окна программы записать свои данные: имя, фамилию и номер варианта. Примеры возможных строк: ‘ 12.3 tryi yu ()?*‘, ‘ 6е-1 swty +12_3‘ Напечатать: Группы символов, состоящие только из латинских букв, если в них есть повторяющиеся буквы.

  1. Напишите процедуру, которая вычисляет трёхзначное число m, состоящее из трех цифр. Первая цифра – m3 - сотни, вторая – m2 - десятки и третья - m0 - единицы. Вычислить пять трехзначных чисел. Процедуру оформить несколькими способами. Заранее, большое спасибо.

  1. Напишите функцию, которая возвращает наименьшее из значений |x-y|, |y-z|, |z-x|.

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

  1. Составить программу вычисления суммы и произведения ряда sin1, sin2, sin3, ..., sinN Задачу мне нужно решить 3-мя способами: с параметром, цикл-пока, цикл-до.

  1. ребята на екзамен срочно нужно помогите Написать программу вычисления функции при a=2; b=0.5; c=-4. Аргумент x принимает значения от 1 до 10 с шагом 1.

  1. Буду очень признателен)C++1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 #include using namespace std;   int main() {     setlocale(0,""); // Чтобы корректно отображались русские буквы       cout << "Вычисление значения гиперболического синуса с точность eps = 0.01\n\n "          << "y = sh(x) = x + x^3/3! + ... + x^(2n+1)/(2n+1)! + ...\n\n";       double x;     cout << "Задайте x = ";     cin >> x;       double an = x, sum = an, eps = 0.01;     int i = 1;     while (abs(an) > eps)      { an *= (x*x)/(2*i*(2*i+1));        sum += an;        i++;      }       cout << "\n sh(" << x << ") = " << sum << endl;       system("pause > null");     return 0; }Если что, вот сама задача: Не используя стандартные функции (за исключением abs), вычислить с точностью eps > 0 у = shx = x + x3/3! + x5/5! +…+x2n+1/(2n + 1!) +…; Считать, что требуемая точность достигнута, если очередное слагаемое по модулю меньше eps, все последующие слагаемые можно уже не учитывать.

  1. Разработать алгоритм и составить программу вычисления таблицы значений функции, заданной в виде разложения в ряд. Значение функции вычислять с точностью ε>0, т.е., вычисление суммы членов ряда необходимо прекратить, когда абсолютная величина очередного члена ряда разложения окажется меньше ε: |ak|<ε. При вычислении очередного члена ряда целесообразно воспользоваться рекуррентным выражением: ak+1=ckak; k = 0, 1, 2, ..., где ak - некоторый k-ый член ряда; ak+1 - следующий k+1-ый член ряда; ck - коэффициент, определяемый номером k. При создании программы необходимо по возможности воспользоваться операторами организации циклов WHILE, REPEAT, FOR. Границы интервала вычисления функции a и b, величина шага изменения аргумента h и точность вычисления функции ε задаются при вводе. На печать выводится номер по порядку, значение аргумента, соответствующее еьу, значение функции и номер члена ряда, на котором закончилось вычисление значения функции, в форме таблицы:№xf(x)№чл.р.1   2   3   ...