Паскаль
Треугольник с вершинами 1(10,10), 2(300,470), 3(630,10);
2. Прямоугольник с вершинами 1(50,50) 2(400,50), 3(400,200), 4(50,20)
3. Шестиугольник с вершинами 1(100,100), 2(200,10), 3(300,10), 4(400,100), 5(300,190), 6(200,190).
4. Нарисуйте куб.
5. Нарисуйте 2 куба, со сторонами в 2 раза меньше сторон исходного.
6. Нарисуйте 3 куба, имеющие стороны длиной 10,20 и 30 единиц соответственно.
7. Выведите на экран 5 вложенных квадратов. Попробуйте закрашивать их поочерёдно разными цветами.
8. С команды рисования закрашенного прямоугольника выведите на экран рисунки «ШТАНГА», «ПИРАМИДА» и «РОБОТ».
9. Постройте на экране «ЗАМОК». Воспользуйтесь всеми известными вам возможностями операторов LINE, RECTANGLE, окрашивания.
1)
s = 0
for k in range(-5,11):
s = s + 2 * k
print(s)
Прогоняются числа [-5;11)
s = 0 + 2 * -5 = -10
s = -10 + 2 * -4 = -18
s = -18 + 2 * -3 = -24
s = -24 + 2 * -2 = -28
s = -28 + 2 * -1 = -30
s = -30 + 2 * 0 = -30
s = -30 + 2 * 1 = -28
s = -28 + 2 * 2 = -24
s = -24 + 2 * 3 = -18
s = -18 + 2 * 4 = -10
s = -10 + 2 * 5 = 0
s = 0 + 2 * 6 = 12
s = 12 + 2 * 7 = 26
s = 26 + 2 * 8 = 42
s = 42 + 2 * 9 = 60
s = 60 + 2 * 10 = 80
ответ: 80
2)
s = 1
for k in range(1,30):
s = (k – 5) * s
print(s)
s = (1 - 5) * 1 = -4
s = (2 - 5) * -4 = 12
s = (3 - 5) * 12 = -24
s = (4 - 5) * -24 = 24
s = (5 - 5) * 24 = 0
s = (6 - 5) * 0 = 0
s = (7 - 5) * 0 = 0
s = (8 - 5) * 0 = 0
s = (9 - 5) * 0 = 0
s = (10 - 5) * 0 = 0
s = (11 - 5) * 0 = 0
s = (12 - 5) * 0 = 0
s = (13 - 5) * 0 = 0
s = (14 - 5) * 0 = 0
s = (15 - 5) * 0 = 0
s = (16 - 5) * 0 = 0
s = (17 - 5) * 0 = 0
s = (18 - 5) * 0 = 0
s = (19 - 5) * 0 = 0
s = (20 - 5) * 0 = 0
s = (21 - 5) * 0 = 0
s = (22 - 5) * 0 = 0
s = (23 - 5) * 0 = 0
s = (24 - 5) * 0 = 0
s = (25 - 5) * 0 = 0
s = (26 - 5) * 0 = 0
s = (27 - 5) * 0 = 0
s = (28 - 5) * 0 = 0
s = (29 - 5) * 0 = 0
ответ: 0
3)
x = 1
while x <= 10:
print(x)
x = x+2
Тут просто. Счетчик идет от одного, а цикл прерывается на 10. Тут никак не может быть четное число. А самое близкое нечетное к 10 - 9.
ответ: 9
4)
x = 1
while x <= 10:
print(x)
x = x + 1
else:
print("Готово")
Тут почти тоже самое. Только тут уже дойдет до 10 и напишет еще "готово"
ответ: 10 Готово.
var
s: string;
i, count: integer;
begin
writeln('Vvedite stroky: ');
readln(s);
for i := 1 to length(s) - 2 do
if copy(s, i, 3) = 'abc' then
count := count + 1;
writeln('Kol-vo: ', count);
end.
2.
var
s1, s2: string;
i, len1, len2: integer;
begin
writeln('Vvedite stroky 1: ');
readln(s1);
writeln('Vvedite stroky 2: ');
readln(s2);
len1 := length(s1);
len2 := length(s2);
if len1 > len2 then writeln('1 stroka dlinnee')
else if len1 < len2 then writeln('2 stroka dlinnee')
else writeln('dlini strok ravnie')
end.
3.
var
s1, s2, s3: string;
begin
writeln('Vvedite stroky 1: ');
readln(s1);
writeln('Vvedite stroky 2: ');
readln(s2);
s3 := s1[1] + s1[2] + s2[1] + s2[2];
writeln('Novaja stroka: ', s3);
end.