. Знайдіть середнє арифметичне 5 випадкових чисел з діапазону (-10,10) (2 бали)
2. Згенеруйте 7 чисел в діапазоні від 2 до 8. Знайдіть їх суму. (2 бали)
3. Створіть цикл, який буде генерувати вам числа від -10 до 10 до тих пір поки не випаде 0. Порахуйте кількість згенерованих чисел. (підказка: цикл з післяумовою) (3 бали)
4. Намалюйте букет маків. Форма пелюстки-коло, кількість пелюсток 4, розмір довільний. Кількість квіток - від 3.
Прошу помогите
2. Згенеруйте 7 чисел в діапазоні від 2 до 8. Знайдіть їх суму. (2 бали)
3. Створіть цикл, який буде генерувати вам числа від -10 до 10 до тих пір поки не випаде 0. Порахуйте кількість згенерованих чисел. (підказка: цикл з післяумовою) (3 бали)
4. Намалюйте букет маків. Форма пелюстки-коло, кількість пелюсток 4, розмір довільний. Кількість квіток - від 3.
Прошу помогите
More Questions From This User See All
Answers & Comments
Ответ:
Спочатку потрібно викликати процедуру 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 – параметр циклу (ціле число)