LAZARUS
Створіть проект,у якому вводяться значення елементів табличної величини з 8 цілих чисел,кожне із цих чисел збільшується на 17.
Ответы
Ответ дал:
2
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
for i := 0 to 7 do
begin
Edit[i].Text := IntToStr(StrToInt(Edit[i].Text) + 17);
end;
end;
Ответ дал:
1
Відповідь:
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
table: array[1..8] of Integer;
i: Integer;
begin
// Ввід значень елементів табличної величини
for i := 1 to 8 do
begin
Write('Введіть значення для елемента ', i, ': ');
ReadLn(table[i]);
end;
// Збільшення кожного елемента на 17
for i := 1 to 8 do
begin
table[i] := table[i] + 17;
end;
// Виведення збільшених значень елементів табличної величини
Writeln('Збільшені значення елементів:');
for i := 1 to 8 do
begin
WriteLn(table[i]);
end;
ReadLn;
end.
Вас заинтересует
4 месяца назад
4 месяца назад
4 месяца назад
4 месяца назад
2 года назад
2 года назад
7 лет назад
# Створення табличної величини
table = [4, 5, 12, 8, 3, 7, 1, 10]
# Вивід початкових значень
print("Початкова таблична величина: ", table)
# Збільшення кожного елементу на 17
for i in range(len(table)):
table[i] += 17
# Вивід збільшених значень
print("Таблична величина зі збільшеними елементами: ", table)