Пайтон
Задача Канаверал. Визначити поведінку космічного апарата, що стартує на екваторі, залежно від його
початкової швидкості V. Як ви знаєте з уроків фізики, тут можливі чотири випадки:
• при V<7,8 км/с апарат впаде на поверхню Землі;
• при 7,8≤V<11,2 км/с апарат стане супутником Землі;
• при 11,2≤V<16,4 км/с апарат стане супутником Сонця;
• при V≥16,4 км/с апарат покине Сонячну систему.
N = 30;
Var
T:array[1..N] of integer;
i,k:integer;
Begin
Write('Температура в течение месяца:');
k:=0;
For i:= 1 to N do
Begin
T[i]:=random(20)-15;
Write(' ',T[i]);
if T[i] < 0 then k:=k+1;
End;
WriteLn;
WriteLn('Количество дней, когда температура опускалась ниже нуля: ',k);
End.
Пример работы программы:
Температура в течение месяца: -3 -5 -4 1 -11 -5 0 2 2 4 3 -6 -7 -4 -14 -11 -15 -14 -15 0 -7 -14 -13 -13 -12 -1 -3 -13 -15 -5
Количество дней, когда температура опускалась ниже нуля: 23
N = 3;
Var
A:array[1..N,1..N] of integer;
i,j:integer;
Min,S:real;
Begin
Randomize;
WriteLn('Исходная матрица:');
For i:= 1 to N do
Begin
For j:= 1 to N do
Begin
A[i,j]:=random(21)-10;
Write(A[i,j]:3,' ')
End;
WriteLn
End;
WriteLn;
Min:=0;
For i:= 1 to N do
Min:=Min+Abs(A[i,1]);
For j:= 2 to N do
Begin
S:=0;
For i:= 1 to N do
S:=S+Abs(A[i,j]);
if S<Min then Min:=S;
End;
WriteLn('Min = ',Min);
End.
Пример работы программы:
Исходная матрица:
8 3 0
1 3 -5
3 -10 -6
Min = 11