1. На форму из вкладки Standart выносим кнопки Button(1шт), Label(2шт), Edit (1шт) 2. Для компонента Label1 свойство Caption пишем: Введите текст 3. Для компонента Label2 свойство Caption пишем: В тексте 4. Для компонента Edit1 свойство Text делаем пустым 5. Для компонента Button1 свойство Caption пишем: Вычислить 6. Должно получиться как на рис.1 7. Для Button1 пишем код: procedure TForm1.Button1Click(Sender: TObject); var n: integer; s: string; begin n:=length(Edit1.Text); label2.Caption:='В тексте '; if n>20 then n:=n mod 10; case n of 1:s:=' символ'; 2...
CRAZY: Всем ЛАПЕНЬ👋🤓, вещает Crazy🤟👊, не пугайтесь мое такое приветствие, мне прям нравится странно, но не банально, ладно к делу, как вы заметили у нас на канале вышла первая статья от Bruce, а теперь от меня, каждый из нас будет писать на свои темы, Bruce начал с уникальных и необычных Марак машин, впереди еще больше, а я охвачу историю зарождение и как что и где было во время появления и развития программирования как и где это применяется в наше время и до какого масштаба все доберется,
Вы готовы к безумному мощному бесконечно уникальному путешествию по миру программ, ПОЕХАЛИ...