Презентация на тему "Строковый калькулятор в Delphi. Строковые функции"

Презентация: Строковый калькулятор в Delphi. Строковые функции
1 из 7
Ваша оценка презентации
Оцените презентацию по шкале от 1 до 5 баллов
  • 1
  • 2
  • 3
  • 4
  • 5
3.0
1 оценка

Комментарии

Нет комментариев для данной презентации

Помогите другим пользователям — будьте первым, кто поделится своим мнением об этой презентации.


Добавить свой комментарий

Аннотация к презентации

Скачать презентацию (0.12 Мб). Тема: "Строковый калькулятор в Delphi. Строковые функции". Предмет: информатика. 7 слайдов. Для учеников 10-11 класса. Добавлена в 2016 году. Средняя оценка: 3.0 балла из 5.

Содержание

  • Презентация: Строковый калькулятор в Delphi. Строковые функции
    Слайд 1

    СТРОКОВЫЙ КАЛЬКУЛЯТОР В DELPHI. СТРОКОВЫЕ ФУНКЦИИ Авторпрезентации: Комиссарова Е.Н. МОСКВА 2010-2011 уч. год. Департамент Западного окружного управления образования ГОУ СОШ № 714

  • Слайд 2

    Размещение элементов на форме

  • Слайд 3

    Программный код. procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption:=Copy(Edit1.Text, StrToInt(Edit2.Text),StrToInt(Edit3.Text)); end;

  • Слайд 4

    procedure TForm1.Button2Click(Sender: TObject); begin Label1.Caption:='Длинастроки ='+IntToStr(Length(Edit1.Text)); end;

  • Слайд 5

    procedure TForm1.Button3Click(Sender: TObject); var i: integer; begin i:=StrtoInt(InputBox('Ввод кода','Введите код от 0 до 255',' ')); Label1.Caption:='Символкода'+IntToStr(i)+' равен '+chr(i); end;

  • Слайд 6

    procedure TForm1.Button4Click(Sender: TObject); begin Label1.Caption:='Кодсимвола'+ 'a'+'равен'+IntToStr(ord('a')); end; procedure TForm1.Button5Click(Sender: TObject); begin close; end;

  • Слайд 7

    Программный код. procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption:=Copy(Edit1.Text, StrToInt(Edit2.Text),StrToInt(Edit3.Text)); end; procedure TForm1.Button2Click(Sender: TObject); begin Label1.Caption:='Длинастроки = '+IntToStr(Length(Edit1.Text)); end; procedure TForm1.Button3Click(Sender: TObject); var i: integer; begin i:=StrtoInt(InputBox('Ввод кода','Введите код от 0 до 255',' ')); Label1.Caption:='Символкода '+IntToStr(i)+' равен '+chr(i); end; procedure TForm1.Button4Click(Sender: TObject); begin Label1.Caption:='Кодсимвола '+ 'a'+' равен '+IntToStr(ord('a')); end; procedure TForm1.Button5Click(Sender: TObject); begin close; end;

Посмотреть все слайды

Сообщить об ошибке