М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации

Начертить на бланке домашних заданий или в тетради структуру базы данных "Электропоезда", содержащую сведения, приведенные в таблице. Данные организовать в виде 5 таблиц: "Скорость", "Технические характеристики", "Число мест", "Длина поезда", "Поезда". Каждая таблица должна содержать не менее 4 полей с различными типами данных. Недостающие данные необходимо придумать самим. Начертить каждую таблицу базы данных в режиме аналогичном режиму Конструктора и режиму Редактирования записей.

(фото)

Запишите условия запросов:

а) поезда, количество мест у которых меньше 1100;

б) все поезда, номинальное напряжение которых равно 5 и мощность, которых равна 3540;

в) все поезда, длина которых превышает 300 или меньше 200,5 и их скорость.

В случае, если у вас есть доступ к программному обеспечению, то для выполнения задания можно использовать такие программы: Microsoft Access, Oracle Database, LibreOffice Base. В данном случае на проверку нужно прислать файл базы данных.


Начертить на бланке домашних заданий или в тетради структуру базы данных Электропоезда, содержащую

👇
Открыть все ответы
Ответ:
Uses crt;  {модуль CRT, для красоты}
var x,y:integer;  {описание переменных}
begin
write('Введи трехзначное число:'); {вывод текста на экран}
readln(x); {Чтение данных}
write('Введи любую цифру:'); {Вывод текста на экран}
readln(y);  { Чтение данных }
if (x<100) or (x>999) or (y<0) or (y>9)  {проверка условий}   
then writeln('ERROR!')  {Вывод текста, если условие соблюдено}
else  {Вариант, если в начале все числа введено верно}
    if (y=x div 100) or (y=x mod 10) or (y=x mod 100 div 10) then
       writeln ('Цифра присутствует') {Вывод текста, если условие соблюдено}
    else writeln ('Такой цифры нет');  { Вывод текста, если условие не соблюдено }
end.
4,4(15 оценок)
Ответ:
miwe10
miwe10
15.04.2021
Pascal:
var n,m:longint;
      f:boolean;
begin
  write ('Decimal: ');
  readln(n);
  write ('Number: ');
  readln (m);
  f:=true;
  while (n<>0) do
  begin
    if ((n mod 10)=m) then
      begin
       f:=true;
       break;
      end;
    n:=n div 10;
  end;
  if f then writeln ('YES!') else writeln ('NO');
  readln;
end.

C++:
#include <iostream>
using namespace std;

int main()
{
  int n,m;
  bool f = false;
  cout <<"Decimal: ";
  cin >>n;
  cout <<"Number: ";
  cin >>m;
  while (n!=0)
  {
    if ((n%10)==m)
    {
      f = true;
      break;
    }
    n/=10;
  }
  if (f)
    cout <<"YES!" <<endl;
  else cout <<"NO!" <<endl;
  return 0;
}
4,4(16 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ