СДЕЛАЙТЕ СВОИ УРОКИ ЕЩЁ ЭФФЕКТИВНЕЕ, А ЖИЗНЬ СВОБОДНЕЕ

Благодаря готовым учебным материалам для работы в классе и дистанционно

Скидки до 50 % на комплекты
только до

Готовые ключевые этапы урока всегда будут у вас под рукой

Организационный момент

Проверка знаний

Объяснение материала

Закрепление изученного

Итоги урока

Проект на Lazarus «Строковый калькулятор»

Категория: Информатика

Нажмите, чтобы узнать подробности

Проект на Lazarus

 «Строковый калькулятор»

Просмотр содержимого документа
«Проект на Lazarus «Строковый калькулятор»»

 Проект на Lazarus  «Строковый калькулятор»

Проект на Lazarus

«Строковый калькулятор»

Удаление части строки S1- строка k- с какого символа обрезать l- сколько символов обрезать

Удаление части строки

  • S1- строка
  • k- с какого символа обрезать
  • l- сколько символов обрезать
Длина строки S1- строка

Длина строки

  • S1- строка
procedure TForm1.Button2Click(Sender: TObject); var s1: String;  n, m: integer; begin  s1:=Edit1.text;  n:=StrToInt(Edit3.Text);  m:=StrToInt(Edit4.Text);  Edit5.text:=UTF8Copy(s1, n, m); end;

procedure TForm1.Button2Click(Sender: TObject);

var s1: String;

n, m: integer;

begin

s1:=Edit1.text;

n:=StrToInt(Edit3.Text);

m:=StrToInt(Edit4.Text);

Edit5.text:=UTF8Copy(s1, n, m);

end;


Скачать

Рекомендуем курсы ПК и ППК для учителей

Вебинар для учителей

Свидетельство об участии БЕСПЛАТНО!