Мне надо сделать так чтобы код был разбит на функции и потом эти функции вызывались. если пароль или логин неверный то выйти то есть если все верно то продолжить выполнять код! ! отступы убралисьfrom math import*from turtle import*def login_and_password_verification( ): name='игнат' password='q1w2e3r4' n=input('введите ваш логин: ') p=input('пароль: ') if n==name and p==password: print('доступ разрешен.') return true else: print('логин или пароль неверный') return falsedef checking_the_height_of_the_house(): minimal=50 maximal=400 while true: global x x= int (input('высота дома: ')) if x > minimal and x < maximal: print('будет сделано господин! ') break else: print('недопустимая высота дома! высота дома должна быть меньше ', maximal, ' и больше ' , minimal)def build_the_house(): global y global z y=sqrt(x**2+x**2) z=y/2 forward(x) left(90) forward(x) left(45) forward(z) left(90) forward(z) left(45) forward(x) left(135) forward(y) left(135) forward(x) left(135) forward(y)login_and_password_verification()checking_the_height_of_the_house()build_the_house()
Ответы
Vara: array[1..100000000] of integer; mini,minz,i,n: integer; beginwrite('введите размер массива - '); readln(n); write('введите элементы массива - '); for i: =1 to n do read(a[i]); i: =1; while minz=0 do begin i: =i+1; if a[i]> 0 then begin mini: =i; minz: =a[i]; end; end; for i: =1 to n do begin if (a[i]< minz) and (a[i]> 0) then begin minz: =a[i]; mini: =i; end; end; writeln('значение минимального элемента массива - ',minz,'. индекс - ',mini); end.
1) var a: array[1..10]of integer; i,n,k: integer; begin readln(n); for i: =1 to 10 do begin read(a[i]); if a[i]< 0 then a[i]: =n; end; for i: =1 to 10 do write(a[i],' '); end.2)var a: array[1..999999]of integer; i,n,s: integer; begin readln(n); for i: =1 to n do begin a[i]: =random(36)-15; write(a[i],' '); end; writeln; for i: =1 to n do if abs(a[i])> 10 then write(a[i],' '); end.3) var a: array[1..999999]of integer; i,n,s: integer; begin readln(n); for i: =1 to n do begin a[i]: =random(36)-15; write(a[i],' '); end; writeln; for i: =1 to n do begin if i mod 3 = 0 then if a[i]< 0 then a[i]: = a[i]*a[i]*a[i]; write(a[i],' '); end; end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Что означает источник информации и приемник информации
Автор: metelkin7338
Дано n чисел. определить произведение четных по номеру чисел + блок-схему желательно
Автор: svetarakityanskaya
Выполни действие и запиши верный ответ.17 mod 3=
Автор: Поликарпова-Мазурова
За какое время будет передана информация объемом 225 Кбайт модемом с пропускной бит/с?
Автор: garikman-flesh486