MrGromFull
27.05.2022 04:13

Створити проекти
1)Знайтии суму цілих додатних чисел більших 30, кратних 7 і менших 100. Вивести повідомлення про суму таких чисел та їх кількість.
2)Створіть проект для розв’язування задачі: Перед початком повені рівень води у річці становив Н метрів. Під час повені кожну годину рівень води зростав на Р відсотків від рівня попередньої години. Яким буде рівень води через N годин після початку повені? Через скільки годин після початку повені рівень води буде не менше, ніж К метрів?
Розмістіть на формі поля для введення початкових даних, написи із текстами, що будуть пояснювати призначення полів, і три кнопки.
Установіть на першій кнопці напис Завдання 1, на другій – Завдання 2, на третій – Спочатку, у полів – порожній текст.
Складіть обробник події Click для першої кнопки, виконання якого приведе до виведення у вікно повідомлення відповіді на перше завдання задачі.
Виконайте проект і переконайтеся, що результати його роботи правильні.
Складіть обробник події Click для другої кнопки, виконання якого приведе до знаходження відповіді на друге завдання задачі і виведення його в окремий напис.
Виконайте проект і переконайтеся, що результати його роботи правильні.
Складіть обробник події Click для третьої кнопки, виконання якого призведе до очищення тексту у полях та написі з відповіддю на друге завдання задачі.
3)Визначити площі 5 кругів. Радіус першого дорівнює 3 метри, а радіус кожного наступного збільшується на 2 метри.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
1. Ручная прокрутка алгоритма

F₀ = 1; F₁ = 1;
F₂ = F₁×F₀+2 = 1×1+2=1+2 = 3;
F₃ = F₂×F₁+2 = 3×1+2 = 3+2 = 5;
F₄ = F₃×F₂+2 = 5×3+2 = 15+2 = 17;
F₅ = F₄×F₃+2 = 17×5+2 = 85+2 = 87

ответ: 87

2. Программное решение с использованием итерации

// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
begin
  var f:array[0..5] of integer;
  f[0]:=1; f[1]:=1;
  for var i:=2 to 5 do f[i]:=f[i-1]*f[i-2]+2;
  Writeln(f[5])
end.

Результат выполнения программы
87

3. Программное решение с использованием рекурсии

// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
function f(n:integer):integer;
begin
  if n<2 then Result:=1
  else Result:=f(n-1)*f(n-2)+2
end;

begin
  Writeln(f(5))
end.

Результат выполнения программы
87
0,0(0 оценок)
Ответ:
olgasuponeva
28.02.2022 11:04
// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
begin
  // общая часть
  var a:=ReadArrInteger('Массив:',ReadInteger('n='));
  var b:=ReadInteger('b=');
  // часть для задачи 1
  var i:=a.IndexOf(b);
  if i<0 then Writeln('Нет совпадений')
  else WritelnFormat('1. A[{0}]={1}',i+1,a[i]);
  // часть для задачи 2
  Writeln('2. k=',a.Where(x->x=b).Count);
  // часть для задачи 3
  var s:=a.Select((x,i)->x=a[i+1:a.Length].Sum).ToArray;
  var k:=s.IndexOf(True);
  if k>=0 then WritelnFormat('3. A[{0}]={1}',k+1,a[k])
  else Writeln('3. Не существует')
end.

Тестовое решение:
n= 10
Массив: -9 21 0 -9 21 6 -2 14 18 -15
b= -9
1. A[1]=-9
2. k=2
3. A[5]=21
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота