Изобразите файловую структуру в виде дерева
С: \Рисунки \ Природа \ Небо.bmp
C: \ Рисунки \ Природа \ Снег.bmp
C: \ Рисунки \ Компьютер \Монитор.bmp
C: \ Мои документы \Доклад.doc
C: \ Мои документы \ Рефераты\Компьютер.doc
C: \ Мои документы \ Природа \ Рефераты \ Небо.doc
C: \ Мои документы \ Рефераты\Монитор.doc
Спочатку потрібно викликати процедуру 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 – параметр циклу (ціле число)
1) Число 376 четное и трехзначное.
А = "Число 376 четное"
В = "Число 376 трехзначное"
А и В
2) Неверно, что Солнце движется вокруг Земли.
А = "Солнце движется вокруг Земли"
Не А
3) Земля имеет форму шара.
А = "Земля имеет форму шара"
А
4) На уроке математики старшеклассники отвечали на вопросы учителя и писали самостоятельную работу.
А = "На уроке математики старшеклассники отвечали на вопросы учителя"
В = "На уроке математики старшеклассники писали самостоятельную работу"
А и В
5) Если сумма цифр числа делится на 3, то число делится на 3.
А = "Сумма цифр числа делится на 3"
В = "Число делится на 3"
А стрелка к В
6) Число делится на 3 тогда и только тогда, когда сумма цифр числа делится на 3
А = "Число делится на 3 "
В = "Сумма цифр числа делится на 3"
А стрелка в обе стороны В