Eclipse2345
23.02.2021 12:10

Скиньте текст програми Задання 1. Створіть програму на вході маємо два списки і ціле число, якщо введене число менше 0, то до першого списку додається другий, інакше до другого перший. 

Алгоритм роботи.

Створіть список а (значення користувач вводить сам, використовуйте структуру a = [int(i) for i in input().split()])

Створіть список b.

Створіть змінну, яку користувач також буде вводити сам (int(input(«Введіть ціле число для умови: »)))

Перевірте чи введене число менше 0. Якщо умова виконується до першого списку додати другий, інакше навпаки.

if value < 0:

    print("Результат:", a + b)

else:

    print("Результат:", b + a)

Збережіть програму та перевірте правильність її виконання.

Задання 2. Cтворіть проект Магазин одягу. Згідно умови, у магазині одягу є гнучка система зміни цін. Кожного тижня товар змінював свою ціну згідно таблиці.

Створіть проект, у якому за введеною вартістю товару можна обчислити значення ціни товару протягом кожного тижня та вивести її на екран у вигляді таблиці (списку) значень. Зверніть увагу, щоб знайти результат збільшення ціни price на 1%, виконують дію price*1.01; щоб зменшити на 1%, виконують дію price*0.99.

Завдання 3. Створити проект, у якому є 1 кнопка, 1 багаторядкове поле введення інформації та 1 напис. Ім'я користувача вводиться у текстове поле. При клацанні кнопки даний текст заноситься у напис на формі.

Завдання 4. Знайти суму додатних елементів одновимірного масиву (таблиці) всі елементи якого є цілими числами. 

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
AnaisWatterson
09.09.2022 07:17
Простейший вариант программы, предполагающий, что строка записана абсолютно верно и содержит только числа, соединенные знаком "плюс".

const
  digits=['0'..'9'];
var
  s,sn:string;
  i,err:integer;
  n,sum:longint;

begin
  Write('Введите числа, соединяя их знаком плюс: ');
  Readln(s);
  i:=2; sn:=s[1]; sum:=0;
  while i<=Length(s) do begin
    if s[i] in digits then sn:=sn+s[i]
    else begin
      Val(sn,n,err);
      sum:=sum+n;
      sn:=''
    end;
    Inc(i)
  end;
  Val(sn,n,err);
  sum:=sum+n;
  Writeln('Сумма равна ',sum)
end.

Тестовое решение:
Введите числа, соединяя их знаком плюс: 21+22+3
Сумма равна 46
0,0(0 оценок)
Ответ:
stasikpavel
30.03.2023 21:15
Предполагается, что восьмеричное число записано, как символьная строка, поскольку максимальная разрядность не была оговорена в задании.

const
  m:array['0'..'7'] of string=
      ('000','001','010','011','100','101','110','111');
  m1:array['1'..'7'] of string=
      ('1','10','11','100','101','110','111');
var
  s8,s2:string;
  i:integer;
begin
  Write('Введите восьмеричное число: '); Readln(s8);
  s2:=m1[s8[1]];
  for i:=2 to Length(s8) do s2:=s2+m[s8[i]];
  Writeln('В двоичной системе: ',s2)
end.

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