Обрый день пож-та составить приложение в среде Delphi, рассчитывающую функцию y(x) в зависимости от введенного параметра А. Программа должна содержать:
1. Оператор выбора Case .. of;
2. Три-четыре вида оператора цикла;
3. Поясняющие комментарии к тексту программы;
4. Поясняющие надписи к визуальным компонентам, расположенным на форме;
5. Форму с компонентами;
6. Верхнее меню;
7. Контекстное меню;
8. Диалоговые окна;
В программе предусмотреть:
1. Запрос на подтверждение пользователем выхода из программы
2. Значение параметра А вводит или выбирает пользователь
Компонент для ввода А:
Ввод Edit
Вывод ListBox
3. Полученные значения y(x) записываются в массив
4. Значение массива y(x) и X выводятся в компонент
5. Верхнее меню компонента (Main Menu) содержит: выход из программы, расчет y(x) и выбор критерия для расчета.
Критерии:
Максимальный элемент массива
Минимальный элемент массива
Сумма всех элементов массива
Произведение всех элементов массива
Сумма всех отрицательных элементов массива
Произведение всех отрицательных элементов массива
Сумма всех положительных элементов массива
Произведение всех положительных элементов массива
Вывод рассчитанных критериев осуществляется с диалогового окна (Application.MessageBox)
Вывод всех положительных элементов массива
Вывод всех отрицательных элементов массива
Вывод всех отрицательных и положительных элементов массива осуществляется в компонент Memo
Если положительные или отрицательные элементы при расчете соответствующего критерия отсутствует предусмотреть вывод сообщения об их отсутствии.
6.Невозможность расчета y(x) при не введенном А
7.Невозможность расчета критериев без рассчитанной y(x)
8.Все функции верхнего меню дублируются в контекстном меню (PopupMenu)

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

mogilastaaalena

07.11.2020 20:12

Сколько символов в текстовом редакторе...

славка23

19.03.2020 23:34

Здравствуйте, кто разбирается в информатике Две программы, нужно сделать в Паскаль....

sergei19671

16.05.2022 07:56

Ежемесячная стипендия студента составляет А р., а расходы на проживание превышают стипендию и составляют В р. в месяц. Рост цен ежемесячно увеличивает расходы на 3%. Разработать...

niloybasak0

25.08.2020 08:50

Определите значение переменной c после выполнения следующего фрагмента программы: А) a := -4; b := 12; b := b + a*2; если a b то c := a + b иначе c := b – a; Б) a := -4; b :=...

dasha240417

18.05.2021 04:02

(pascal abc.net ) составьте программу: дано 5-ти значное число (78906) с div и mod нужно выделить цифры из числа....

danilkatsurkan23

12.06.2022 14:18

Подскажите бесплатных ботов для пиар списков надо. ...

zaharuch

18.05.2021 04:02

1) напишите программы, которые в зависимости от введенного числа либо вычисляют функцию, либо сообщение, что функция не определена. а) y=1/x б)y=корень из x^2-1 2)напишите программу,...

1234567891241

04.07.2022 19:45

Какому обьекту соответствует предложеная модель ? 3-D реактор ...

199535

14.10.2020 03:06

Что происходит с качеством векторного рисунка при увеличении масштаба...

Ликааааааааап

26.06.2022 11:16

Имеется три отрезка длинной a, b и c.Напишите функцию, которая будет по длине отрезков определять, можно ли из них построить треугольник. Известно, что треугольник может быть...

Ответ:

LisenokHan

07.10.2021 11:04

1.
var
a:integer;
begin
write('Введите целое число : ');
readln(a);
if a>0 then
writeln('Число - положительное ') else
writeln('Данное число не является положительным ');
if a=0 then
writeln('Число равно нулю');
readln;
end.

2.
var
a:integer;
begin
write('Введите целое число : ');
readln(a);
if a>0 then
writeln('Число - положительное ') else
writeln('Данное число не является положительным ');
readln;
end.

3.
var
a,b:integer;
begin
write('Введите два числа : ');
readln(a,b);
if a>b then
writeln(a,#10,b) else
writeln(b,#10,a);
readln;
end.

4.
var
a, b: integer;
begin
writeln('Введите два числа');
readln(a, b);
if a < b then writeln('Порядковый номер меньшего числа = 1');
if b < a then writeln('Порядковый номер меньшего числа = 2');
if a = b then writeln('Числа равны');
end.

5.
var
a:integer;
begin
write('Введите число: ');
readln(a);
if a>0 then
writeln(a);
if a<0 then
writeln(a*-1);
readln;
end.

6.
var
a,b,c,n:real;
begin
writeln('Введите три числа : ');
readln(a,b,c);
n:=a;
if b<n then
n:=b;
if c<n then
n:=c;
writeln('Меньшее из введённых чисел : ',n);
readln;
end.

0,0(0 оценок)

Ответ:

Анастасия54546

28.01.2021 18:02

1. Базы данных — это:
A) информационные структуры, хранящиеся во внешней памяти;
методом исключения

2. В коробке меньше 9, но больше 3 шаров. Сколько шаров может быть в коробке?
D) 5

3. Какие атрибуты (признаки) объекта должны быть отражены в информационной модели, описывающей хобби ваших одноклассников, если эта модель позволяет получить ответы на следующие вопросы:
- Каков возраст всех детей, увлекающихся компьютером?
- Каковы имена девочек, увлекающихся пением?
- Каковы фамилии мальчиков, увлекающихся хоккеем?
E) фамилия, имя, пол, возраст, хобби?
методом исключения

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку