angelinalitvine
29.07.2020 05:34

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

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
nika0483
31.03.2021 04:44
Const n=20;
type omas=array[1..n] of integer;
Procedure Del (var z:omas; k:byte); 
var i:byte; 
begin 
for i:=k to n-1 do z[i]:=z[i+1]; 
z[n]:=0; 
end; 
var a:omas; i,b:integer;
begin
Randomize;
for i:=1 to n do
 begin
 a[i]:=random(20);
 write(a[i]:4);
 end;
writeln;
b:=6;
i:=1;
while (i<=n)and(a[i]<>b) do i:=i+1;
if i<=n then
  begin
  Del(a,i);
 writeln('Размерность массива = ',n-1);
 for i:=1 to n-1 do write(a[i]:4);
 writeln;
 end  else writeln('Массив не изменился');
end.
Пример:
  12  13   6   7  17   1  18  17   3   2  12   3  16   6   7  13   0   2   5  18
Размерность массива = 19
  12  13   7  17   1  18  17   3   2  12   3  16   6   7  13   0   2   5  18
0,0(0 оценок)
Ответ:
Vika32ytr4
11.10.2020 03:13

использовать Чертежник

алг ключ

нач

сместиться в точку (1,1)

опустить перо

сместиться в точку (2,1)

сместиться в точку (2,2)

сместиться в точку (3,2)

сместиться в точку (3,3)

сместиться в точку (7,3)

сместиться в точку (7,1)

сместиться в точку (11,1)

сместиться в точку (11,6)

сместиться в точку (7,6)

сместиться в точку (7,4)

сместиться в точку (1,4)

сместиться в точку (1,1)

поднять перо

сместиться в точку (8,2)

опустить перо

сместиться в точку (10,2)

сместиться в точку (10,5)

сместиться в точку (8,5)

сместиться в точку (8,2)

поднять перо

сместиться в точку (0,0)

кон

Объяснение:

Смотри картинку


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