в середовище розробки програмного забезпечення Python створити проект, який відкриває вікно та при натискання правою кнопкою миші по області вікна воно зменшить свої розміри вдвічі і змінить колір фону на зелений, а також: виведе вікно повідомлення з заголовком "Повідомлення" та текстом "Віднови мене". Після подвійному клацанні на області вікна всі зміни скасовуються та виводиться вікно Повідомлення з текстом "Відновлено". Увага! Під час роботи з комп'ютером дотримуйтесь правил безпеки життєдіяльності. Хід виконання 1. Відкрийте середовище розробки програмного забезпечення IDLE та створіть новий файл. 2. Підключити модуль tkіntеr. 3. Викликати модуль messagebox. 4. Створити вікно 5. Надати заголовок створеному вікну. 6. Задати розміри створеному вікну 7. Встановити колір тла створеного вікна 8. Створити першу функцію яка: а) зменшить розміри вікна вдвічі б) встановить зелений колір фону вікна в) виведе вікно Повідомлення "Повідомлення" та текстом "Віднови мене" 9. Створити другу функцію яка: а) відновить розміри вікна б) встановити попередній колір фону вікна в) виведе вікно Повідомлення заголовKOM "Повідомлення" та текстом "Відновлено" 10. Методом bind створити Подію з викликом першої функції 11. Методом bind Створити Подію з викликом другої функції 3 заголовком 3
Общее решение, позволяющее удалять из строк любой "мусор"
// PascalABC.Net 3.0, сборка 1066 procedure CheckString(var s:string; var n:integer); var i:integer; begin i:=Length(s); while i>0 do begin if not(s[i] in ['a'..'z']) then Delete(s,i,1); Dec(i) end; n:=Length(s) end;
var s1,s2:string; i,p,n1,n2:integer; begin Write('Введите первую строку: '); Readln(s1); CheckString(s1,n1); if n1=0 then Writeln('Введенная строка не содержит допустимых символов') else begin Write('Введите вторую строку: '); Readln(s2); CheckString(s2,n2); if n2=0 then Writeln('Введенная строка не содержит допустимых символов') else { теперь обе строки содержат только маленькие латинские буквы } if n1=n2 then begin for i:=1 to n1 do begin p:=Pos(s1[i],s2); if p=0 then Break else Delete(s2,p,1) end; if Length(s2)=0 then Writeln('Решение имеется') else Writeln('Решения нет') end else Writeln('Решения нет'); end end.
Тестовое решение: Введите первую строку: this is my own deal! Введите вторую строку: Тест: *is now=l2ead my sthi? Решение имеется
Также имеется современное решение, которому пока что в школах не учат: // PascalABC.Net 3.0, сборка 1066 begin var s1:=ReadString('Введите первую строку: ').Where(x->x in ['a'..'z']); if s1.Count=0 then Writeln('Введенная строка не содержит допустимых символов') else begin var s2:=ReadString('Введите вторую строку: ').Where(x->x in ['a'..'z']); if s2.Count=0 then Writeln('Введенная строка не содержит допустимых символов') else if s1.Except(s2).Count>0 then Writeln('Решения нет') else Writeln('Решение имеется') end end.
Описание рабочего проекта Рабочий проект - полное и окончательное решение объмно-планировочного характера, используемое для строительства зданий и сооружений. Одновременно Рабочий проект является комплектом документов, требуемых для застройки участка застройщиком.
Это необходимые расчеты конструкции сооружения с учетом всех строительных норм и правил (СНиП), ГОСТа, ДБН.
Рабочий проект является основой работы строительной организации, которая выполняет строительство объекта и является необходимым для ввода здания в эксплуатацию.
Он обычно состоит из трёх частей:
I Утверждаемая часть Расчеты характеристик и технико-экономических показателей здания. Здесь указывается соответствие Рабочего проекта нормам и госстандартам, чтобы потом пройти в органах государственного надзора проверку и утверждение с выдачей разрешительных докеументов на начало строительства.
II Архитектурный проект Еще называют Эскизным проектом (необязательно входит в состав Рабочего проекта и обычно исполняется в виде отдельного проекта)
Соответствие проектируемого объекта окружающим зданиям - оно не должно нарушать окружающую архитектуру, выбиваться из окружающей среды. Это версия объемного начертательного вида здания и подлежит отдельному согласованию с органами архитектуры и градостроительства. В него входят: план здания, наружные размеры здания, внутренние и поэтажные размеры с указание внутренней планировки, в цветном исполнении внешний вид объекта.
III Рабочая документация Строительные рабочие чертежи служат основой для процесса выполнения строительных работ. Они включают в себя геометрические начертания зданий, узлы и конструкции фундаментов, стен, перекрытий и кровли. В состав рабочей документации обычно входит:
пояснительная записка по основным разделам генплана (генеральный план, градостроительная часть проектирования экстерьера и прилегающей территории) и сам генплан может выполняться отдельнам проектом ситуационный план в масштабе 1:5000 генеральный план участка на топографической основе в масштабе 1:500(может выполняться отдельным проектом) план благоустройства территории, план дорожных покрытий план организации рельефа, вертикальная планировка АР (Архитектура) план этажей фасады разрезы кладочный план план кровли узлы по конструкциям стен, перекрытий, кровли экспликация полов спецификация дверных и оконных проемов план фундаментов планы и узлы перекрытий, фундамента, полов, лестниц схематическое изображение индивидуальных конструктивных решений план кровли, каркаса планы трасс внутриплощадочных сетей и сооружений к ним колоны, балки приямки, подпольные каналы для смежников (каналы для коммуникаций). планы отопления, теплых полов, вентиляции планы систем водопровода и канализации предусмотренные в проекте места установки устройств воздухоочистки и кондиционирования воздух вентиляция, кондиционирование разработка электрических, сантехнических сетей и отопления
// PascalABC.Net 3.0, сборка 1066
procedure CheckString(var s:string; var n:integer);
var
i:integer;
begin
i:=Length(s);
while i>0 do begin
if not(s[i] in ['a'..'z']) then Delete(s,i,1);
Dec(i)
end;
n:=Length(s)
end;
var
s1,s2:string;
i,p,n1,n2:integer;
begin
Write('Введите первую строку: '); Readln(s1);
CheckString(s1,n1);
if n1=0 then Writeln('Введенная строка не содержит допустимых символов')
else begin
Write('Введите вторую строку: '); Readln(s2);
CheckString(s2,n2);
if n2=0 then Writeln('Введенная строка не содержит допустимых символов')
else
{ теперь обе строки содержат только маленькие латинские буквы }
if n1=n2 then begin
for i:=1 to n1 do begin
p:=Pos(s1[i],s2);
if p=0 then Break
else Delete(s2,p,1)
end;
if Length(s2)=0 then Writeln('Решение имеется')
else Writeln('Решения нет')
end
else
Writeln('Решения нет');
end
end.
Тестовое решение:
Введите первую строку: this is my own deal!
Введите вторую строку: Тест: *is now=l2ead my sthi?
Решение имеется
Также имеется современное решение, которому пока что в школах не учат:
// PascalABC.Net 3.0, сборка 1066
begin
var s1:=ReadString('Введите первую строку: ').Where(x->x in ['a'..'z']);
if s1.Count=0 then
Writeln('Введенная строка не содержит допустимых символов')
else begin
var s2:=ReadString('Введите вторую строку: ').Where(x->x in ['a'..'z']);
if s2.Count=0 then
Writeln('Введенная строка не содержит допустимых символов')
else
if s1.Except(s2).Count>0 then Writeln('Решения нет')
else Writeln('Решение имеется')
end
end.