Turbo Pascal

Используя оператор цикла while или repeat, решите задачу, номер, которой вам дал учитель.

1. Распечатать квадраты чисел, находящихся в диапазоне от 0 до 1 с шагом 0,2.

var  k, s : integer; begin s := 0; while s <= 1 do begin k := sqr(s); writeln (k); s := s + 0.2; end; readln; end.

var  k, s : integer; begin s := 0; repeat begin    k := sqr(s);    writeln (k);    s := s + 0.2; end until s <= 1 ; readln; end.

2. Составьте программу, запрашивающую рост очередного школьника и вычисляющую после завершения медосмотра средний рост прошедших осмотр.  Количество школьников, подлежащих медосмотру заранее не известно.

3. Распечатать произведения чисел А и В, изменяющихся от 17 и -25 с шагом -3 и 5 соответственно до тех пор, пока это произведение – отрицательное число.

4. Сколько слагаемых должно быть в сумме 1 + ? + 1/3 + …+ 1/N, чтобы сумма оказалась больше 5.

5. Температура С в градусах Цельсия изменяется от 0 до 100 с шагом 5. Напечатать таблицу перевода температуры из градусов Цельсия в градусы Фаренгейта (F). Формула перевода: F = 1,8 C + 32.

6. Составьте таблицу значений функции y = 5x – 2 на отрезке [1; 20]  с шагом b = 2.

7. * В первый день пловец проплыл 3 км. В каждый следующий день он проплывал на 10% больше, чем в предыдущий.

• а) В какой по счету день пловец начнет проплывать более 5 км?

• б) К какому дню он суммарно проплывет более 30 км?

8. Напечатать таблицу соответствия между весом в фунтах и весом в кг для значений от 1 до 10 фунтов с шагом  0,5 фунта. Формула перевода: 1 фунт = 400 г.

9. Составьте таблицу значений функции y = 5x² – 2x + 1 на отрезке [-5; 5]  с шагом     b = 2.

10. * Урожай яблок в 1990 году составил 20 тонн. Далее каждые два года урожай уменьшался на 20%.

• а) Начиная с какого года, будет собрано менее 5 тонн?

• б) В каком году суммарный урожай яблок превысит 90 тонн?     

11. Напечатать таблицу  перевода расстояний из дюймов в сантиметры для значений от 1 до 10 дюймов  с шагом 0,5 дюйма. Формула перевода: 1дюйм = 2,54 см.

12. Составьте таблицу значений функции y = 4x2 – 5x – 10 на отрезке [-9; 9]  с шагом   b = 3.

13. Напечатать таблицу  перевода расстояний из сантиметров в дюймы для значений от 3 до 45 дюймов  с шагом 2 дюйма. Формула перевода: 1дюйм = 2,54 см.

14. Вычислить среднее арифметическое последовательности положительных чисел, введенных с клавиатуры.

15. Составьте таблицу значений функции y = -3x² – 2x + 1 на отрезке [-5; 5]  с шагом     b = 0,5.

16. Составьте таблицу зависимости площади круга от его радиуса. Начальное значение радиуса ввести с клавиатуры. Шаг: 0,5. Отметить в каких еденицах делается вычисление.

17. Придумайте самостоятельно задачу и решите ее.

18. Вывести таблицу расхода краски для покраски стен, при высоте потолков 240 см и меняющейся длине от 1 до 10 м с шагом 0,5 м. 1 л краски уходит на покраску 5,6 м² поверхности.

19. Составьте программу, запрашивающую вес очередного школьника и вычисляющую после завершения медосмотра средний вес прошедших осмотр.  Количество школьников, подлежащих медосмотру заранее не известно.