Сергей Сергеевич
Лебедев


Меню сайта
Наш опрос
Какими операционными системами Вы пользуетесь
Всего ответов: 100
GamesЫ

Материалы взяты из учебного пособия Шауцукова Л.З.

Информатика: Учеб. пособие для 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
Форма входа

Календарь новостей
«  Июль 2020  »
ПнВтСрЧтПтСбВс
  12345
6789101112
13141516171819
20212223242526
2728293031
Поиск
Друзья сайта
Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0
Copyright С.С. Лебедев © 2008-2020 Конструктор сайтов - uCoz