Делфи. Разработать приложение, в котором вводить с клавиатуры в поле Edit любые строчные и прописные латинские буквы, а на ввод остальных символов и повторный ввод разрешенных символов ввести запрет
Саша- Самойлов Володя- Левин Миша- Петриков (т.к только хозяин дома достанет гербарий из своего шкафа) Юра- Богачёв
номер 2
переливаем 2 литра в 2-ух литровую банку из 6-ти литровой (1 переливание) (получилось и у той и у другой мёда по 3 литра) Из двух литровой доливаем литр, который вмещается в 4-ёх литровую банку (2 переливание) последний литр из 2-ух литровой переливаем в 6ти литровую (3 переливания)
почему-то решилось за 3 переливания
номер 3
2,4,8,10,20,22,44,46...
Прибавление 2, умножение на 2, прибавление 2 и так далее
3,6,12,15,30, 33...
Прибавление 3, умножение на 2, прибавление 3 и т.д
1,3,4,12,13, 39, 40, 120, 121...
Умножение на 3, прибавление 1, умножение на 3 и т.д
// PascalABC.NET 3.2, сборка 1427 от 24.04.2017 // Внимание! Если программа не работает, обновите версию!
begin var m:=ArrRandom(ReadInteger('n='),-20,20); m.Println; (var k,var s):=(0,0); for var i:=1 to m.Length-2 do if (m[i]<m[i-1]) and (m[i]<m[i+1]) then (k,s):=(k+1,s+m[i]); Writeln('Свойство А: кол-во=',k,', сумма=',s); var mb:=m.Where(x->x<0).ToArray; Write('Свойство Б: '); mb.Println; var z:=ReadInteger('Z1='); var mmin:=m.Min; m.Transform(x->x=mmin?z:x); Writeln('Свойство B:'); m.Println; m.Sort; Writeln('Упорядоченность по неубыванию:'); m.Println; var p,q:integer; Write('Введите P Q: '); Read(p,q); m:=m.Where(x->(x mod p<>0) and (x mod q<>0)).ToArray; Writeln('Свойство Г:'); m.Println; z:=ReadInteger('Z2='); p:=m.FindIndex(x->x>=z); if m[p]<>z then m:=(m[:p]+Arr(z)+m[p:]).ToArray; Writeln('После попытки вставки:'); m.Println end.
В событии Edit1KeyPress элемента Edit1 пропиши указанный код:
//
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var islegal: bool;
begin
if Key in ['A'..'Z']+['a'..'z'] then islegal := true;
if pos(Key, Edit1.Text) <> 0 then islegal := false;
if not(islegal) then Key:=#0;
end;
//
или готовый проект во вложении...
только переименуй файл proj1.txt в proj1.zip (этот сайт не дает архивы прикреплять)
Объяснение: