Продолжите фразу: «предметом изучения информатики является…» а) энергия б) вещество в) информация наука об и связи в живом организме и машине – это … а) информатика б) кибернетика в) теория информации оперирование исходной информацией по определенным правилам с целью получения новой информации – это… а) обработка информации б) поиск информации в) кодирование информации совокупность символов, используемых в некотором языке для представления информации – это… а) алфавит б) мощность алфавита в) объем информации закодируй слова с кода цезаря. установите соответствие. 1) мачта а) лпщлб 2) волос в) нбшуб 3) кошка б) пугёу 4) букет г) вфлёу 5) ответ д) гпмпт ответы 1 2 3 4 5 в д а г б сколько бит и байт составляет сообщение объемом 1/1024 мбайта а) 8192 бит, 1024 байт б) 1024 бит, 8192 байт в) 8192 бит, 2048 байт компьютерный алфавит состоит из … а) 526 символов б) 128 символов в) 256 символов десятичное число 49 в двоичной системе счисления равно а) 1110011 б) 110001 в) 11 111 г) 10 0011 двоичное число 1100 1101 в десятичной системе счисления равно а) 1213 б) cd в) 205 г) 204 какие из перечисленных идентификаторов (имен переменных) записаны с ошибкой? (выберите наиболее полный ответ) a) first б) b12 в) 5five г) бета д) z312 е) a& b определите значение целочисленной переменной х после выполнения следующего фрагмента алгоритма: напишите программу подсчета количества положительных, отрицательных чисел и чисел, равных нулю. ввод чисел с клавиатуры. укажите тип синтаксической ошибки, имеющейся в данной программе на паскале: program a2; var b2,2c: real; begin read(b2); 2c: =b2*b2 end. а) переменная описана дважды б) переменная не описана в) неверный идентификатор г) неверная константа дан оператор цикла на языке паскаль: a: =0; for i: =1 to 10 do begin a: =a+12; writeln(a+i,i); end; чему будет равно последнее значение i, выведенное на экран? а) 10 б) 120 в) 130 г) 1 перепишите следующую программу без ошибок и определите, какое значение будет иметь переменная p после выполнения программы, если с клавиатуры введено число 10? program ol; var a; b; h: integer begin writeln(‘введите число’ ); readln(a); if a=2 and a then begin b: =3; p=a*a+b*b end; else b: =5; p: =(a+b)*(a+b); writeln(‘p=’p); end
Чтение информации с монитора вызывает перенапряжение глаз. Возникает это главным образом потому, что во время чтения с монитора расстояние от текста до глаз постоянно остается одним и тем же, из-за этого мышцы глаз, регулирующие аккомодацию, находятся в постоянном напряжении. Со временем это может привести к нарушению аккомодативной глаз и, следовательно, к нарушениям зрения.
Дисплейная болезнь, характеризуется нарушением аккомодации глаз из-за длительного перенапряжения ресничного тела. Синдром сухого глаза – собирательное название заболевания вызванного нарушением увлажнения передней поверхности глаза (роговицы) слезной жидкостью. Также длительная работа за компьютером может увеличить риск таких глазных заболеваний как миопия (близорукость), дальнозоркость, глаукома.
Длительная работа на клавиатуре приводит к перенапряжению суставов кисти и мышц предплечья, что вызывает развитие туннельного синдрома запястья.
Работа за компьютером предполагает переработку большого массива информации и постоянную концентрацию внимания, поэтому при длительной работе за компьютером нередко развивается умственная усталость и нарушение внимани Человек, работающий за компьютером, вынужден все время принимать решения, от которых зависит эффективность его работы. Поэтому, длительная работа за компьютером, часто является причиной хронического стресса.
. Все чаще появляются сообщения о возникновении компьютерной зависимости. Действительно, длительная работа за компьютером, работа в Интернете и компьютерные игры могут вызвать подобные психические расстройства.
Работа за компьютером нередко поглощает все внимание работающего человека и потому, такие люди часто пренебрегают нормальным питанием и работают впроголодь весь день. Неправильное питание приводит к снижению интеллектуальных человека.
Гиподинамия, стресс, вредные привычки и неправильное питание являются основными причинами сердечно-сосудистых заболеваний и диабета. Таким образом, человек длительное время работающий за компьютером подвергается реальному риску сердечно-сосудистых заболеваний, различных заболеваний глаз, двигательного аппарата, органов желудочно-кишечного тракта, психических расстройств.
const
nDay:array[1..12] of integer=(31,28,31,30,31,30,31,31,30,31,30,31);
type
Date=record
Day,Month,Year:integer
end;
function DOW(Dat:Date):integer;
// день недели по дате. 0-Вс. 1-Пн, 7-Сб
var
a,y,m:integer;
begin
With Dat do begin
a:=(14 - month) div 12;
y:=Year-a;
m:=month+12*a-2;
DOW:=(7000+(day+y+y div 4-y div 100+y div 400+(31*m) div 12)) mod 7
end
end;
procedure DMY2Date(d,m,y:integer; var data:Date);
// Преобразует к дате заданные день, месяц и год
begin
data.Day:=d; data.Month:=m; data.Year:=y
end;
procedure LastDays(month,year:integer; var Wd,Fr:Date);
// даты последней среды (Wd) и пятницы (Fr) для месяца в году }
var
LastDay:Date;
n:integer;
begin
n:=nDay[month];
if (month=2) and (year mod 4 = 0) then Inc(n);
DMY2Date(n,month,year,LastDay);
n:=DOW(LastDay); // номер последнего дня недели
Wd.Month:=month; Wd.Year:=year;
if n<3 then Wd.Day:=LastDay.Day-(n+4)
else
if n=3 then Wd.Day:=LastDay.Day
else Wd.Day:=LastDay.Day+3-n;
Fr.Month:=month; Fr.Year:=year;
if n<5 then Fr.Day:=LastDay.Day-(n+2)
else
if n=3 then Fr.Day:=LastDay.Day
else Fr.Day:=LastDay.Day-1
end;
var
Wd,Fr:Date;
ff,mf:Text;
m:integer;
begin
Assign(ff,'father.txt'); Rewrite(ff);
Assign(mf,'mother.txt'); Rewrite(mf);
// Сентябрь-декабрь 2015 года
for m:=9 to 12 do begin
LastDays(m,2015,Wd,Fr);
if Odd(Wd.Day) then Writeln(mf,Wd.Day,'.',m,'.2015 - 1 класс')
else Writeln(ff,Wd.Day,'.',m,'.2015 - 1 класс');
if Odd(Fr.Day) then Writeln(mf,Fr.Day,'.',m,'.2015 - 5 класс')
else Writeln(ff,Fr.Day,'.',m,'.2015 - 5 класс')
end;
// Январь - май 2016 года
for m:=1 to 5 do begin
LastDays(m,2016,Wd,Fr);
if Odd(Wd.Day) then Writeln(mf,Wd.Day,'.',m,'.2016 - 1 класс')
else Writeln(ff,Wd.Day,'.',m,'.2016 - 1 класс');
if Odd(Fr.Day) then Writeln(mf,Fr.Day,'.',m,'.2016 - 5 класс')
else Writeln(ff,Fr.Day,'.',m,'.2016 - 5 класс')
end;
Close(ff); Close(mf)
end.
Содержимое выходных файлов:
father.txt
30.9.2015 - 1 класс
28.10.2015 - 1 класс
30.10.2015 - 5 класс
30.12.2015 - 1 класс
24.2.2016 - 1 класс
26.2.2016 - 5 класс
30.3.2016 - 1 класс
mother.txt
25.9.2015 - 5 класс
25.11.2015 - 1 класс
27.11.2015 - 5 класс
25.12.2015 - 5 класс
27.1.2016 - 1 класс
29.1.2016 - 5 класс
25.3.2016 - 5 класс
27.4.2016 - 1 класс
29.4.2016 - 5 класс
25.5.2016 - 1 класс
27.5.2016 - 5 класс