EtoBolshayaProblema
20.09.2022 15:01

Складіть схему основних інформаційних процесів у таких інформаційних системах: а) Бібліотека школи
б) Телефонний довідник смартфона
в) Система прогнозування погоди
г) Довідникова система вакантних місць на ринку праці в місті (районі)

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
бобр04
01.09.2021 17:29

Числовые Типы:

integer - целое число в диапазоне от -2147483647 до 2147483647

longint - То же что и integer. Видимо называется так по образцу со своими младшими братьями - smallint и shortint.

BigInteger - Тоже целое число. Реализовано не совсем как тип данных (Является классом .NET Framework) И поддерживается только в новых версиях языка Pascal - PascalABC.NET. Имеет бесконечный диапазон, ограниченный лишь объёмом оперативной памяти устройства, на котором запущена программа, использующая в своей работе числа, являющиеся экземплярами BigInteger

shortint - Целочисленный тип меньшего диапазона, нежели Integer

smallint - Целочисленный тип меньшего диапазона, нежели integer, но большего чем shortint

Int64 - 64-битное целое число. Имеет самый большой диапазон среди всех целочисленных типов после BigInteger

Byte - целое беззнаковое число, занимающее в памяти компьютера ровно 1 байт. Имеет диапазон от 0 до 255

Word - Целое беззнаковое число в диапазоне от 0 до 65535

real - Действительное число. Число с плавающей точкой

double - Действительное число. Так же является числом с плавающей точкой, как и real, но отличается точностью вычислений (а вот в чью пользу - убей, не помню)

Строковые и символьные типы:

string - Unicode-строка

char - один какой либо unicode-символ

Логический тип:

boolean - логическая переменная. Может иметь только два значения - True (Истина) или False (Ложь)

Объяснение:

0,0(0 оценок)
Ответ:
ира967
23.02.2021 20:19

var

 a, b, c, v: integer;  

 s, d1, d2: real;

begin

 Writeln('Введите А: ');

 Read(a);

 Writeln('Введите Б: ');

 Read(b);

 Writeln('Введите C: ');

 Read(c);

 V := a * b * c;

 Writeln('Результат "V:=a*b*c" = ', V);

 Writeln('Введите D1: ');

 Read(d1);

 Writeln('Введите D2: ');

 Read(d2);

 s := d1 * (d2 / 2);

 Writeln('Результат "s:=d1*(d2/2)" = ', s);

end.

Более простой вариант:

begin

 var (a,b,c):= ReadInteger3('Введите А B C: ');

 Println('Результат :', a*b*c);

 var (d1,d2):=ReadReal2('Введите D1 D1: ');

 Println('Результат: ', d1*(d2/2));

end.

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