Содержание
- 2. var S:string; begin S:=InputBox('Ввод чисел', Введите число:', '0 '); end;
- 3. Вывод в окно сообщения ShowMessage Для вывода результата используется процедура ShowMessage(). Она выводит на экран диалоговое
- 4. ShowMessage('Введено число:'+ S);
- 5. var S:string; gradus,radian:real; begin S:=InputBox('Ввод данных', 'Введите величину угла в радианах ', '0,000'); gradus:=StrToFloat(S); radian:=gradus*pi/180; ShowMessage
- 6. Можно применять диалоговое окно при решении задач, обрабатывающих некоторые числовые последовательности. Var i,N:integer; max,X:integer; S:string; begin
- 8. Скачать презентацию