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

Нужно сделать и скинуть фото, изза того что муторно

если не знаете украинский язык;
Создать проект для решения задачи. Два поезда выехали одновременно навстречу друг другу. Нужно найти, через какое время они встретятся, если задано значение расстояния между ними в момент начала движения и скорости движения каждого поезда.
Ход работы
1. Откройте окно среды Lazarus.
2. Создайте новый проект. Поместите на форму четыре компонента Edit, кнопку Вutton i четыре компонента Label. Измените значением свойств Font и Сaption согласно рисунку.

3. Создайте процедуру обработки события OnClicк для кнопки Button
1. Выполнение процедуры имеет привести к выводу искомого времени, если значение расстояния и скоростей движения поездов уведе- но в поля Edit. Opiентовний программный код:

4. Добавьте все файлы проекта в архив Практическая 10.rar.
5. Прикрепите архив, как ответ на тестовое задание прак- на 10.rar.

👇
Открыть все ответы
Ответ:
Алика2018
Алика2018
19.11.2020

Объяснение:

3) тут просто

var n, i: integer;

begin

for i := 1 to frac(n/2) do

write("Левая Правая ");

if n mod 2 = 1 then write("Левая");

end.

4) Чтобы скобочная последовательность была правильной, нужно, чтобы  сумма любых k первых чисел была неотрицательна и чтобы сумма всех n чисел равнялась нулю.

var current_sum, n, x, flag: int;

begin

readln(n);

flag := 1;

current_sum := 0;

for i := 1 to n do begin

readln(x);

current_sum := current_sum + x;

if (current_sum)<0 then flag := 0;

end;

if current_sum<>0 then flag := 0;

if flag = 1 then writeln("является")

else writeln("не является");

end.

4,7(86 оценок)
Ответ:
Mifka15
Mifka15
19.11.2020

Объяснение:

3) тут просто

var n, i: integer;

begin

for i := 1 to frac(n/2) do

write("Левая Правая ");

if n mod 2 = 1 then write("Левая");

end.

4) Чтобы скобочная последовательность была правильной, нужно, чтобы  сумма любых k первых чисел была неотрицательна и чтобы сумма всех n чисел равнялась нулю.

var current_sum, n, x, flag: int;

begin

readln(n);

flag := 1;

current_sum := 0;

for i := 1 to n do begin

readln(x);

current_sum := current_sum + x;

if (current_sum)<0 then flag := 0;

end;

if current_sum<>0 then flag := 0;

if flag = 1 then writeln("является")

else writeln("не является");

end.

4,5(70 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ