AlexLLG
28.07.2021 14:29

Сьогодні ми з вами продовжимо вивчання системи керування базами даних MS Access. Ваше завдання на сьогодні - створити одну таблицю в базі даних за обраною тематикою. Предметну область бази даних ви можете обирати на власний розсуд, наприклад: довідник астронома, каталог фільмів, каталог комп'ютерної техніки, тощо. Після того, як ви визначились з тематикою вашої БД, створіть одну таблицю, в якій буде не менш ніж 5 записів та як мінімум одне ключове поле. До сдачі приймаються ті роботи, в яких буде два скріншоти: перший - це ваша створена таблиця в режимі конструктора, а другий - таблиця в режимі перегляду. До завдання прикріплюю допоміжні матеріали, які безумовно стануть вам в нагоді під час виконання завдання. https://youtu.be/Pc-_HNZ-FmE


Сьогодні ми з вами продовжимо вивчання системи керування базами даних MS Access. Ваше завдання на с

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Metalmekid
01.06.2022 20:55
Var a: byte; b:integer;
Begin 
writeln('Введите день месяца');
readln(b);
writeln('Введите номер месяца');   
Readln(a);    
          Case a of        
1: writeln(b,' янавря');        
2: writeln(b,' февраля');      
3: writeln(b,' марта ');        
4: writeln(b,' апреля ');      
5: writeln(b,' мая');      
6: writeln(b,' июня ');        
7: writeln(b,' июля');       
8: writeln(b,' августа');     
9: writeln(b,' сентября');     
10: writeln(b,' октября');     
11: writeln(b,' ноября');       
12: writeln(b,' декабря');     
else writeln('Месяца №', a,'нет');   
end;       
end.
0,0(0 оценок)
Ответ:
polibfbxbdbdbcb
25.09.2021 00:40
Var InFile, OutFile: text; // Вводной и выводной файлы
Var a,b,c, D, Result : Integer;
Assign(InFile, "C:\kvur.txt");
Assign(OutFile, "C:\korni.txt")
Reset(InFile)
Read(InFile,a)
Read(InFile,b)
Read(InFile, c)
D = sqr(b) + 4*a*c
if D = 0 then
Write("Уравнение не имеет корней")
Else
  Append(OutFile)
  Result:=(-b + sqrt(D)) / 2 * a
  Write(OutFile,Result)
  Write("Корень уравнения")
  WriteLn(Result)
  if (D>0) then
    Result:=(-b - sqrt(D)) / 2 * a
    Write(OutFile, Result)
    Write("Второй корень уравнения")
    Write(Result)
  End;
End.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота