1)Нужно написать программу на Python'е, которая по введенному значению аргумента вычисляет значение функции, заданной в виде графика. Параметр R задается константой.(первая картинка) 2)Написать программу на Python'е, которая определяет, попадает ли точка с заданными координатами в область, закрашенную на рисунке серым цветом. Результат работы программы вывести в виде текстового сообщения. (вторая картинка)
Var abcd,a,b,c,d:integer; begin abcd:=4579; a:=abcd div 1000; b:=abcd div 100 mod 10; c:=abcd div 10 mod 10; d:=abcd mod 10; Writeln(a,b,c,d); Writeln(a,c,b,d); Writeln(b,a,c,d); Writeln(b,c,a,d); Writeln(c,a,b,d); Writeln(c,b,a,d); Writeln(a,d,b,c); Writeln(a,d,c,b); Writeln(b,d,a,c); Writeln(b,d,c,a); Writeln(c,a,d,b); Writeln(c,b,d,a); Writeln(a,b,d,c); Writeln(a,c,d,b); Writeln(d,b,a,c); Writeln(d,b,c,a); Writeln(d,c,a,b); Writeln(d,c,b,a); end. Громозко, да? Я не помню, как делать это через функцию. Думаю, и так сойдет.
1. Числа образуют последовательность, для n-го члена которой верны следующие соотношения: Последняя формула позволит ответить на вопрос "Сколько дней понадобиться,чтобы лягушка съела больше 35 комаров за раз", для чего надо решить неравенство: Т.е. это произойдет в шестой день. Хороший проверить работу программы.
var i,an,s,f:integer;
begin s:=0; an:=0; f:=0; for i:=1 to 10 do begin an:=2*an+1; if f=0 then if an>35 then begin Writeln('День ',i,', за раз съедено комаров- ',an); f:=1 end; s:=s+an end; Writeln('За 10 дней съедено комаров: ',s) end.
Результат выполнения программы: День 6, за раз съедено комаров- 63 За 10 дней съедено комаров: 2036
2. Используем алгоритм Евклида.
var a, b: integer; begin Write('Введите два натуральных числа: '); Readln(a,b); if a<>b then repeat if a > b then a := a - b else b := b - a until a=b; Writeln('НОД=',b) end.
Тестовое решение: Введите два натуральных числа: 264 5436 НОД=12
begin
abcd:=4579;
a:=abcd div 1000;
b:=abcd div 100 mod 10;
c:=abcd div 10 mod 10;
d:=abcd mod 10;
Writeln(a,b,c,d);
Writeln(a,c,b,d);
Writeln(b,a,c,d);
Writeln(b,c,a,d);
Writeln(c,a,b,d);
Writeln(c,b,a,d);
Writeln(a,d,b,c);
Writeln(a,d,c,b);
Writeln(b,d,a,c);
Writeln(b,d,c,a);
Writeln(c,a,d,b);
Writeln(c,b,d,a);
Writeln(a,b,d,c);
Writeln(a,c,d,b);
Writeln(d,b,a,c);
Writeln(d,b,c,a);
Writeln(d,c,a,b);
Writeln(d,c,b,a);
end.
Громозко, да? Я не помню, как делать это через функцию. Думаю, и так сойдет.