ЗАВДАННЯ ДЛЯ САМОСТІЙНОЇ РОБОТИ
CРС №1
ЗАДАЧА 1
Тема : Оператор присвоєння та стандартні функції
Розрухувати задану функцію:
Умова:
Де x=10.05 y=0.35
Приклад виконання завдання на мові Паскаль
Program P1;
var x,y,b:real;
begin
write ('x:');
readln (x);
write ('y:');
readln (y);
b:=sqrt(sqr(sin(x))*arctan(x))+ABS(cos(y));
writeln ('b=',b:5:3);
end.
Результат роботи програми
b=1.649
ВАРІАНТИ ЗАВДАНЬ ДО ЗАДАЧІ №1
Обчислити значення функції:
Умова1 – де х, а, b змінні величини.
Умова 2 – де х змінна величина, а і b сталі.
Умова 3 – де х змінна величина, а і b задати за допомогою оператору присвоєння
|
№ п/п |
Вид функції |
Вихідні дані |
||
|
x |
a |
b |
||
|
1 |
|
0,545 |
4,366 |
1,365 |
|
2 |
|
3,726 |
1,002 |
2,354 |
|
3 |
|
0,534 |
3,75 |
2,458 |
|
4 |
|
1,656 |
1,752 |
5,873 |
|
5 |
|
0,635 |
3,625 |
4,356 |
|
6 |
|
10,324 |
7,562 |
3,95 |
|
7 |
|
2,375 |
4,372 |
6,125 |
|
8 |
|
0,654 |
2,628 |
0,234 |
|
9 |
|
0,422 |
3,416 |
7,241 |
|
10 |
|
0,124 |
2,52 |
|
|
11 |
|
1,322 |
0,32 |
0,64 |
|
12 |
|
0,522 |
2,532 |
0,75 |
|
13 |
|
0,944 |
4,6 |
12,3 |
|
14 |
|
0,633 |
3,15 |
2,1 |
|
15 |
|
7,52 |
3,95 |
3,4 |
|
16 |
|
1,24 |
6,125 |
1,8 |
|
17 |
|
0,668 |
0,234 |
1,1 |
|
18 |
|
0,853 |
7,241 |
3,8 |
|
19 |
|
6,215 |
4,215 |
|
|
20 |
|
2,125 |
2,015 |
3,9 |
|
21 |
|
3,254 |
4,125 |
5,4 |
|
22 |
|
5,124 |
1,215 |
2,6 |
|
23 |
|
3,254 |
0,358 |
4,6 |
|
24 |
|
2,135 |
4,125 |
8,7 |
|
25 |
|
1,542 |
4,325 |
3,9 |
|
26 |
|
4,321 |
2,587 |
2,7 |
|
27 |
|
0,251 |
3,542 |
3,7 |
|
28 |
|
0,658 |
2,587 |
5,1 |
|
29 |
|
3,216 |
2,254 |
0,85 |
|
30 |
|
8,524 |
1,548 |
3,5 |
Задача 2
Тема : Умовний оператор
Приклад1: Використовуючи умовний оператор скласти програму обчислення значення функції на мові програмування Паскаль.
Програма розв’язання даної задачі мовою програмування Паскаль
Program F1;
var x, у: real;
begin
writeln (‘Введіть значення х:’);
writeln(‘x=‘);
readln (x);
if x<0 then y:=x
else if (x>=0) and (x<5)
then y:=5
else y:=5*x;
writeln (‘x=‘, x,’y =’, y);
end.
Результат виконання програми:
Введіть значеня х: –1, 3, 7 – результат продемострувати викладачу.
Приклад2 Використання програм з складеним оператором
Program F1;
var x, у: real;
begin
writeln (‘Введіть значення х:’);
writeln (‘х=‘);
readln (x);
if x<5 then
begin
if x>=0 then y:=5
else y:=x;
end
else y:=5*x;
writeln (‘x =’,x,’y =‘,y);
end.
Варіанти завдань до задачі №2
Вхідні дані x, a, b, c, d вводяться користувачем.
|
№ п/п |
Функція |
Умова |
Вхідні дані |
|
1 |
|
|
x, a, b, c, d |
|
2 |
|
|
x, a, b, c, d |
|
3 |
|
|
x, a, b, c, d |
|
4 |
|
|
x, a, b, c, d |
|
5 |
|
|
x, a, b, c, d |
|
6 |
|
|
x, a, b, c, d |
|
7 |
|
|
x, a, b, c, d |
|
8 |
|
|
x, a, b, c, d |
|
9 |
|
|
x, a, b, c, d |
|
10 |
|
|
x, a, b, c, d |
|
11 |
|
|
x, a, b, c, d |
|
12 |
|
|
x, a, b, c, d |
|
13 |
|
|
x, a, b, c, d |
|
14 |
|
|
x, a, b, c, d |
|
15 |
|
|
x, a, b, c, d |
|
16 |
|
|
x, a, b, c, d |
|
17 |
|
|
x, a, b, c, d |
|
18 |
|
|
x, a, b, c, d |
|
19 |
|
|
x, a, b, c, d |
|
20 |
|
|
x, a, b, c, d |
|
21 |
|
|
x, a, b, c, d |
|
22 |
|
|
x, a, b, c, d |
|
23 |
|
|
x, a, b, c, d |
|
24 |
|
|
x, a, b, c, d |
|
25 |
|
|
x, a, b, c, d |
|
26 |
|
|
x, a, b, c, d |
|
27 |
|
|
x, a, b, c, d |
|
28 |
|
|
x, a, b, c, d |
|
29 |
|
|
x, a, b, c, d |
|
30 |
|
|
x, a, b, c, d |
ЗАДАЧА №3
СРС №2
ТЕМА: Організація та реалізація циклів в програмі.
Приклад використання циклів.
Завдання: Використовуючи оператор цикла з параметром знайти суму всіх натуральних числе від 1 до N.
Програма розв'язання даної задачі мовою програмування Паскаль.
Program Sumal;
Var і, N, S: integer;
Begin
write (’Введіть кількість натуральних чисел:’);
write(’N=’);
readln(N);
S:=0;
For i:=l to N do
S:=S+i;
Writeln (’S=’,S);
end.
Примітка:
1. Цикли з параметрами зручно використовувати в тих випадках, коли попередньо можна визначити кількість повторень.
2. Параметр циклу повинен бути описаним у розділі змінних.
Завдання: Використовуючи оператор цикла з післяумовою знайти суму всіх натуральних числе від 1 до N.
Програма розв'язання даної задачі мовою програмування Паскаль.
Program Suma2;
Var i, N, S: integer;
Begin
write (’Введіть кількість натуральних чисел:’);
write(’N=’);
readln(N);
i:=1; S:=0;
repeat
S:=S+i;
i:=i+1;
until i>N;
Writeln (’S=’,S);
end.
Примітка:
1. Тіло цикла не потрібно брати в дужки (begin-end), так як службові слова repeаt-until відіграють роль дужок.
2. Тіло циклу у вказівці повторення з післяумовою виконується щонайменше один раз.
3. Умова вказівки є умовою виходу з циклу.
4. Входження в тіло вказівки повторення можливе тільки через заголовок цієї вказівки.
Завдання: Використовуючи оператор цикла з передумовою знайти суму всіх натуральних числе від 1 до N.
Програма розв'язання даної задачі мовою програмування Паскаль.
Program Suma3;
Var i, N, S: integer;
Begin
write (’Введіть кількість натуральних чисел:’);
write(’N=’);
readln(N);
i:=1; S:=0;
while i <= N do
begin
S:=S+i;
i:=i+1;
end;
Writeln (’S=’,S);
end.
Примітка:
1. Якщо умова повторення хибна при першій же перевірці, то тіло цикла не виконується жодного разу. Умова є входженням в цикл.
2. У мову вказівки повторення з передумовою необхідно підбирати таким чином, щоб в деякий момент вона змінила своє значення з True на False, інакше виникне ситуація "зациклювання програми".
3. Необхідно самому потурбуватися про необхідність збільшення (зменшення) лічильника циклу на 1 (і:=і + 1).
Умова :
-
оператор цикла з параметром;
-
оператор цикла з передумовою;
оператор цикла з післяумовою