Решение квадратного уравнения. Оператор варианта. Вычисление площадей фигур. 10. Примерные задания к контрольной работе

• Название: Решение квадратного уравнения. Оператор варианта. Вычисление площадей фигур. 10. Примерные задания к контрольной работе
• Анкор: Paskal-1.doc
• Дата: 07.03.2018
• Размер: 443 Kb.
• Имя файла: Paskal-1.doc
• Тип: Решение; #16375
• страница: 7 из 14

ПРИЛОЖЕНИЕ К ПРАКТИЧЕСКОМУ ЗАНЯТИЮ № 11 продолжение

Пример 7. Вывести на экран таблицу функции Y=sin(х),

где х изменяется от 10 до 90 с шагом 5 градусов.
Program Tabl; Uses crt;

var x, h, n, y: real;

Begin

ClrScr; writeln(' Таблица функции y=sin(х)');

x:=10; h:=5; n:=90;

while x<=n do

begin

y:=sin(x*pi/180);

writeln('X=',x,' Y=',y);

x:=x+h;

end;

readkey;

End.
З А Д А Н И Я:
1. Найти сумму ряда: 5.6, 5.9, .. ,9.7

2

2. Получить таблицу функции y=cos(5∙х), где х изменяется от 1 до 10 с шагом 0.5
3. Найти произведение чисел от 6.7 до 7.8 с шагом 0.4
4. Сравнить, что больше сумма ряда 8.5, 8.6,...,40.9 или произведение чисел от 1 до 3 с шагом 0.25

ПРАКТИЧЕСКОЕ ЗАНЯТИЕ № 12

ЦИКЛИЧЕСКИЕ ПРОЦЕССЫ (продолжение)
2. ЦИКЛ С ПОСТУСЛОВИЕМ или ЦИКЛ "ДО"

Сначала выполняется тело цикла, затем проверяется условие. Выход из цикла

осуществляется, когда УСЛОВИЕ СТАНЕТ ИСТИННЫМ , если условие ЛОЖНО, то

цикл повторяется.

REPEAT repeat - (рипид) - повторять

тело цикла until - (антил) - ДО тех пор пока

UNTIL условие;

Проверка условия производится после выполнения тела цикла, что делает

применение цикла "ПОКА" более предпочтительным, когда требуется пропустить

цикл вообще.

Вычислить для любого Х, с проверкой корректности ввода.
Program Func; Uses crt;

var x,y: real;

Begin

repeat

ClrScr;

write('X='); readln(x);

until (x<>0);

y:=1/x;

writeln('x=',x,' y=',y);

readkey;

End.
З А Д А Н И Я:
1. Вычислить сумму ряда: 0.6, 0.7, 0.8, 0.9.
2. Вывести таблицу функции y=cos(x) ,

где x изменяется в градусах от 10 до 45 с шагом 5.
3. Определить, что больше сумма ряда: 1.1 , 1.3 , ... , 93.1

или произведение: 5*7*...*11.
4. Вычислить значение функции y=1/(x-5), на отрезке от 0 до 10

с шагом 1 и с проверкой отсутствия деления на 0.
ПРАКТИЧЕСКОЕ ЗАНЯТИЕ № 13

ЦИКЛИЧЕСКИЕ ПРОЦЕССЫ (продолжение)
3. ЦИКЛ С ЗАДАННЫМ ПАРАМЕТРОМ (ДЛЯ)

Применяется, если известно сколько раз требуется выполнить тело цикла.

FOR <параметр цикла> := <выражение1> TO <выражение2> DO <оператор>

[ DOWNTO ]

for - (фо) - для; to - (ту) - до; { шаг=1 };

downto - (даунту) - вниз до; { шаг=-1 }; do - (ду) - выполнить;

параметр цикла - переменная любого скалярного типа, кроме вещественного

(управляющая переменная) ;

выражение1 - скалярное выражение - начальное значение параметра цикла;

выражение2 - скалярное выражение - конечное значение параметра цикла;

оператор - тело цикла;

Напечатать числа от 1 до 20.

Program Chisla; Uses crt;

var i:integer; { управляющая (параметр) цикла }

Begin

clrscr;

for i:=1 to 20 do write(i,' '); { 1 -начальное значение параметра }

End. { 20 -конечное значение параметра }

{ write(i,' ') -тело цикла }

После каждого выполнения тела цикла параметр i увеличивается на 1.
Напечатать числа от 20 до 1.

Program Chisla; Uses crt;

var i:integer;

Begin

clrscr;

for i:=20 downto 1 do write(i,' ')

End.

После каждого выполнения тела цикла параметр i увеличивается на -1.
Найти произведение чисел делящихся на 2 от 10 до 20.

Program Mult; Uses crt;

var x:integer; P:real;

Begin

clrscr;

p:=1; { начальное значение произведения }

for x:=10 to 20 do

if x mod 2=0 then p:=p*x;

write('Произведение чисел, делящихся на 2 от 10 до 40 равно P=',p)

End.
З А Д А Н И Я:

1. Вычислить сумму чисел из промежутка [1;1000].

2. Вывести на экран 56 символов & .

3. Получить на экране значения функции Y=SIN X,

где x берется из промежутка [25;45] и измеряется в градусах.

4. Вывести на экран все числа, делящиеся на 13, от 1 до 100.

5. Вывести на экран все числа от 500 до 300.

6. Найти значение дроби: в числителе - сумма чисел от 1 до 100 делящихся на 7,

а в знаменателе - сумма чисел от 100 до 500, делящихся на 17.