Нужен не сложный рисунок в паскале, что то типа домика и дерева! надо !

👇

Ответ:

jdzhafarova

30.09.2020

Давно ещё робота рисовал,код правда можно раз в 100 упростить,но мне лень.Может пригодится.

uses crt,graph;
var
gd,gm:integer;
begin
gd:=vga;
gm:=vgahi;
initgraph (gd,gm,'');
if graphresult <> 0 then closegraph else
begin
setcolor (7);
rectangle (300,60,340,100);
line (312,60,312,45);
line (327,60,327,45);
circle (312,40,5);
circle (327,40,5);
setcolor (10);
rectangle (295,65,300,90);
rectangle (340,65,345,90);
rectangle (310,75,315,70);
rectangle (325,75,330,70);
rectangle (310,85,330,90);
line (320,70,320,80);
line (297,67,297,88);
line (342,67,342,88);
line (314,85,314,90);
line (326,85,326,90);
putpixel (312,72,white);
putpixel (327,72,white);
line (310,100,310,110);
line (330,100,330,110);
line (310,110,275,110);
line (330,110,365,110);
setcolor (6);
line (275,110,275,175);
line (275,175,280,185);
line (280,185,285,175);
line (285,175,285,122);
line (285,122,294,122);
line (365,110,365,185);
line (365,185,362,185);
line (362,185,362,178);
line (362,178,360,178);
line (360,178,360,185);
line (360,185,356,185);
line (356,185,356,122);
line (356,122,347,122);
setcolor (3);
rectangle (294,122,347,200);
line (360,110,360,95);
circle (360,92,3);
line (280,110,280,95);
circle (280,92,3);
rectangle (310,122,330,200);
line (310,140,330,140);
line (310,180,330,180);
setcolor (darkgray);
circle (302,140,3);
circle (302,180,3);
circle (338,140,3);
circle (338,180,3);
setcolor (lightgray);
rectangle (278,122,280,160);
line (338,112,338,119);
line (340,112,340,119);
line (342,112,342,119);
line (363,140,363,160);
line (358,140,358,160);
line (347,200,347,210);
line (294,200,294,210);
line (294,210,220,240);
line (347,210,421,240);
line (220,240,220,258);
line (421,240,421,258);
line (220,240,421,240);
line (220,242,421,242);
arc (225,256,180,270,5);
arc (416,256,270,360,5);
line (225,261,416,261);
setcolor (brown);
circle (231,252,8);
circle (231,252,2);
circle (252,252,8);
circle (252,252,2);
circle (272,252,8);
circle (272,252,2);
circle (292,252,8);
circle (292,252,2);
circle (312,252,8);
circle (312,252,2);
circle (332,252,8);
circle (332,252,2);
circle (352,252,8);
circle (352,252,2);
circle (372,252,8);
circle (372,252,2);
circle (392,252,8);
circle (392,252,2);
circle (411,252,8);
circle (411,252,2);
setlinestyle (0,0,3);
line (300,202,300,210);
line (341,202,341,210);
setlinestyle (0,0,0);
setcolor (white);
line (302,204,339,204);
line (302,206,339,206);
line (302,208,339,208);
end;
readkey;
end.

4,6(86 оценок)

Открыть все ответы

Ответ:

anna20032004

30.09.2020

1. Чтобы найти количество чисел, кратных восьми, на заданном интервале [a;b], надо найти на этом интервале ближайшее к a число и потом прибавлять к нему по восемь, пока не пройдем весь интервал, считая, сколько чисел Но это глуповатый Он просто и бездумно программируется, но как считали раньше, когда компьютеров не было?
Определим остаток от деления а на 8. Если он нулевой, то a - первое из найденных чисел. Остаток от деления 121 на 8 равен 1, т.е. нам не повезло. Тогда прибавим к значению а число 8 и вычтем найденный остаток.121+8-1=128. Это и есть наше первое число. Сужаем интервал [128;400]. Чтобы найти, сколько на нем чисел, кратных 8, надо разделить нацело 400-128 на 8 и прибавляем к результату единицу. Получаем 35 - это и есть ответ.
Программу составим универсальную, которая будет находить на интервале [a;b] количество чисел, кратных m.

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
var (a,b):=ReadInteger2('Введите через пробел границы интервала:');
var m:=ReadInteger('Укажите число для поиска кратных ему:');
var r:=a mod m;
if r>0 then a:=a+8-r;
Writeln('Количество чисел равно ',(b-a) div m +1)
end.

Пример
Введите через пробел границы интервала: 121 400
Укажите число для поиска кратных ему: 8
Количество чисел равно 35

2. В этой задаче все совсем просто. Читаем очередное число p, находим остаток от деления p на восемь. Если он ненулевой, проверяем, чтобы остаток от деления p на 10 был равен двум. Если и это верно, добавляем p к накапливаемой сумме s. Так поступаем n раз.

begin
var n:=ReadInteger('n=');
var s:=0;
var p:integer;
for var i:=1 to n do begin
    Read(p);
    if p mod 8 <> 0 then
      if p mod 10 = 2 then s:=s+p
    end;
Writeln('Сумма отобранных чисел равна ',s)
end.

Пример
n= 8
127 32 222 45 80 832 702 29
Сумма отобранных чисел равна 924

4,5(100 оценок)

Ответ:

suleimanzhasulan

30.09.2020

Задание №1
var
x:integer;
begin
for x:=5 to 15 do Writeln('x=',x:2,' y=',2*x)
end.

Результат выполнения программы:
x= 5 y=10
x= 6 y=12
x= 7 y=14
x= 8 y=16
x= 9 y=18
x=10 y=20
x=11 y=22
x=12 y=24
x=13 y=26
x=14 y=28
x=15 y=30

Задание №2
var
x:real;
begin
x:=1;
while x<=2 do begin
    Writeln('x=',x:4:1,'   y=',sin(3*x):8:5);
    x:=x+0.3
end
end.

Результат выполнения программы:
x= 1.0   y= 0.14112
x= 1.3   y=-0.68777
x= 1.6   y=-0.99616
x= 1.9   y=-0.55069

Задание №3
const
n=40;
var
i:integer;
a:real;
begin
for i:=1 to n do
begin Write('a',i,'='); Read(a); Writeln('S=',sqr(a)) end
end.

Фрагмент работы программы:
a1=2.6
S=6.76
a2=4.18
S=17.4724
a3=1
S=1
a4=17
S=289
a5=

4,6(57 оценок)

Это интересно:

Компьютеры-и-электроника

26.02.2021

Как наслаждаться игрой в Fruit Ninja в режиме Arcade Mode...

Питомцы-и-животные

28.03.2022

Как вылечить слипшиеся глазки у хомяка...

Транспорт

02.03.2022

Как Проверить Форсунки: Шаг за Шагом Руководство для Начинающих...

Кулинария-и-гостеприимство