Спочатку потрібно викликати процедуру randomize.
Потрібно створити ціле число, що належить інтервалу [1, 4]. Для цього будемо використовувати формулу X:=Random(B-A+1)+A, де A=1,B=4.
Перевіримо створене число.
Якщо воно дорівнює 1, то надрукуємо слово 'піка'.
Якщо воно дорівнює 2, то надрукуємо слово 'треф'.
Якщо воно дорівнює 3, то надрукуємо слово 'бубна'.
Якщо воно дорівнює 4, то надрукуємо слово 'чирва'.
Програма
var x:byte;
begin
randomize;x:=random(4)+1;
if x=1 then writeln('пики');
if x=2 then writeln('трефи');
if x=3 then writeln('бубни');
if x=4 then writeln('черви');
end.
Приклад 2
Одержати у програмі 10 випадкових цілих чисел у діапазоні від 0 до 10 включно та знайти їх суму.
Змінні:
Вхідних даних немає.
Вихідні:
x – число, що має значення від 0 до 10 (ціле число)
s – сума всіх чисел x
Проміжні:
i – параметр циклу (ціле число)
Программа 5:
#
# (c) NaaMan
import math
print( 'Введите через пробел длины сторон: ')
a, b, c = map( float, input().split())
if a+b>c and a+c>b and b+c>a:
d = list((a,b,c))
d.sort()
a,b,c = d
if a*a + b*b == c*c:
print('Треугольник прямоугольный')
else:
x = (a*a + b*b - c*c) / (2 * a * b)
gamma = math.acos(x)
grd = gamma / math.pi * 180
print('Угол С = %3.4f градусов'% grd)
else:
print('Таких треугольников не существует!')
Программа 6:
#
# (c) NaaMan
import math
print( 'Введите через пробел a и b: ')
a, b = map( int, input().split())
print( 'Введите через пробел c и d: ')
c, d = map( int, input().split())
print( 'Максимальное из двух меньших - ', max( min( a, b), min( c, d)))
Программа 7:
#
# (c) NaaMan
import math
print( 'Выберите режим перевода')
print( '0 - из градусов в рад')
print( '1 - из рад в градусы')
n = int( input( '> '))
x = float( input( 'Введите меру угла: '))
if n:
res = x / math.pi * 180 # rad -> grad
else:
res = x * math.pi / 180 # grad -> rad
print( 'Результат: %3.4f'% res)
Объяснение:
