Регистрация
alina151103
15.04.2021 06:01
Информатика
Есть ответ 👍

Напишите программу в бейсике(массив). решите уравнения ax=b для 10 пар значений a и b, заданных в виде двух массивов a(10) и b(10). результат поместить в массив x(10). (при составлении программы учесть ,что среди a(1) могут быть нулевые элементы, т.е. исключить деление на ноль)

162
311
Посмотреть ответы 2

Ответы на вопрос:

hameleon5
hameleon5
4,4(69 оценок)
'qbasic const n = 10 dim a(1 to n) as double, b(1 to n) as double, x(1 to n) as double randomize timer cls for i = 1 to n     a(i) = 50 * rnd - 25     b(i) = 50 * rnd - 25     if a(i) < > 0 then           x(i) = b(i) / a(i)     else           x(i) = 0     end if     print using "###.#####"; a(i);     print " * ";     print using "###.#####"; x(i);     print " = ";     print using "###.#####"; b(i) next i тестовое решение: -14.65854 *    0.53867 =  -7.89606 -14.19729 *    1.08311 = -15.37722 -17.21156 *  -0.07488 =    1.28888   16.17024 *  -1.09750 = -17.74690 -13.80126 *  -1.06180 =  14.65417   17.78583 *    0.83055 =  14.77207 -10.95534 *  -1.58899 =  17.40791 -11.84992 *    1.66222 = -19.69714 -24.91831 *  -0.95948 =  23.90864 -12.68757 *    0.84160 = -10.67785
rewington1
rewington1
4,5(70 оценок)

var

  s1, s2: string;

  i: integer;

 

begin

  s2: = '';   //присваиваем строке начальное пустое значение

  writeln('введите слово s1');

  readln(s1);

  for i: = 1 to length(s1) do   //length(s1) - длина строки s1

    if i mod 2 = 0 then s2: = s2 + s1[i];

  writeln('полученное слово:   ', s2);

end.

Популярно: Информатика