![]() Заглавная страница Избранные статьи Случайная статья Познавательные статьи Новые добавления Обратная связь FAQ Написать работу КАТЕГОРИИ: ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ТОП 10 на сайте Приготовление дезинфицирующих растворов различной концентрацииТехника нижней прямой подачи мяча. Франко-прусская война (причины и последствия) Организация работы процедурного кабинета Смысловое и механическое запоминание, их место и роль в усвоении знаний Коммуникативные барьеры и пути их преодоления Обработка изделий медицинского назначения многократного применения Образцы текста публицистического стиля Четыре типа изменения баланса Задачи с ответами для Всероссийской олимпиады по праву ![]() Мы поможем в написании ваших работ! ЗНАЕТЕ ЛИ ВЫ?
Влияние общества на человека
Приготовление дезинфицирующих растворов различной концентрации Практические работы по географии для 6 класса Организация работы процедурного кабинета Изменения в неживой природе осенью Уборка процедурного кабинета Сольфеджио. Все правила по сольфеджио Балочные системы. Определение реакций опор и моментов защемления |
Else write(' Нет такой метки')Содержание книги
Поиск на нашем сайте
end; readkey; End. Program Primer_Case2; Uses crt; var n:char; { char - символьный тип,занимает 1 байт памяти } Begin clrscr; write('Нажмите букву а..е'); readln(n); Case n of 'a': write('Вы ввели символ а'); 'b': write('Вы ввели символ b'); 'c': write('Вы ввели символ c'); 'd': write('Вы ввели символ d') Else write('Вы ввели символ, которого нет среди меток') end; readkey; End. З А Д А Н И Я: 1. Набрать приведенные выше программы и выполнить их. 2. Во второй программе после <clrscr> ввести МЕНЮ для выбора меток.
ПРАКТИЧЕСКОЕ ЗАНЯТИЕ № 9 ОПЕРАТОР ВАРИАНТА (продолжение)
Вычислить площади фигур, выбирая их из списка (меню):
Program PLFigur; Uses crt; var s,a,b,h,r:real; n:integer; Begin ClrScr; writeln(' П Л О Щ А Д И'); writeln(' ============='); writeln(' 1. Прямоугольника.'); writeln(' 2. Трапеции.'); writeln(' 3. Круга.'); writeln(' 4. Конец работы.'); writeln; write('Введите номер строки:'); readln(n); Case n of Begin clrscr; write('Введите стороны прямоугольника a,b:'); readln(a,b); s:=a*b; write('Площадь прямоугольника S=',s) end; Begin clrscr; write('Введите основания и высоту трапеции a,b,h:'); readln(a,b,h); s:=(a+b)*h/2; write('Площадь трапеции S=',s) end; Begin clrscr; write('Введите радиус круга r='); readln(r); s:=pi*r*r; write('Площадь круга S=',s) End else write(' ***** Работа окончена *****'); end; readkey; End. З А Д А Н И Я:
1. Набрать программу и выполнить ее для четырех строк меню. 2. Самостоятельно дописать в программу вычисление площади треугольника.
ПРАКТИЧЕСКОЕ ЗАНЯТИЕ № 10 ПОДГОТОВКА К КОНТРОЛЬНОЙ РАБОТЕ
1. Составить программу вычисления силы взаимодействия двух точечных
электрических зарядов: F - сила взаимодействия зарядов по закону Кулона (Ньютон), q1,q2 -неподвижные точечные электрические заряды (Кулон), k=9∙е9 -коэффициент ( е - относительная диэлектрическая проницаемость среды (табличное значение), r - расстояние между точечными электрическими зарядами (метр).
2. Вычислить значение функции:
Y=
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. ПРИЛОЖЕНИЕ К ПРАКТИЧЕСКОМУ ЗАНЯТИЮ № 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. Получить таблицу функции 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 ЦИКЛИЧЕСКИЕ ПРОЦЕССЫ (продолжение)
|
||||||
Последнее изменение этой страницы: 2016-08-12; просмотров: 146; Нарушение авторского права страницы; Мы поможем в написании вашей работы! infopedia.su Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Обратная связь - 18.216.16.44 (0.008 с.) |