1.На какое количество этапов можно разделить решение задачи с компьютера. 1) 5
2) 4
3) 6
2.Запишите пропущенные слова. На этапе ... описательная информационная модель, созданная на этапе постановки задачи, записывается каким-либо формальным языком, на пример математическими формулами.
постановки задачи;
формализации задачи;
создания алгоритма;
программирования;
тестирования и отладки.
3.Какие из действий выполняются на этапе постановки задачи? *
1) Алгоритм записывается в форме блок-схемы
2) Выделяются отношения между исходными и результирующими данными
3) Проверяется работо программы
4) Выделяются исходные данные
5) Выделяются результирующие данные
4.Какие действия выполняются на этапе программирования? *
1) Проверяется, работает ли программа
2) Условие задачи записывается каким-либо формальным языком
3) Выделяются исходные и результирующие данные, а так же отношения между ними
4) Алгоритм записывается на каком-нибудь языке программирования
Первоначально люди использовали лишь средства ближней связи — речь, слух, зрение. О надвигающейся опасности можно было предупредить криком, правда, услышать его могли на расстоянии всего нескольких сот метров.
2) барабан
Звук барабана, особенно популярный среди африканских племен, был донести сигнал тревоги уже несколько километров.
3) интернет
В 1969 году в США начала функционировать первая в компьютерная сеть. Она положила начало формированию всемирной компьютерной сети Интернет (Internet), огни миллионов компьютеров, включённых в Интернет, образуют единую информационную среду, открывающую любому человеку доступ ко всему информационному богатству человечества.
4) передатчик
Рассмотрим несколько ситуаций, связанных с передачей информации.
При переходе дороги на регулируемом перекрёстке вы (приёмник информации) воспринимаете зелёный сигнал светофора (источника информации) как разрешение перейти дорогу.
5) радиосвязь
В 1895 году русский изобретатель А. С. Попов открыв радиосвязь, не требующую проводов и кабелей. Вначале радиосвязь мало чем отличалась от телеграфа.
6) морзе
До середины 20-х годов XX века использовался специальный помехоустойчивый код Морзе. Со временем были изобретены различные помехозащитной записи звука и появилась звуковая радиосвязь, в человеческий быт вошли радиоприёмники. Сегодня существует очень много мощных радиостанций. Чтобы не испытывать взаимных помех, они работают на разных радиоволнах — длинных, средних, коротких, ультракоротких и дециметровых. Но до сих пор в экстремальных ситуациях, когда существуют сильные природные помехи, используют радиотелеграфный передачи информации.
7) приёмник
В передаче информации всегда участвуют две стороны: тот, кто передаёт информацию (источник информации) , и тот, кто её получает (приёмник информации) .
8) телевидение
var i,j,k,shlth:integer;
letter:char;
name,minword,s1,x,x1:string;
f1,f2:text;
f:boolean;
arr:array [1..100] of string;
label 1;
begin
writeln('Введіть імя файлу введення:');
readln(name);
assign(f1,name); reset(f1);
writeln('Введіть імя файлу виводу:');
readln(name);
assign(f2,name); rewrite(f2);
writeln('Введіть букву для пошуку:');
readln(letter);
letter:=lowercase(letter);
j:=1;
while not eof(f1) do
begin
readln(f1,x1);
x:=lowercase(x1);
i:=1;
while (i<=length(x)) and (x[i] <> letter) do
begin
while (i<=length(x)) and (x[i] = ' ') do inc(i);
if (i<=length(x)) and (x[i] <> letter) then
while (i<=length(x)) and (x[i] <> ' ') do inc(i);
end;
if i>length(x) then
begin
writeln(f2,x1);
arr[j]:=x1;
inc(j);
end;
end;
f:=false;
for k:=1 to j do
begin
i:=1;
while (i<=length(arr[k])) and (arr[k][i] = ' ') and not f do inc(i);
if i<length(arr[k])+1 then begin f:=true; goto 1; end;
end;
1: if not f then writeln('У файлі f2 немає слова, відповідного умові вибору') else
begin
while (arr[k][i]<>' ') and (i<=length(arr[k])) do
begin
minword:=minword+arr[k][i];
inc(i);
end;
for k:=1 to j do
begin
i:=1;
while i<=length(arr[k]) do
begin
while (i<=length(arr[k])) and (arr[k][i] = ' ') do inc(i);
if i<=length(arr[k]) then begin shlth:=1; s1:=arr[k][i]; end;
while (i<=length(arr[k])) and (arr[k][i] <> ' ') do begin s1:=s1+arr[k][i]; inc(i); inc(shlth); end;
if shlth<length(minword) then minword:=s1;
end;
end;
writeln('Найкоротша слово у файлі f2: ',minword);
end;
close(f1); close(f2);
end.