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

Вопрос по delphi 7 я делаю тестирующую программу. и хочу, чтобы по ее завершении выводилось сообщение с showmessage том, сколько я набрал. делаю так: showmessage('вы набрали '+b+' из '+v); видимо я допустил ошибку. b,v - переменные
целые. (но я пробовал и преображал в строковые с inttostr) в чем моя ошибка?

👇
Ответ:
Lenakorzyn
Lenakorzyn
04.05.2020

Странно, однако работает:

 

procedure TForm1.Button1Click(Sender: TObject);
var b,v:integer;
begin
b:=10; v:=20;
showMessage('Вы набрали '+IntToStr(b)+' из '+IntToStr(v));
end;


Вопрос по delphi 7 я делаю тестирующую программу. и хочу, чтобы по ее завершении выводилось сообщени
4,4(56 оценок)
Открыть все ответы
Ответ:

Шахматную клетку можно идентифицировать несколькими

Например, сериализовать (сделать структуру данных одномерной) и пронумеровать по-порядку, получив значения от 0 до 63 и представив их в двоичной системе счисления. Для этого потребуется 6 бит, ибо 2^6 = 64.

Другой вариант, без сериализации. Мы имеем двумерную структуру данных. Это значит, что для уникальной идентификации единицы данных нам нужно совершить как минимум два независимых измерения. Будем хранить эти измерения по-отдельности: в старших и младших битах.

Значение каждого измерения находится в диапазоне от 0 до 7. Для его кодирования достаточно 3 бит. 2^3 = 8. Мы имеем два измерения, поэтому для записи двух измерений последовательно нам потребуется 6 бит.

Оба подхода дают одинаковый по объёму результат. выбор между ними зависит от замой задачи: какой из двух представлений удобнее использовать при решении, как проще обращаться к элементам структуры, как последовательности или как к элементам на плоскости.

ответ: 6 бит.

4,4(30 оценок)
Ответ:
alekseyblohinov
alekseyblohinov
04.05.2020
Треугольник существует, если сумма длин двух любых его сторон больше длины третьей стороны.
Длина стороны может быть определена как расстояние между соответствующими сторонами треугольника:
\displaystyle L_{AB}=\sqrt{(x_B-x_A)^2+(y_B-y_A)^2

// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
type
  Point=record
  x,y:real
  end;

procedure GetPoint(c:char;var M:Point);
begin
  Write('Введите координаты точки ',c,': ');
  Read(M.x,M.y)
end;

function Dist(a,b:Point):=sqrt(sqr(b.x-a.x)+sqr(b.y-a.y));

begin
  var A,B,C:Point;
  GetPoint('A',A); GetPoint('B',B); GetPoint('C',C);
  var ab:=Dist(A,B);
  var bc:=Dist(B,C);
  var ac:=Dist(A,C);
  if (ab<bc+ac) and (bc<ab+ac) and (ac<ab+bc) then
    Writeln('Треугольник существует')
  else Writeln('Треугольник не существует')
end.

Тестовое решение:
Введите координаты точки A: -6.9 -5.3
Введите координаты точки B: 0 11.4
Введите координаты точки C: 9 3
Треугольник существует
4,7(40 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ