Спочатку потрібно викликати процедуру 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 – параметр циклу (ціле число)
using System;
class Program
{
static void Main()
{
int x1 = 2, y1 = 1;
int x2 = 6, y2 = 5;
int x3 = 10, y3 = 1;
var a = Distance(x2, y2, x3, y3);
var b = Distance(x1, y1, x3, y3);
var c = Distance(x2, y2, x1, y1);
Console.WriteLine("S = {0}", Square(a, b, c));
Console.ReadKey();
}
//растояние между точками
static double Distance(int x1, int y1, int x2, int y2)
{
return Math.Sqrt((x2 - x1) * (x2 - x1) + (y2 - y1) * (y2 - y1));
}
//формула герона
static double Square(double a, double b, double c)
{
var p = (a + b + c) / 2;
return Math.Sqrt(p * (p - a) * (p - b) * (p - c));
}
// теорема косинусов
static double Angle(double a, double b, double c)
{
return Math.Acos((b * b + c * c - a * a) / (2 * b * c));
}
static bool IsAcuteAngel(double alpha)
{
return alpha < Math.PI / 2;
}
}
Спочатку потрібно викликати процедуру 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 – параметр циклу (ціле число)