1. Для заданного х вычислите у по формуле у = х3 + 2,5х2 - х + 1. При этом:
а) операцию возведения в степень использовать запрещено;
б) в одном операторе присваивания можно использовать не более одной арифметической операции (сложение, умножение,вычитание);
в) в программе может быть использовано не более пяти операторов присваивания.
3. По заданным координатам точек A и В вычислите длину отрезка АВ.
4. Известны длины сторон треугольника а, b, с. Напишите программу, вычисляющую площадь этого треугольника.
5. Известны координаты вершин А, В, С треугольника. Напишите программу, вычисляющую площадь этого треугольника.
6. Если сумма налога исчисляется в рублях и копейках, то налоговая служба округляет её до ближайшего рубля (до 50 копеек — с недостатком, свыше 50 копеек (включая 50) — с избытком). Используйте компьютер, чтобы ввести точную сумму налога и вывести, сколько следует уплатить.
7. Исследуйте работу функции random, запустив многократно на выполнение программу:
program n_8;
var х, n: integer;
begin
writeln ('Исследование функции random');
randomize (*для генерации различных случайных чисел при каждом запуске программы*);
write ('Введите х');
readln (x);
write ('Введите n’);
readln (n);
writeln ('random( ', x, ' ) = ', random(x) );
writeln ('random( ', x, ') + ', n, ' = ', random (x)+n)
end.
Как можно получить случайное число из интервала (0, х)?
Как молено получить случайное число из интервала (0, х]?
Как можно получить случайное число из интервала (n, х + n)?
8.Одна компания выпустила лотерейные билеты трёх разрядов: для молодежи, для взрослых и для пенсионеров. Номера билетов каждого разряда лежат в пределах:
для молодёжи — от 1 до 100;
для взрослых — от 101 до 200;
для пенсионеров — от 201 до 250.
С помощью компьютера выберите случайным образом лотерейный билет в каждом разряде.
9. Запишите на языке Паскаль программу, которая для произвольного натурального двузначного числа определяет:
а) сумму и произведение его цифр;
б) число, образованное перестановкой цифр исходного числа.
10. Запишите на языке Паскаль программу, реализующую алгоритм работы кассира, выдающего покупателю сдачу (s) наименьшим возможным количеством банкнот по 500 (k*500), 100(k*100), 50 (k*50) и 10 (k*10) рублей.
11. Идёт k-я секунда суток. Разработайте программу, которая по введённой k-й секунде суток определяет, сколько целых часов h и целых минут т прошло с начала суток. Например, если k = 13 257 = 3 • 3600 + 40 • 60 + 57, то h=3 и т=40. Выведите на экран фразу: It is ... hours ... minutes. Вместо многоточий программа должна выводить значения h u m, отделяя их от слов ровно одним пробелом.
12. Запишите на языке Паскаль программу, которая вычисляет сумму кодов букв в слове «БАЙТ».
13. Запишите на языке Паскаль программу, которая формирует и выводит на экран строку символов, коды которых равны 66, 69, 71, 73, 78.
14. Разработайте программу, которая запрашивает три строковые величины — взаимосвязанные прилагательное, существительное и глагол, а затем выводит все варианты фраз с использованием введённых слов.
15. Даны значения целочисленных переменных: а=10, b= 20.
Чему будет равно значение логической переменной rez после выполнения операции присваивания?
а) rez:=(a=10) or (b>10)
б) rez:=(a>5) and (b>5) and (a<20) and (b<30)
в)rez:=(not(a<15)) or (b>20)
16. Составьте программу, вводящую true, если высказывание является истинным, и false в противном случае:
а) сумма цифр трёхзначного числа х является чётным числом;
б) треугольник со сторонами а, b, с является разносторонним.