) Внесите изменения в программы Example_8.pas и Example_9.pas,
Используя циклы с предусловием и параметром.
Program example_8;
var x,y:integer;
Begin
Writeln('Waiting for input');
Readln(x,y);
Repeat
if x>y then x :=x nod y else y :=*y nod x;
Until (x=0) or (y=0);
writeln('Нод=',x+y);
End.
Program example_9;
var x,y:integer;
Begin
Writeln('Waiting for input');
Readln(x,y);
Repeat
if x>y then x:=x-y;
if y>x then y:=y-x;
Until x=y;
Writeln('НОД=',x)
End.
Объяснение:
Из задания не совсем ясно, необходимо ли в программе производить ввод массиве, если нет, то решение следующее:
# Максимальный элемент массива
_max = max(d)
# Порядковый номер элемента
_index = d.index(_max)
# Вывод
print(_max, _index)
Если запрещено использовать встроенные функции, то:
# первый элемент - максимальный
_max = d[0]
_index = 0
# Цикл по всем элементам
for i, x in enumerate(d):
# Если элемент больше максимального
if x > _max:
_max = x
_index = i
# Вывод
print(_max, _index)
Если необходимо произвести и ввод, то в начале задачи надо дописать:
n = input('Введите n: ')
d = []
for x in range(n):
d.append(input('Введите число: '))
a) код:
from turtle import *
a = [[0,80],[80,26],[50,-68],[-50,-68],[-80,26]]
t = Turtle()
t.screen.setup(500, 500)
t.pencolor('#BE8097')
t.screen.bgcolor("#98E585")
t.pensize(3)
t.up()
for i in a:
t.goto(i[0],i[1])
t.down()
for j in range(2):
t.fd(60)
t.lt(36)
t.bk(60)
t.lt(36)
t.fd(60)
t.rt(144)
t.up()
t.screen.exitonclick()
t.screen.mainloop()
b) код:
from turtle import *
t = Turtle('turtle')
t.screen.setup(800, 800)
t.pencolor('blue')
t.screen.bgcolor("#98E585")
for i in range(0,360,30):
t = Turtle('turtle')
t.up()
t.pensize(3)
t.pencolor('#0324FD')
t.lt(i)
t.fd(100)
t.down()
t.fd(10)
t.up()
t.fd(20)
t.screen.exitonclick()
t.screen.mainloop()