Анализ Создайте и оформите программу, которая выводит таблицу значений функции y = -2,4х? + 5х – 3 в диапазоне от -2 до 2 с шагом 0,5. Ниже приведен рекомендуемый вид экрана программы (рис. 93).
while (rule = true) do begin k := k + 1; tmp := a1 + k * d;
if (tmp < 50) then max := tmp
else rule := false;
end;
sum := (a1 + max) / 2 * k;
Writeln(); Writeln('Сумма = ', sum);
End.
Программа будет работать только для арифметических прогрессий, например, таких, как последовательность из задания. Вводить нужно 2 целых числа (первые два члена прогрессии) через пробел (в вашем случае 4 и 7)
Сетевая паутина Оплела весь белый свет. Не пройти детишкам мимо. Что же это? интернет
like 5 0 dislike Он знает всё и даже больше, И к нам на поспешит. Любой вопрос, пусть очень сложный, Мгновенно с лёгкостью решит. Плетёт свою он паутину, Хотя, по сути, не паук. Он видит всё. Вы догадались? А, ну-ка, что это за друг? интернет
like 2 0 dislike Это будто паутина, В ней найдёшь ты всё о всех: О животных, о машинах, Будет дождь сегодня, снег? Всё про мир и о планете Прочитаешь в... интернете
like 4 0 dislike Её называют всемирная сеть, Чего в этой сети только нет! Она всё расскажет и даже покажет. Она называется как?... интернет
like 2 0 dislike Он всех нас объединяет, Обо всём на свете знает, Он кино тебе покажет, Обо всём тебе расскажет. интернет
like 4 0 dislike В нём есть игры и соцсети, Фильмы, почта, курс валют. Есть все новости планеты, В нём танцуют и поют. интернет
like 8 0 dislike Средство связи редким было, А сейчас — у всех оно. Вот уже беспроводное, Раньше — оптоволокно. интернет
Var
a1, a2, d, k, max, tmp: integer;
sum: real;
rule: boolean;
Begin
Writeln('Введите а1 и а2');
Readl(a1, a2);
k := 2;
d := a2 - a1;
rule := true;
while (rule = true) do
begin
k := k + 1;
tmp := a1 + k * d;
if (tmp < 50) then
max := tmp
else
rule := false;
end;
sum := (a1 + max) / 2 * k;
Writeln();
Writeln('Сумма = ', sum);
End.
Программа будет работать только для арифметических прогрессий, например, таких, как последовательность из задания. Вводить нужно 2 целых числа (первые два члена прогрессии) через пробел (в вашем случае 4 и 7)