Решение квадратного уравнения. Оператор варианта. Вычисление площадей фигур. 10. Примерные задания к контрольной работе
Скачать 443 Kb.
|
ПРАКТИЧЕСКОЕ ЗАНЯТИЕ № 10ПОДГОТОВКА К КОНТРОЛЬНОЙ РАБОТЕ1. Составить программу вычисления силы взаимодействия двух точечных электрических зарядов:, где: F - сила взаимодействия зарядов по закону Кулона ( Ньютон ), q1,q2 -неподвижные точечные электрические заряды ( Кулон ), k=9∙е9 -коэффициент ( ), е - относительная диэлектрическая проницаемость среды (табличное значение), r - расстояние между точечными электрическими зарядами ( метр ). 2. Вычислить значение функции: , при x3 и -2<=x<8 Y= , при x-5 и x=-10 и x=0 и x=10 3. Повторить к контрольной работе: а) Принципы фон Неймана; б) экспоненциальная форма представления числа; в) графическое представление разветвляющихся алгоритмов; г) перевод алгебраических выражений для ввода в программу; д) решение математических и физических задач; е) разветвляющиеся вычислительные процессы. ПРАКТИЧЕСКОЕ ЗАНЯТИЕ №11ЦИКЛИЧЕСКИЕ ПРОЦЕССЫЦиклические конструкции используются в тех случаях, когда необходимо повторять какие-либо действия. Различают два вида циклов: с заданным количеством шагов и циклы, в которых количество шагов заранее неизвестно, а цикл завершается при выполнении условия. 1. ЦИКЛ С ПРЕДУСЛОВИЕМ или цикл "ПОКА". Сначала проверяется условие и тело цикла выполняется ПОКА УСЛОВИЕ ИСТИННО, если условие становится ЛОЖНЫМ, то происходит выход из цикла. Реализуется этот цикл инструкцией: WHILE <условие> DO <тело цикла> while - (вайл) - пока, do - (ду) – делать (выполнять). В тело цикла входит только один оператор! Если нужно объединить в тело цикла несколько операторов, то применяются операторные скобки begin-end. Условие может быть простым или сложным, если применить слова: NOT, AND, OR. ПРИМЕРЫ ПРОСТЕЙШИХ ЦИКЛИЧЕСКИХ ПРОЦЕССОВ. Пример 1. Вывести 20 одинаковых символов на экран. Program Simwol; Uses crt; var i,h,n: integer; Begin {Действительно ли на экране 20 символов?} clrscr; {пронумеруем символы:} i:=1; h:=1; n:=20; while i<=n do while i<=n do begin begin write('* '); writeln(i,'- * '); i:=i+h; i:=i+h; end; end; readkey; End. Пример 2. Вывести на экран Пример 3. Вывести на экран числа от 1 до 20. числа от 20 до 1. Program Ch; Uses crt; Program Ch; Uses crt; var i,h,n: integer; var i,h,n: integer; Begin Begin Clrscr; clrscr; i:=1; h:=1; n:=20; i:=20; h:=-1; n:=1; while i<=n do while i>=n do begin begin write(i,' '); write(i,' '); i:=i+h; i:=i+h; end; end; readkey; readkey; End. End. ПРИЛОЖЕНИЕ К ПРАКТИЧЕСКОМУ ЗАНЯТИЮ № 11Пример 4. Вывести на экран числа, оканчивающиеся на 7 на интервале от -100 до 100. Program Ch; Uses crt; var i,h,n: integer; Begin clrscr; i:=-100; h:=1; n:=100; while i<=n do begin if i mod 10=7 then write(i,' '); i:=i+h; end; readkey; End. нечетные: if odd(i) then write(i,' '); четные: if not(odd(i)) then write(i,' '); делящиеся на 7: if i mod 7=0 then write(i,' ') нечетные и делящиеся на 7: if (odd(i)) and (i mod 7=0) then write(i,' '); Пример5. Найти сумму ряда: 1, 2, ..20. Тип переменной S может быть integer, если сумма чисел не более 32767. Program Summa; Uses crt; var i,n,h,s: integer; Begin clrscr; i:=1; n:=20; h:=1; s:=0; { s:=0 -обнуление суммы } while i<=n do begin s:=s+i; { процесс суммирования } i:=i+h; end; write('Сумма чисел натурального ряда от 1 до 20 равна ',s); readkey; End. Пример 6. Найти сумму ряда: 0.1, 0.3, 0.5, .. , 32.5 Program Summa; Uses crt; { s - сумма } var x,h,n,s: real; { h - шаг } Begin { x – начальное значение параметра цикла} ClrScr; { n - конечное значение параметра цикла.} s:=0; x:=0.1; h:=0.2; n:=32.5; while (x<=n) do begin s:=s+x; { -суммирование очередного элемента } x:=x+h; { -изменение параметра цикла на шаг } end; writeln('Сумма ряда: 0.1, 0.3,.., 32.5 S=',s); readkey; End. |