Цель : Показать сходство и различие условного оператора в языках программирования QBasic и Turbo Pascal 7.0.

Условный оператор Условные операторы в QBasic и Turbo Pascal 7.0 помогают нам осуществить "ветвление" программы, т.е. передать управление по условию. Условный оператор имеет вид: IF условие THEN [ELSE Выполнение условного оператора начинается с вычисления значения логического выражения, записанного в условии. Простые условия записываются в виде равенств или неравенств. Сложные условия составляют из простых с помощью логических операций. Если условие истинно, то выполняется, в противном случае -.

Даны два числа А и В. Найти наибольшее из них. prim1Program prim1; uses crt; Описываем переменные А и В как целые DEFINT A - BVar a,b: integer; Begin CLS Clrscr; Вводим два целых числа INPUTA=,B=; A,B Write('введume 2числа'); Readln(a,b); Если A>B, то выводим на экран А, иначе В. IF A>B THEN PRINT AIf a>b Then Writeln(a) Else ELSE PRINT B Writeln(b); EndEnd. QB TP

Если после THEN или после ELSE располагается целая группа операторов, то можно использовать IF блок, который имеет следующую структуру: IF условие THEN Операторы ELSE операторы END IF В Turbo Pascal 7.0, если в качестве оператора должна выполниться серия операторов, то они объединяются в операторные скобки Begin-End

Оператор варианта Если необходимо осуществить проверку более сложных условий, чем ДА/НЕТ, целесообразно использовать условный оператор SELECT... END SELECT. Case переменная Of Если выражение выбора отвечает условиям списка выражений данного блока CASE, выполняются операторы из этого блока.

prim2Program prim2; DEFINT Nvar N:integer; Вводим целое число N. INPUT"N=";N begin writeln(n=); readln(n); SELECT CASE N Case n of Если N

Задание Имеется условный оператор: if D10 Then writeln('ypa!') Else Writeln(' плохо...'); Можно ли заменить его следующими операторами: if D=10 Then Writeln('ypa!') Else Writeln('nлoxo...'); if Not(D=W) Then Writeln('ypa!') Else Writeln('nлoxo...'); if Not(D=10) Then Writeln('плоxo...') Else Writeln('ypa!'); if Not(D10) Then Writeln('nлoxo...') Else Writeln('ypa!'). Какими будут значения переменных j, k после выполнения условного оператора: if j>k Then j = k-2 Else k=k-2 if j>k Then j:=k - 2 Else dec(k,2); если исходные значения переменных равны: j=3,k=5; j=3,k=3; j=3,k=2.