Составьте программу, которая запрашивает показания температуры t и рисует снежинку, если t ‹ =0, или солнышко, если t › 0. (P.S. программа - PascalABC).
Приложения:
![](https://st.uroker.com/files/1b7/1b7095c634c64d794b408161b213beb5.jpg)
Ответы
Ответ дал:
10
Ответ:
program z1;
uses GraphABC;
var t:integer;
begin
SetWindowSize(400,400);
write('Введите показания температуры: ');
read(t);
SetPenWidth(3);
if t<=0 then
begin
SetPenColor(clBlue);
Line (150,200,200,150);
Line (200,150,250,200);
Line (250,200,200,250);
Line (200,250,150,200);
FloodFill(200,200,clSkyBlue);
Line (100,200,300,200);
Line (200,100,200,300);
Line (100,100,300,300);
Line (100,300,300,100)
end
else
begin
SetPenColor(clYellow);
Line (100,200,300,200);
Line (200,100,200,300);
Line (100,100,300,300);
Line (100,300,300,100);
SetBrushColor(clYellow);
Circle(200,200,50)
end
end.
Объяснение:
Вводим температуру
Если t <= 0 рисуем снежинку, иначе (если t > 0) рисуем солнышко
Приложения:
![](https://st.uroker.com/files/a32/a32889c15adb5c4dbce8569627f719d1.png)
![](https://st.uroker.com/files/47d/47dd4805ac4abd65ecb28a2e7868cff0.png)
oreshek2222:
Спасибо большое ❤️
в моем аккаунте в разделе вопросы. Умоляю!
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
7 лет назад
8 лет назад