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. Вычислить значение функции:

 

, при x¹3 и -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.

ПРИЛОЖЕНИЕ К ПРАКТИЧЕСКОМУ ЗАНЯТИЮ № 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

ЦИКЛИЧЕСКИЕ ПРОЦЕССЫ (продолжение)