masenkon524
13.05.2023 21:08

Описать рекурсивную процедуру Del(L), удаляющую последнее звено из непустого списка L (type list = ^link; link = record elem: char; next: list end; var L: list;). При удалении
освобождается память, занимаемая этим звеном.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
777ppp777
20.07.2022 18:13

а) БД «Погода», запись номер 3.
       ВЛАЖНОСТЬ = 90
       ОСАДКИ = "дождь"
б) БД «Домашняя библиотека», запись номер 1.
       АВТОР = "Толстой Л.Н."
       ГОД = 1990
в) БД «Успеваемость», запись номер 4.
       ФИЗИКА = 2
7. Данные высказывания запишите в форме простых логических выражений и определите результат их вычисления для указанных записей.
а) БД «Погода», запись номер 2.
       Температура > 0
       ОСАДКИ <> "дождь"
б) БД «Домашняя библиотека», запись номер 3.
       ГОД = 1982
       Полка < 5
в) БД «Факультативы», запись номер 4.
       Увлечения matches "*геологи".
       Фамилия_ученицы = "Шляпина".
8. Запишите следующие высказывания в форме логических выражений:
а) фамилия_ученика <> "Семенов";
б) Увлечения matches "*геология";
в) дата < 5/05/1989;
г) дата <= 23/09/1996;
д) алгебра <> "отлично";
е) АВТОР = "Беляев А.Р." ;
ж) ГОД = 1990;
з) Полка <= 5.

0,0(0 оценок)
Ответ:
listik194
02.06.2023 03:16

На языке C++ будет так:

#include <iostream>

#include <math.h>

using namespace std;

int main()

{

   int a,b,c;

   double D, x1, x2;

   cout<<"Введите a"<<endl;

   cin >>a;

   cout<<"Введите b"<<endl;

   cin >>b;

   cout<<"Введите c"<<endl;

   cin >>c;

   if (a == 0){

       cout<<"Коэффициент a не может быть равен 0"<<endl;

       return 0;

   }

   D = b*b - 4 * a * c;

   if (D >= 0){

       if (D == 0){

           x1 = -(double)b /(2*a);

           cout<<"x = "<<x1<<endl;

       }

       else{

           x1 = (-b + sqrt(D)) / (2*a);

           x2 = (-b - sqrt(D)) / (2*a);

           cout<<"x1 = "<<x1<<endl;

           cout<<"x2 = "<<x2<<endl;

       }

   }

   else{

       cout<<"Корней нет. D = "<<D<<endl;

   }

   return 0;

}

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота