Создайте программу, которая выполняет следующие действия: 1. Определите 8 целочисленных переменных. Назначьте этим переменным случайные числа из следующих диапазонов и выведите их на экран:
· От 0 до 15
· От 3 до 10
· От -8 до 2
· От 25 до 50
· От -17 до 22
2. Определите 1 целочисленную переменную. Назначьте начальное значение 10. Используйте процедуры INC и DEC, чтобы изменить значение переменной на следующее: 5, 3, 9, 8, 15, 0, 3, 6. После каждого изменения отображайте значение переменной на экране.
3. Решение квадратных уравнений. Требовать, чтобы клавиатура вводила параметры a, b и c. Вычислить квадратное уравнение
аХ2 + ЬХ + с = 0
корни X1 и X2 и выводим их на экран.
4. Рассчитайте и отобразите на экране значения синуса для следующих углов: 10˚, 30˚, 50˚, 70˚ и 90˚.
5. Требовать, чтобы клавиатура ввела 3 целых числа (коды символов). Выведите на экран символы, соответствующие введенным кодам. Например: при вводе кода 65 на клавиатуре программа должна вывести символ A
6. Выведите на экран квадратные корни из 5 случайных чисел. Диапазон номеров от 1 до 150.
7. Вычислите следующее уравнение и выведите результат на экран:
R = a4 + b3 - c2, где a, b и c - целые числа, вводимые с клавиатуры.
8. Вычислите следующее уравнение и выведите результат на экран:
- x и z - целые числа, вводимые с клавиатуры, y - результат уравнения.
9. Усовершенствовать Задачу 8 - в случае, если введенное значение x меньше -3, вывести утверждение «Вычисления невозможны» и не выполнять вычисления по уравнениям.
10. * Требуется ввести 2 целых числа. Отображение случайного числа в диапазоне от первого введенного до второго введенного числа.
Например, если вы вводите числа 5 и 10, вы должны вывести случайное число в диапазоне от 5 до 10.
паскаль
begin
Write(Range(300,400,2).Sum)
end.
Результат выполнения программы:
17850
// PascalABC.NET 3.1, сборка 1214 от 09.04.2016
begin
Range(104,999,8).Print
end.
Результат выполнения программы:
104 112 120 128 136 144 152 160 168 176 184 192 200 208 216 224 232 240 248 256 264 272 280 288 296 304 312 320 328 336 344 352 360 368 376 384 392 400 408 416 424 432 440 448 456 464 472 480 488 496 504 512 520 528 536 544 552 560 568 576 584 592 600 608 616 624 632 640 648 656 664 672 680 688 696 704 712 720 728 736 744 752 760 768 776 784 792 800 808 816 824 832 840 848 856 864 872 880 888 896 904 912 920 928 936 944 952 960 968 976 984 992