Главная страница | Контакты | Случайная страница Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

Примеры программ

1)Задание:

1a) Используя операторы цикла составить программу вычисления таблицы значений функции в указанном диапазоне значений(sqrt - функция вычисления квадратного корня). Написать вариант программы, с использование оператора “while”.

y=sqrt(x*(x-3)⁴) A=1, B=6, H=0.25

program lab3_1_3_2;

var A,B,H,x,y:real;

begin

write('A=');

readln(A);

write('B=');

readln(B);

write('H=');

readln(H);

x:=A;

while X<=B do

begin

y:=sqrt(x*sqr(x-3)*sqr(x-3));

writeln('x=',x:6:3,' y=',y:6:3);

x:=x+H;

end

end.

1b) Используя операторы цикла составить программу вычисления таблицы значений функции в указанном диапазоне значений(sqrt - функция вычисления квадратного корня). Написать вариант программы, с использование оператор “repeat”.

y=sqrt(x*(x-3)⁴) A=1, B=6, H=0.25

Блок-схема:	Программа:
	program lab3_1_3_2; var A,B,H,x,y:real; begin write('A='); readln(A); write('B='); readln(B); write('H='); readln(H); x:=A; repeat y:=sqrt(x*sqr(x-3)*sqr(x-3)); writeln('x=',x:6:3' y=',y:6:3); x:=x+H; untile x>B; end.

2)Задание: Составить программу вычисления суммы произведений с помощью цикла с параметром. Проверить правильность работы программы, взяв верхние пределы для суммы и произведения (1,2).

Блок-схема:	Программа:
i=1,n   j=1,m	program lab3_2_3; var m,n,j,i:integer; S,P:real; BEGIN write('m='); readln(m); write('n='); readln(n); S:=0; for i:=1 to n do begin P:=1; for j:=1 to m do P:=P*(1/(sqr(i)+sqr(j))); S:=S+P; end; write('S=',S:6:9); END.

Список вариантов

Задание:

Используя операторы цикла составить программу вычисления таблицы значений функции в указанном диапазоне значений. Написать два варианта программы, с использование операторов “while”, “repeat”.

1. Y = xSinx/Cosx; A = -1.6, B = 1.6, H = 0.2

2. Y = tgx² + ctgx²; A = -2, B = 2, H=0.5

3. Y = Ln(x² -9)/x; A = -6, B = 6, H = 1

4. Y = xLn(Cosx); A = -3, B = 3, H = 0.3

5. Y = tgx/x; A = -2, B = 2, H = 0.2

6. Y = Sinx/(x-5); A = -6, B = 6, H = 0.5

7. Y = x/(1-Cosx); A = -4, B = 4, H = 0.5

8. Y = 1/xtg(x/2); A = -3, B = 3, H = 0.5

9. Y = 1/(x² -3); A = -4, B = 4, H = 0.5

10. Y = 1/Ln(x²/8); A = -3, B = 3, H = 0.6

11. Y = 1/x ctg(x/3); A = -4, B = 4, H = 0.

12. Y = Ln(16-x²)/x e^x; A = -6, B = 6, H = 0.5

13. Y = x tg x/ Lnx; A = -3, B = 3, H = 0.5

14. Y = x²Ln|x|/Sinx; A = -2, B = 2, H = 0.2

Задание:

Составить программу вычисления суммы произведений с помощью цикла с параметром. Проверить правильность работы программы, взяв верхние пределы для суммы и произведения (1,2).

Вопросы

1. Понятие цикла. Виды циклов.

12. Организация оператора цикла?

13. Какой тип следует задавать параметру цикла?

14. Как записывается и как работает оператор FOR?

15. Для организации каких циклов применим оператор FOR?

16. В чем отличие оператора WHILE от оператора REPEAT?

17. Как программируются циклические алгоритмы с явно заданным числом повторений цикла?

18. Как программируются циклические алгоритмы с заранее неизвестным числом повторений цикла?

19. Напишите оператор цикла, который не выполняется ни разу.

20. Напишите оператор цикла, который выполняется неограниченное число раз.

21. Замените оператор "Repeat A Until B" равносильным фрагментом программы с оператором While.

22. Указать причины зацикливания программы.

23. Как остановить выполнение программы в случае её зацикливания.