Ввод данных из диалогового окна в среде Lazarus

Слайд 2

var
S:string;
begin
S:=InputBox('Ввод чисел', Введите число:', '0 ');
end;

var S:string; begin S:=InputBox('Ввод чисел', Введите число:', '0 '); end;

Слайд 3

Вывод в окно сообщения ShowMessage

Для вывода результата используется процедура ShowMessage(). Она выводит на

Вывод в окно сообщения ShowMessage Для вывода результата используется процедура ShowMessage(). Она
экран диалоговое окно с текстом и командной кнопкой OK.
Общий вид инструкции вызова процедуры ShowMessage:
ShowMessage('Сообщение');
где Сообщение – текст, который будет выведен в окне.

Слайд 4

ShowMessage('Введено число:'+ S);

ShowMessage('Введено число:'+ S);

Слайд 5

var
S:string;
gradus,radian:real;
begin
S:=InputBox('Ввод данных', 'Введите величину угла в радианах ', '0,000');
gradus:=StrToFloat(S);
radian:=gradus*pi/180;

var S:string; gradus,radian:real; begin S:=InputBox('Ввод данных', 'Введите величину угла в радианах ',
ShowMessage ('Величина угла в градусах ' +FloatToStr(radian));
end;

Пример

Слайд 6

Можно применять диалоговое окно при решении задач, обрабатывающих некоторые числовые последовательности.

Var
i,N:integer;
max,X:integer;
S:string;
begin
S:=InputBox('Ввод количества элементов',

Можно применять диалоговое окно при решении задач, обрабатывающих некоторые числовые последовательности. Var
'Введите количество элементов в последовательности', '0');
N:=StrToInt(S);
//Ввод первого элемента последовательности.
S:=InputBox('Ввод элементов последовательности' , 'Введите число.','0');
X:=StrToInt(S);
//Предположим, что 1-й элемент максимальный.
max:=X; //Параметр цикла принимает стартовое значение i=2, т.к. первый элемент уже введен.
for i:=2 to N do
Begin //Ввод следующих элементов последовательности.
S:=InputBox('Ввод элементов последовательности' , 'Введите число.','0');
X:=StrToInt(S);
//Если найдется элемент превышающий максимум, записать его в ячейку Max – теперь он предполагаемый максимум.
if X>max then max:=X;
end;
ShowMessage('Значение наибольшего элемента - ' +IntToStr(max)); //Вывод наибольшего элемента.
end;
Имя файла: Ввод-данных-из-диалогового-окна-в-среде-Lazarus.pptx
Количество просмотров: 44
Количество скачиваний: 0