В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Linaa631
Linaa631
08.05.2020 02:44 •  Информатика

это решить как это решить?


это решить как это решить?

Показать ответ
Ответ:
missiskitten
missiskitten
24.09.2022 14:31

Как-то так, наверное

Объяснение:

#include <iostream>

#include <cmath>

using namespace std;

int main()

{

   double a, x, b, c, D;

   

   cout<<"Введите a: "; cin >> a;

   cout<<"Введите b: "; cin >> b;

   cout<<"Введите c: "; cin >> c;

   

   D = pow(b,2)-4*a*c;

   if(D>0){

   cout << "x1 = " << ((-1)*b+sqrt(D))/(2*a)<<endl;

   cout << "x2 = " <<((-1)*b-sqrt(D))/(2*a)<<endl;

   }

   else if(D==0){

       cout << "x = " << ((-1)*b)/(2*a)<<endl;

   }

   else{

    D*=(-1);

    cout<< "x1 = " << ((-1)*b)/(2*a) <<"+"<< (sqrt(D))/(2*a) << "*i" <<endl;

    cout<< "x2 = " << ((-1)*b)/(2*a) <<"-"<< (sqrt(D))/(2*a) << "*i" <<endl;

   }

   return 0;

}

0,0(0 оценок)
Ответ:
sanekYakimov
sanekYakimov
03.01.2023 17:41

Program F90

   integer i, j, k, s /0/, x/2/, y/6/, a(7, 7)

   do k = 1, 4

       do i = x - 1, y + 1

           s = s + 1

           a(x - 1, i) = s

       end do

       i = y + 1

       do j = x, y + 1

           s = s + 1

           a(j, i) = s

       end do

       do i = y, x - 1, -1

           s = s + 1

           a(y + 1, i) = s

       end do

       i = x - 1

       do j = y, x, -1

           s = s + 1

           a(j, i) = s

       end do

       x = x + 1

       y = y - 1

   end do

   Print *, 'massive 15 = '

   Write(*, '(7i5)') ((a(i, j), j=1, 7), i=1, 7)

End Program


перевести код из паскаля в фортран f90 var i, j, k, s, x, y:integer; a:array[1..7,1..7] of integer;
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота