2 Вопросы для размышления 1. Чем различается создание изображения в графических редакто- рах Photo-Brush и Paint.NET? 2.В чем разница между рисованием и обработкой рисунка?
Общее решение, позволяющее удалять из строк любой "мусор"
// 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.
Відновіть типовий ланцюжок передавання інформації
Ваша відповідь Вірна відповідь
Декодування
Джерело
Приймач
Кодування
Джерело
Канал зв’язку
Кодування
Декодування
Канал зв’язку
Приймач
Як людина кодує звуки своєї природної мови?
Настроєм
Рухами
Літерами і жестами
Запахами
Яким чином можна закодувати поняття?
Комп’ютером
Ієрогліфом
Символом
Дощем
QR-код - це...
Процес перетворення за певними правилами одного подання набору даних в інший
Квадратна картинка, в якій закодовано деякі відомості
Система правил для перетворення повідомлень, що містять текст, звук, зображення, жести тощо
Правильної відповіді немає
Чому незручно було передавати повідомлення, збережені первісними людьми?
Людей тоді було мало
Повідомлення були закодовані у вигляді наскельних малюнків
Первісні люди не могли приймати повідомлень
Повідомлень у часи первісних людей не було
Що таке декодування?
Сприйняття повідомлень технічними приладами
Перетворення закодованого повідомлення у форму, прийнятну для приймача
Збереження звукових повідомлень у письмовому вигляді
Передавання повідомлень від передавача до приймача
Що таке кодування?
Ввідомості про навколишній світ і явища, які в ньому відбуваються
Перетворення повідомлень у зручну для передавання, зберігання, опрацювання форму
Процес передавання, зберігання, опрацювання повідомлень
Сприйняття повідомлень органами зору, слуху, нюху, смаку та дотику
Вказати на професії пов'язані з опрацюванням даних
бухгалтери
художники
астрономи
лікарі
Установіть відповідність між сигналами і приймачами.
Варіант Ваша відповідь Правильна відповідь
Червоне світло світлофора
Водій
Водій
Жест дресирувальника
Тигр
Тигр
Свисток арбітра
Футболіст
Футболіст
Світло маяка
Капітан корабля
Капітан корабля
Як кодування звуку «А»?
Спеціальним ієрогліфом
Крапкою та тире азбуки Морзе
Літерою алфавіту «А»
Жестом семафорної азбуки
Опрацювання даних -
це процес отримання нових даних
це процес отримання нових даних з наявних
це процес отримання з наявних нових даних
Процес заміни однієї послідовності сигналів, якою подане повідомлення, іншою послідовністю сигналів називають
Відповідь:""
Правильна відповідь:"кодуванням повідомлення."
Що таке код?
Набір правил кодування повідомлень
Особливе повідомлення у письмовому вигляді
Наскельний малюнок
Інформація, збережена в комп’ютері
Объяснение:
// 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.