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

Написать процедуру, которая вставляет в список l действительных чисел новый элемент e1 за каждым вхождением элемента e. delhi 7 or pascal abc.net

👇
Ответ:
Ellis2034
Ellis2034
19.09.2021
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

procedure ListInsert(var L:List<real>;e,e1:real);
begin
  for var i:=L.Count-1 downto 0 do
    if L[i]=e then L.Insert(i+1,e1)
end;

begin
  var P:=new List<real>;
  Writeln('Введите последовательность чисел, завершив её нулём');
  P.AddRange(ReadSeqRealWhile(a->a<>0));
  var what:=ReadReal('Что вставить?');
  var before:=ReadReal('После чего вставить?');
  ListInsert(P,before,what);
  Writeln('Результат:');
  P.Println
end.

Пример
Введите последовательность чисел, завершив её нулём
3.8 -6.2 1.45 2.18 -6.2 14 2.7 2.18 2.18 3.8 15.4 0
Что вставить? 0.0001
После чего вставить? 2.18
Результат:
3.8 -6.2 1.45 2.18 0.0001 -6.2 14 2.7 2.18 0.0001 2.18 0.0001 3.8 15.4
4,8(52 оценок)
Открыть все ответы
Ответ:
marine25
marine25
19.09.2021
Begin
Writeln('Введите имя игрока ');
var name := ReadString;
Writeln('Введите сумму ');
var sum := ReadInteger;
while True do
begin
Writeln('Введите ставку от ', 1, ' до ', sum);
var stavka := ReadInteger;
if stavka > sum then
writeln('Ставка не может превышать имеющиеся наличные')
else
begin
sum -= stavka;
Writeln('Введите число от 1 до 36');
var number := random(1, 36);
var getnumber := ReadInteger;
if (getnumber < 1) or (getnumber > 36) then
Writeln('Неверное число. Вы потеряли ставку!')
else
if number = getnumber then
begin
Writeln('Вы угадали! Вы получаете 36х ставку');
sum += (36 * stavka);
end
else
Writeln('Не угадали. Вы потеряли ставку!')
end;
writeln;
Writeln('Имя игрока ', name);
Writeln('Текущие деньги ', sum);
writeln;
if (sum <= 0) then
begin
Writeln(name, ' , Вы Проиграли! Надеюсь, Вам повезет в следующий раз');
break;
end;
end;
end.
4,6(55 оценок)
Ответ:
nadiacolupaeva
nadiacolupaeva
19.09.2021

"Зачем человеку множество моделей?", отличное от этого: Человек в своей деятельности постоянно создает и использует модели окружающего мира. 1. Модели позволяют представить в наглядной форме объекты и процессы, недоступные для непосредственного восприятия: Физика: модели двигателей; География: глобус – модель земли(реальный размер очень большой) ; Химия – модели кристаллическая решетка, молекул (реальные размеры очень маленькие); Биология – по муляжу человека изучаем внутреннее строение2. при Проектировании механизмов и устройств, зданий, электрических цепей используют модели – чертежи и макеты. Математика – изучение объемных фигур3. Теоретические модели (для развития науки) – теории законов, гипотез и тд. Иногда создание таких моделей коренным образом меняет представления человека об окружаюжем мире: Коперник- гелиоцентрическая система мира, модель атома Резерфорда-Бора, геном человека)4. Художественное творчество - перенос реальной действительности на полотно, скульптура, театр, басня – отношения между животными – отношения между людьми

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