Лабораторная работа №3 "Программы ветвления. Операторы IF … THEN … ELSE, GO TO"
Цель: Научиться вводить и редактировать разветвляющиеся программы.
1. Написать программу для нахождения значения функции при х<0 y=5x-3, при x>=0 y=Ц x для х=-8.34; -0.158; 1.21; 625
INPUT X
IF X>0 THEN Y=SQR(X) ELSE Y=5*X-3
PRINT “X=”;X,”Y=”;Y
END
2. Ввести программу для нахождения НОД чисел М и N. Исполнить ее для M=1000, N=625; M=1236312, N=9822.
10 INPUT M, N
20 LET X=M
30 LET Y=N
40 PRINT X, Y
50 IF X=Y THEN 110
60 IF X>Y THEN 90
70 LET Y=Y-X
80 GOTO 50
90 LET X=X-Y
100 GOTO 50
110 PRINT “НОД ЧИСЕЛ M и N РАВЕН”;X
120 END
3. Ввести программу решения квадратного уравнения и исполнить её для следующих уравнений: 1125х^2-45x-324=0; 502x^2-38.5x+12/125=0; 16x^2-256x+1024=0.
10 PRINT “РЕШАЕМ УРАВНЕНИЕ AX^2+BX+C=0”
20 INPUT A, B,C
30 D=B^2-4*A*C
40 IF D>0 THEN 100
50 IF D=0 THEN 70
60 PRINT “Нет решения”
70 X=-B/(2*A)
80 PRINT “X1=X2=”;X
90 GOTO 130
100 X1=(-B-SQR(D))/(2*A)
110 X2=(-B+SQR(D))/(2*A)
120 PRINT “X1=”;X1,”X2=”;X2
130 END
4. НАПИСАТЬ ПРОГРАММУ ДЛЯ РЕШЕНИЯ ЛИНЕЙНОГО УРАВНЕНИЯ АХ+В=С, ПРИМЕРЫ.
