Скачать презентацию
Идет загрузка презентации. Пожалуйста, подождите
Презентация была опубликована 11 лет назад пользователемgimnazia005.narod.ru
1 Условный оператор IF и оператор выбора CASE Turbo Pascal
2 Задача 1: Переменная АО хранит код одной из операций +, -, *, /. В зависимости от значения АО следует произвести следующую операцию над переменными b и c. Т.е. если АО=+, то a:=b+c; если АО=-, то a:=b-c и т.д.
3 БС задачи 1: Начало Вв. АО,b,c AO=+ a:=b+c AO=- a:=b-c AO=* a:=b*c AO=/ a:=b/c Ошибка: АО не знак Выв. а Конец
4 Программа задачи 1: Program usl; Var AO: char; a,b,c: real; begin Writeln(Vvedite znak AO); Readln(AO); Writeln(Vvedite 2 4icla); Readln(b,c); If AO=+ then a:=b+c else if AO=- then a:=b-c else if AO=* then a:=b*c else if AO=/ then a:=b/c else writeln(Oshibka AO ne znak); Writeln(a=,a); End.
5 Тестирование задачи 1: AO=+, b=5, c=3 a=8 AO=/, b=9, c=3 a=3 AO=2, b=5, c=3 Oshibka AO ne znak
6 Оператор выбора CASE: 4 Предназначен для реализации в программе разветвляющегося вычислительного процесса, который позволяет выбрать один из нескольких альтернативных путей решения задачи в зависимости от проверки нескольких условий.
7 Общий вид оператора: Case N of К1:S1; К2:S2>; Кn:Sn; [ELSE оператор ] end; Где N переключатель; выражение любого типа кроме real; K1…Kn – метки, константы того же типа что и переключатель; S1…Sn – операторы; case (выбор), of (из), end (конец): ключевые слова. Kn иначеK1 N SnSS1
8 Замечания: 4 Метки оператора Case не имеют ни чего общего с метками операторов, поэтому они не описываются в разделе Label. 4 Недопустимо чтобы одна и та же метка появлялась более одного раза в одной конструкции Case.
9 Задача 1 (2 способ): АО не знак арифмет. операции начало Вв АО,b,c АО a:=b+ca:=b-c a:=b*c a:=b/c f:=true f:=false f Вывод a конец
10 Программа к задачи 1: Program usl; Var AO: char; a,b,c: real; f:boolean; begin Writeln(Vvedite znak AO); Readln(AO); Writeln(Vvedite 2 4icla); Readln(b,c); f:=true; Case AO of +:a:=b+c; -:a:=b-c; *:a:=b*c; /:a:=b/c; else f:=false; end; Case f of true:writeln(a=,a); false:writeln(Oshibka AO ne znak); end; End.
11 Задания: 1. x, если n=1 Y= x^2, если n=2 x^3, если n=3 x^4, если n=4 2. Дано натуральное (целое, положительное) число n (n
12 Домашняя работа: 4 1 вариант 4 2 вариант 4 3 вариант 4 4 вариант Вычислить для заданных вещественных величин a,b,c:
Еще похожие презентации в нашем архиве:
© 2024 MyShared Inc.
All rights reserved.