|
|
|
 |
|
Материалы взяты из учебного пособия Шауцукова Л.З.
Информатика: Учеб. пособие для 10-11 кл. общеобразоват. учреждений / Л.З Шауцукова. - 2-е изд.,дораб. - М. : Просвещение, 2002. -416 с. : ил. - ISBN 5-09-011342-4
Нахождение координат точки пересечения двух заданных прямых
Пусть две прямые описываются уравнениями a1x +b1y +c = 0, a2x +b2y +c = 0
Требуется напечатать координаты точки пересечения этих прямых либо сообщить, что эти прямые совпадают, не пересекаются или вовсе не существуют.
Номер теста
|
Проверяемый случай
|
Коэффиценты
|
Результат
|
1
|
Первая прямая не существует
|
0 |
0 |
1 |
1 |
2 |
2 |
Это не прямая
|
2
|
Вторая прямая не существует
|
1 |
2 |
2 |
0 |
0 |
1 |
Это не прямая
|
3
|
Все коэффиценты одной или обеих равны нулю
|
0 |
0 |
0 |
1 |
2 |
1 |
Это не прямая(прямые)
|
4
|
Коэффиценты попарно равны
|
1 |
2 |
1 |
1 |
2 |
1 |
Прямые совпадают
|
5
|
Коэффиценты попарно пропорциональны
|
1 |
2 |
1 |
2 |
4 |
2 |
Прямые совпадают
|
6
|
Прямые параллельны
|
2 |
3 |
-1 |
4 |
6 |
1 |
Прямые параллельны
|
7
|
Прямые пересекаются
| 1 |
2 |
-4 |
1 |
-2 |
1 |
Прямые пересекаются
|
QBasic
CLS
Input"Введите количество тестов :", NTestt
For Test = 1 To NTest ' цикл по всем тестам задачи
Print "Тест"; Test;
Input "Введите а1, b1, c1 :", a1, b1, c1
Input "Введите а2, b2, c2 :", a2, b2, c2
Print : Print "Ответ:";
If (a1 = 0) and (b1 = 0) or (a2 = 0) and (b2 = 0) Then
Print "Это не прямая(прямые)"
Else
If (a1*b2=a2*b1) and (a1*ac2=a2*c1) Then
Print "прямые совпадают"
Esle
If a1*a2 = a2*b1
Prnt "Прямые параллельны"
Else
x =(c1*b2 - c2*b1)/(b1*a2 - b2*a1)
y = (c2*a1 - c1*a2)/(b1*a2 - b2*a1)
Print "Координаты точки пересечения: x="; x ; ", y="; y
End If
End If
End If
Print
Next Test
End
Вычисление суммы первых n элементов знакочередующегося степенного ряда
Для заданного x вычислим S = 1 - x/1! + x2/2! - x3/3! +...+ (-1)nxn/n!
Тест
Данные
|
Результат
|
x = 1 |
n = 3 |
S = 1 - x/1! + x2/2! - x3/3! +...+ (-1)nxn/n! |
QBasic
CLS
Input "Введите n = ", n
Input "Введите x = ", x
S = 1; P = 1
For i = 1 To n
P = -P*x/i
S = s + P
Next i
Print : Print "Ответ:S = "; s
End
Формирование нового одномерного массива из элементов заданного массива
Дан массив X(N). Получим новый массив Y(N), такой что в нем сначала идут положительные числа, затем нулевые и затем отризательные числа из Х
Тест
Данные |
Результат |
N = 7 X = (-1, 2, 0, 4, -3,-2,0) |
Y = (2, 4, 0, 0, -1, -3, -2) |
QBasic
CLS: Input "N = "; N : DIM X(N), Y(N)
For i = 1 To N
Print "X("; i; ") ="; : Input X(i)
Next i
k = 0
For i = 1 To N
If X(i)>0 Then k = k + 1 : Y(k)=X(i)
Next i
For i = 1 To N
If X(i)=0 Then k = k + 1 : Y(k)=X(i)
Next i
For i = 1 To N
If X(i)<0 Then k = k + 1 : Y(k)=X(i)
Next i
Print "Ответ: полученный массив ";
For i = 1 To N
Print Y(i)
Next i : Print
End
Упорядочение по возрастанию элементов заданного числового массива a1, a2, ..., an
Тест
Данные |
Результат |
N = 4 |
A = (5, 2, 7, 1) |
A = (1, 2, 5, 7) |
i |
j |
A[i]>A[j] |
Массив А |
1 |
2 3 4 |
+ - + |
2, 5, 7, 1 1, 5 ,7, 2 |
|
|
|
|
|
|
Календарь новостей
|
|
« Февраль 2021 » | Пн | Вт | Ср | Чт | Пт | Сб | Вс | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 |
|
|
|
Статистика
|
|
Онлайн всего: 1 Гостей: 1 Пользователей: 0
|
|
|
|