Таблица базы данных «пациенты» содержит поля: «фамилия», «имя», «отчество», «дата рождения», «номер участника», «адрес», «наличие хронических болезней», «дата последнего посещения врача». определить тип и ширину (размер) каждого поля. придумайте и опишите структуру таблицы бд, которая будет содержать четыре поля различных типов: символьного, числового, «дата», логического.

👇

Ответ:

polina1362

12.03.2023

Фамилия - тип символьный, длина.. надо символы считать в таблица. Сколько букв в самой длинной фамилии, такая и длина. Если же таблица ещё только создается, то ставят приблизительно 15.

Имя - тип символьный. Длина.. смотри выше. Или считай буквы, если БД уже создана, или ставь приблизительно 10-15 (одно из начений)

Отчество - символьный

Дата рождения - тип - дата

Номер участника - символьный.

Адрес - символьный

Наличие хронических болезней (если да или нет) то логический тип

Дата последнего посещения врача - тип дата (если есть число, месяц, год, заданы в таблице), если стоит например 22 ноября то тип будет символьный

Придумать свою БД. Например, БД ваших CD дисков. Название диска - символьный. Дата покупки - тип дата. Дома он у вас сейчас или вы его одолжили другу - логический. И числовой тип, например стоимость диска. Всего - 4 поля с 4 разными типами

4,6(22 оценок)

Открыть все ответы

Ответ:

prkf

12.03.2023

Var
i,n,k:integer;
p:longint;
f,ff:boolean;
begin
Write('Введите количество чисел -> '); Readln(n);
Writeln('Тeперь вводите сами числа');
p:=1; f:=false; ff:=false;
for i:=1 to n do
begin
    Read(k);
    f:=((k<0) and ((k mod 2)<>0));
    ff:=(ff or f);
    if f then p:=p*k
end;
if ff then Writeln('Произведение нечетных отрицательных чисел: ',p)
else Writeln('Не было введено ни одного отрицательного нечетного числа')
end.

Тестовое решение:
Введите количество чисел -> 10
Тeперь вводите сами числа
5 -7 16 0 -3 4 -6 2 1 8
Произведение нечетных отрицательных чисел: 21

4,4(24 оценок)

Ответ:

mamaha123

12.03.2023

Var
a,b,c,d,x,y:real;
begin
Write('Введите размеры сторон сундука -> '); Readln(a,b,c);
Write('Введите диаметр иллюминатора -> '); Readln(d);
if a<b then begin
    x:=a;
    if b<c then y:=b else y:=c
end
else begin
    x:=b;
    if a<c then y:=a else y:=c
end;
if (sqr(x)+sqr(y)<sqr(d)) then Writeln('Сундук можно вытащить')
else Writeln('Сундук нельзя вытащить')
end.

Тестовое решение:
Введите размеры сторон сундука -> 3 5 3.99
Введите диаметр иллюминатора -> 5
Сундук можно вытащить

**********************
Условие попадания точки A(x,y) внутрь треугольника описывается как
$\begin {cases} x\ge 0 \\ y\ge 0 \\ y\le 5-x \end {cases} \Rightarrow \ (x\ge0) \land (y\ge0) \land (y\le 5-x)$

var
x,y:real;
begin
Write('Введите координаты x и y точки -> '); Readln(x,y);
if (x>=0) and (y>=0) and (y<=5-x) then Writeln('Да')
else Writeln('Нет')
end.

Тестовое решение:
Введите координаты x и y точки -> 3 2.5
Нет

Введите координаты x и y точки -> 2.1 2.8
Да

4,5(52 оценок)

Это интересно:

Дом-и-сад

16.05.2021

Как избавиться от пятен после постельных клопов...

Компьютеры-и-электроника

29.01.2023

О преобразовании файлов ODT в DOC и почему это важно...

Мир-работы

29.12.2021

Как успешно пройти тестирование при приеме на работу...

03.04.2021