![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Добрый день. Дали несколько заданий на выполнение. Учусь дистанционно. У преподавателя спросить не как. Писал в универ, о том что нужна помощь, проигнорили. Это я пишу для тех то будет просто флудить. Один раз мне у вас тут уже помогли, за что огромное спасибо. На других форумах просто засирали.
Вот описание задания. ------------------------ Задание 3 Численные значения переменных следует преобразовать в строки и только после преобразования выводить в компонент Memo. Для преобразования переменных типа Real в переменную типа строка используется функция FloatToStr(). Слово Float обозначает переменную с плавающей запятой любого типа (тип Real один из многих типов таких переменных с дробной частью). В круглых скобках записывается имя численной переменной, которую преобразуют в строку. Скопируйте строку вывода и вставьте после второй строки вывода в поле Мемо. В круглых скобках функцию преобразования в строку значения переменной Unom. Сохраните программу, запустите на исполнение и убедитесь, что в поле вывода появилось число, которое соответствует номинальному напряжению. Вывод в одну строку в поле вывода можно сделать, если сложить несколько строк. Сложение строк называется командой конкатенации и обозначается символом сложения (+). В раздел описания переменных добавьте имя переменной типа строка, например, str3. Допишите в код процедуры следующую строку: str3:=str1+FloatToStr(Unom)+str2; и выведите её в поле вывода. После запуска программы, посмотрите правильно ли сделан вывод. Выведите в поле вывода значение Snom одной строкой с обозначением имени переменной, её числовым значением и единицей измерения. ----------------------------- Вот код программы Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var Unom, Snom: Real; str1, str2, str3: string; begin Unom:=10.5; {íîìèíàëüíîå íàïðÿæåíèå â êÂ} Snom:=25000; {ïîëíàÿ ìîùíîñòü â êÂÀ} str1:= 'Unom= '; str2:= 'kB'; Memo1.Lines.Add(str1); Memo1.Lines.Add(str2); FloatToStr(Unom); str3:=str1+FloatToStr(Unom)+str2; end; end. И вот что только выводиться ![]() |