М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Dinomid93
Dinomid93
07.09.2022 15:00 •  Информатика

Как сделать, чтобы глаза котика моргали? паскаль! uses graphabc; begin setwindowsize(600,700); setbrushcolor(clgray); line(120,240,150,40); line(150,40,280,150); line(280,150,120,240); line(320,150,480,240); line(480,240,450,40); line(450,40,320,150); floodfill(200,100,clsilver); floodfill(400,100,clsilver); setbrushcolor(clgray); floodfill(300,500,clgray); setbrushcolor(clgray); ellipse(100,430,500,130); line(120,350,0,700); line(0,700,600,700); line(600,700,470,350); line(120,350,300,550); line(300,550,470,350); floodfill(120,370,cllime); floodfill(90,360,clskyblue); setbrushcolor(clwhite); ellipse(300,240,200,330); ellipse(300,240,400,330); setbrushcolor(clblack); ellipse(260,270,240,300); ellipse(360,270,340,300); setbrushcolor(clblack); ellipse(270,330,330,370); line(50,350,200,350); line(30,340,190,340); line(10,330,180,330); line(410,330,570,330); line(400,340,560,340); line(390,350,550,350); end.

👇
Ответ:
макс3096
макс3096
07.09.2022
Можно поставить "вечный цикл" с задержкой и перерисовывать ему глаза раз в секунду. Самый простой который пришёл в голову.

Исходник в приложении к ответу.
4,5(35 оценок)
Открыть все ответы
Ответ:
Romlik
Romlik
07.09.2022
Для того, чтоб не запутаться :
х-длина куска ткани;
у-его ширина;
S-площадь ткани, которая получится при вводе длины и ширины ткани;
с-цена , которую вы должны получить;
Не пугайтесь, если при цене будет вылетать число*В, т.к. изначально В-данная цена за 1м^2
Приступаем
1) блок-схема (фото)
2) программа
Program (название);
uses crt;
var B,x,y,S,c:real;
begin
writeln('введите длину ткани=');
readln(x);
writeln('введите ширину ткани=');
readln(y);
S:=x*y;
c:=S*B;
writeln('цена за кусок ткани=',c);
end.
3) мат
S=x*y и c(цена)=в(данная цена за 1 м^2)*S

Информатика: магазине продается костюмная ткань. ее цена в руб. за квадратный метр. составьте алгори
4,7(44 оценок)
Ответ:
Чикчирик12
Чикчирик12
07.09.2022

Не нечетное число - это четное число, поэтому:

не(x - нечетное) равносильно (x - четное)

x>=10 - в данное неравенство входят все x из промежутка [10;+oo), т.е на данном промежутке неравенство истинно. А ложно оно соотвественно на (-oo;10). Логическое "не" инвертирует данное неравенство( истина становится ложью, и наоборот), значит:

не(x>=10) равносильно (x<10), и промежуток x: (-oo;10)

В итоге:

не(x - нечетное) и не(x>=10)<=>(x - четное) и (x<10)

Полученное неравенство будет истинно для четных x из промежутка (-oo;10).

Наибольшее четное число из (-oo;10): 8

ответ: 8

4,6(9 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ