Учебно-методический комплекс дисциплины для обучающегося «Языки программирования» для специальности 5В010900 Математика
жүктеу/скачать 1.33 Mb.
|
- Бұл бет үшін навигация:
- КРАТКИЕ СВЕДЕНИЯ ИЗ ТЕОРИИ
| ЛАБОРАТОРНАЯ РАБОТА 4
ПРОГРАММИРОВАНИЕ РАЗВЕТВЛЯЮЩИХСЯ ВЫЧИСЛИТЕЛЬНЫХ ПРОЦЕССОВ ЦЕЛЬ РАБОТЫ: Научиться использовать условную конструкцию, оператор выбора для программирования разветвляющихся алгоритмов. КРАТКИЕ СВЕДЕНИЯ ИЗ ТЕОРИИ Алгоритм называется разветвляющимся, если он содержит несколько ветвей, отличающихся друг от друга содержанием вычислений. Выход вычислительного процесса на ту или иную ветвь алгоритма определяется исходными данными задачи. Перед выполнением работы необходимо ознакомиться с правилами записи логических выражений, операций сравнения, операторов IF, CASE, GOTO. ПРИМЕР 1: Найти максимальную из двух величин а и в program maxsimum; var a,b,m:real; begin writeln('Максимум двух чисел'); write ('Первое число ? '); readln(a); write ('Второе число ? '); readln(b); if a>=b then m:=a else m:=b; writeln('a=',a:2:0,' b =',b:2:0); writeln('max =',m:2:0); end.
ПРИМЕР 2: Найти корни квадратного уравнения program uravnen; m label;
var a,b,c,x,x1,x2,d:real; begin
write('Введите коэффициенты ? ');readln(a); if a=0 then begin writeln('Уравнение не квадратное'); goto m end;
readln(b); readln(c); writeln('a= ',a,' b =',b,'c=',c); d:=b*b-4*a*c; if d<0 then writeln('Нет решений') else begin x1:=(-b+sqrt(d))/(2*a); x2:=(-b-sqrt(d))/(2*a); write('Решение: '); wtiteln('x1= ',x1,'x2= ',x2); end m:end.
ПРИМЕР 3: Определить название столицы по названию государства. program capital; var land,cap:string[20]; num:0..8; begin
writeln('Определяем название столицы'); writeln('Введите название страны'); readln(land); num:=0; {номер страны в списке} if land='Австрия' then num:=1; if land='Болгария'then num:=2; if land='Греция' then num:=3; if land='Италия' then num:=4; if land='Норвегия' then num:=5; if land='Франция' then num:=6; if land='США' then num:=7; if land='Россия' then num:=8; case num of {определение столицы по номеру страны в списке } 1:cap:='Вена'; 2:cap:='София'; 3:cap:='Афины'; 4:cap:='Рим'; 5:cap:='Осло'; 6:cap:='Париж'; 7:cap:='Вашингтон'; 8:cap:='Москва'; 0:cap:='Такой страны не знаю' end; writeln(cap); readln; end.
жүктеу/скачать 1.33 Mb. Достарыңызбен бөлісу:
|