Дано целое число. Если оно является положительным, то прибавить к нему 1 ; если отрицательным, то вычесть из него 7; если нулевым, то заменить его на 12. Вывести полученное число.
program zadaca;
var
begin
writeln('Введи число a');
readln(a);
if a > =0 then
if a=0 then a:=12 else a:=a+1
else a:=a-7;
writeln(a);
readln;
end.
program zadaca;
var
a: integer;
begin
writeln('Введи число a');
readln(a);
if a > =0 then
if a=0 then a:=12 else a:=a+1
else a:=a-7;
writeln(a);
readln;
end.
program zadaca;
var
a: integer;
begin
writeln('Введи число a');
readln(a);
if a > =0 then
if a=0 then a:=12 else a:=a+1
else a:=a-7;
end.
Известно, что наибольший объём информации физически здоровый человек получает при б) органов зрения;
Укажите «лишний» объект с точки зрения вида письменности: в) китайский язык;
По форме представления информацию можно условно разделить на следующие виды: г) визуальную, аудиальную, тактильную, обонятельную, вкусовую;
Дискретизация информации - это: в) процесс преобразования информации из непрерывной формы в дискретную;
Дайте самый полный ответ.При двоичном кодировании используется алфавит, состоящий из: г) любых двух символов (не вполне уверена);
В какой строке единицы измерения информации расположены по возрастанию? г) бит, байт, килобайт, мегабайт, гигабайт;
Объём сообщения равен 11 Кбайт. Сообщение содержит 11 264 символа. Какова мощность алфавита, с которого записано сообщение? в) 256, т.к. мощность алфавита можно найти по формуле 2^i. i = 11 * 1024 * 8 / 11264 = 8 бит, 2^8 = 256.;
Дан текст из 600 символов. Известно, что символы берутся из таблицы размером 16 х 32. Определите информационный объём текста в битах. г) 5400, т.к. дано: 600 символов; размер таблицы равен 16*32=512; 512=2^i=2^9, 9 бит приходится на 1 символ. Всего бит: 600*9=5400;
Два текста содержат одинаковое количество символов. Первый текст составлен из символов алфавита мощностью 16, а'второй текст - из символов алфавита мощностью 256. Во сколько раз количество информации во втором тексте больше, чем в первом? б) в 2 раза, т.к. на символ в алфавите с мощностью 16 требуется 4 бита (2^4 степени), а на символ алфавита мощностью 256 требуется 8 бит (2^8), 8/4=2.
Информационные процессы — это: в) процессы сбора, хранения, обработки, поиска и передачи информации;
В какой строке верно представлена схема передачи информации? б) источник → кодирующее устройство → канал связи → декодирующее устройство → приёмник.
tR = real;
tF = file of tR;
procedure SwapFile(fn1, fn2: string);
var
r: tR;
fin, fout: tF;
begin
Assign(fin, fn1); Reset(fin);
Assign(fout, fn2); Rewrite(fout);
while (not Eof(fin)) do begin Read(fin, r); Write(fout, r) end;
Close(fin); Close(fout)
end;
var
f1, f2, f3, f4, f5, fh: string;
begin
f1 := 'f1.bin'; f2 := 'f2.bin'; f3 := 'f3.bin';
f4 := 'f4.bin'; f5 := 'f5.bin'; fh := 'tmp.bin';
{ f2 <-> f4 }
SwapFile(f2, fh); SwapFile(f4, f2); SwapFile(fh, f4);
{ f5->h, f3->f5, f1->f3, h->f1 }
SwapFile(f5, fh); SwapFile(f3, f5); SwapFile(f1, f3); SwapFile(fh, f1)
end.
Для тестирования
Можно создать тестовые файлы с следующей программы:
type
tR = real;
tF = file of tR;
procedure WF(fn: string; m, n: integer);
var
fout: tF;
i: integer;
begin
Assign(fout, fn); Rewrite(fout);
for i := m to n do Write(fout, i / 2);
Close(fout)
end;
var
f1, f2, f3, f4, f5: string;
begin
f1 := 'f1.bin'; f2 := 'f2.bin'; f3 := 'f3.bin';
f4 := 'f4.bin'; f5 := 'f5.bin';
WF(f1, 3, 7); WF(f2, 11, 19); WF(f3, -6, 9); WF(f4, 0, 11); WF(f5, 14, 22);
end.
Далее можно просмотреть содержимое созданных файлов с следующей программы:
type
tR = real;
tF = file of tR;
procedure WF(fn: string);
var
fin: tF;
r: tR;
begin
Writeln(fn);
Assign(fin, fn); Reset(fin);
while (not Eof(fin)) do
begin Read(fin, r); Write(r:0:1, ' ') end;
Writeln;
Close(fin)
end;
var
f1, f2, f3, f4, f5: string;
begin
f1 := 'f1.bin'; f2 := 'f2.bin'; f3 := 'f3.bin';
f4 := 'f4.bin'; f5 := 'f5.bin';
WF(f1); WF(f2); WF(f3); WF(f4); WF(f5)
end.
Затем выполнить основную программу по перезаписи и снова запустить программу для просмотра обновленнных файлов.