Пример решения задачи

Индивидуальное задание

Вычислить :

а) Y=X¹⁰+ 2X⁹+3X⁸+ . . . +10X+11

б) Y=11X¹⁰+ 10X⁹+9X⁸+ . . . +2X+1

Описание работы

1. Выберите алгоритм решения задачи

2. Используя таблицы, приведенные в приложениях лабораторной работы 3, выберите стандартные функции, необходимые для решения задачи

3. Выберите форму представления данных. Используйте следующие типы переменных: INTEGER, REAL, BOOLEAN, CHAR.

4. Для ввода данных используйте диалоговый режим. Результат решения задачи выведите на экран дисплея. При составлении текста программы используйте операторы цикла: FOR, WHILE, REPEAT, оператор ввода, оператор вывода. Введите текст программы.

5. Для этого необходимо войти в программу-оболочку TP7, как указано выше. Загрузить в редактор Турбо-Паскаль новый (NEW) файл. Для этого нажмите одновременно клавиши [ALT]+[F] , установите курсор на подменю «NEW» и нажмите клавишу [ENTER].

6. Сохраните набранный текст программы. Нажмите клавишу [F2]. На запрос системы укажите, где и с каким именем будет сохранена ваша программа. Например, C:\Lr3.PAS, если программа сохраняется на жесткий диск или A:\ Lr3.PAS, если программа сохраняется на дискету.

7. После того, как программа набрана, откомпилируйте ее. Нажмите одновременно клавиши [ALT]+[F9]. Если в программе есть ошибки, то в левом верхнем углу появится сообщение об ошибке, а курсор укажет место ошибки. Если в программе ошибок нет, то появится сообщение об успешной компиляции.

8. После компиляции программу необходимо выполнить. Для этого нажмите одновременно клавиши [CTRL]+[F9]. Для просмотра результатов одновременно нажмите клавиши [ALT]+[F5].

9. Убедитесь в правильности решения задачи. Введите данные, для которых легко устно просчитать результат. Выполните программу и убедитесь в правильности полученного результата.

10. Выведите полученные результаты на печать.

Текст программы

Вариант а) :

Program Gorner1 ;

Uses CRT ;

Var y, x, i : integer ;

Begin

Read( x ) ;

y:=1 ;

For i := 2 to 11 do

y :=y  x + i ;

Write ( ‘y = ’, y ) ;

Readln

End .

Вариант б) :

Program Gorner2 ;

Uses CRT ;

Var y, x, i : integer ;

Begin

Read( x ) ;

y:=11 ;

For i := 10 downto 1 do

y :=y  x + i ;

Write ( ‘y = ’, y ) ;

Readln

End .

Индивидуальные задания

1. Даны 10 целых чисел. Определить количество положительных чисел, которые делятся без остатка на 3.

2. Определить количество целых трехзначных целых чисел, сумма цифр которых равна n.

3. Даны 10 целых чисел. Определить, сколько из них принимает максимальное значение.

4. Определить два наибольших числа из 10 чисел.

5. Определить два наименьших числа из 10 чисел.

6. Даны 20 вещественных чисел. Найти разность между минимальным и максимальным из них.

7. Даны 10 вещественных чисел. Определить наибольшее из отрицательных чисел и округлить его к ближайшему целому.

8. Дана последовательность из 70 целых чисел. Определить, со скольких отрицательных чисел она начинается.

9. Напечатать в возрастающем порядке все трехзначные числа, в десятичной записи которых нет одинаковых цифр (операции деления не использовать).

10. Дано 30 вещественных чисел. Определить, сколько из них больше своих «соседей», т. е. предыдущего и последующего чисел.

11. Вычислить f=10! . Описать каждым из трех вариантов оператора цикла.

12. Вычислить выражения:

а) Y=A⁷+ 2A⁶+3A⁵+ . . . +7A+8

б) Y=8A⁷+7A⁶+6A⁵+ . . . +2A+1

13. Даны целые числа K и N (N > 0). Вывести N раз число K.

14. Дано целое число N (> 0), являющееся некоторой степенью числа 2: N = 2^K.

Найти целое число K — показатель этой степени.

15. Даны два целых числа A и B (A < B). Вывести в порядке возрастания все целые числа, расположенные между A и B (включая сами числа A и B), а также количество N этих чисел.

16. Ввести N различных чисел. Найти среднее арифметическое всех чисел.

17. Найти сумму ряда с точностью e=0,001.

18. Дано натуральное число n. Верно ли, что сумма цифр этого числа является нечётной.

19. Найти сумму ряда с точностью e=0,001.

20. Составить программу вычисления значений функций f(x) = x-sin(x) на отрезке [0,pi/2] с шагом h= (b-a)/m. Результаты представить с точностью 0,0001.

21. Вычислить сумму 10 слагаемых 1+1/2+1/3+…+1/n.

22. Вывести на печать положительные значения функции f(x) =sin(x)+cos(5x)

для х, изменяющегося на отрезке [-5;5] c шагом 1,2.

23. Найти сколько слагаемых необходимо, чтобы сумма 2+4+6+… оказалась

больше 100.

24. Вывести на экран все простые числа в диапазоне от 2 до N. Протестировать

программу для N=100, N=300.

25. Вывести на печать отрицательные значения функции y=sin(x)+cos(5x) для х,

изменяющегося на отрезке [-3;9] c шагом 0,9.

26. Найти сколько множителей необходимо, чтобы произведение 2*4*6+… оказалась больше 100.

27. Найти сумму чисел от 100 до 200, кратных 7. Подсчитать среднее арифметическое этих чисел.

28. Найти сумму ряда с точностью e=0,001. Программу представить

в двух видах: цикл с предусловием и цикл с постусловием.

29. Натуральное число из n цифр является ся числом Армстронга, т.е. сумма его

цифр возведенная в степень n , равна самому числу

(153=1*1*1+5*5*5+3*3*3).Получить все числа Армстронга для n=4 и n=3.

30. Найти первый отрицательный член последовательности sin(tg(n/2)) для n,

изменяющегося следующим образом: n=1,2,3…

ЛАБОРАТОРНАЯ РАБОТА 4

Тема работы: Работа с массивами в языке Турбо Паскаль.

Цель работы: Приобретение и закрепление практических навыков в составлении программ на языке Паскаль с данными регулярного типа - массивами.