Свыборочным ответом. производится бросание симметричной четырёхгранной пирамидки. какое кол-во информации мы получаем в зрительном сообщении о её падении на одну из граней? а) 1 бит б) 2 бита в) 4 бита г) 1 байт
Здесь нужно использовать вс типизированный файл и, соответственно, вторую файловую переменную (fr2). Сделать это можно так: while not eof(fr) and (kol=0) do begin read(fr, Marshrut); if (Marshrut.NK.N <> '11') then write(fr2,Marshrut) else begin inc(kol); y:=Marshrut; end; end; if not eof(fr) then begin read(fr, Marshrut); write(fr2,Marshrut); end; if (kol=1) then write(fr2,y); Дальше нужно просто переписать оставшиеся записи из первого файла во второй. Затем оба файла закрыть, первый файл удалить, а второй переименовать (т.е. назвать его так, как назывался первый файл).
Попробуйте ещё вот такой вариант: (здесь k1 и k2 - целые, а y - типа ) if (Marshrut.NK.N = '11') then begin writeln('... '); inc(kol); y:=Marshrut; k1:=FilePos(fr)-1; k2:=FilePos(fr); if not eof(fr) then begin read(fr, Marshrut); seek (fr, k1); write(fr, Marshrut); seek (fr, k2); write (fr, y); end;
Информационные процессы: получение - учитель вам рассказывает новую тему, прослушивание лекций в университете создание - открытие Ньютоном новых законов, создание таблицы Менделеевым сбор - чтение книг в школьной библиотеке обработка - осмысление полученных знаний в школе накопление - запоминание формул на уроке математики, запись лекций в тетрадь хранение - память о каком-либо произведении поиск - поиск номера телефона в контактах, поиск вашего местоположения на карте метро распространение - включение музыки по радио, печатание новостей в газетах, показ телепередач по ТВ использование - решение задач с использованием формул, использование таблицы Менделеева для решения химических реакций
Вес информации об одном варианте из 4 = log(4)/log(2) = 2 бита