Расщепление файла. из текстового файла, содержащего вещественные числа, сформировать два других, в один из которых поместить значения большие, чем число, введенное с клавиатуры, в другой –меньшие. определить и вывести на экран количество элементов в каждом из получившихся файлов. примечание: результат работы с данными вывести на экран и в новые файлы. файл с входными данными имеет название input.txt для текстовых файлов. файлы, в который записывается результат, называется output1.txt и output2.txt для текстовых файлов.
109
315
Ответы на вопрос:
//pascal abc.net 3.1 сборка 1219 var f: text; c,n1,n2,i: integer; ar1,ar2: array of real; r: real; begin readln(c); assign(f,'input.txt'); reset(f); while not(eof(f)) do begin read(f,r); if r> c then begin inc(n1); setlength(ar1,n1); ar1[n1-1]: =r; end; if r< c then begin inc(n2); setlength(ar2,n2); ar2[n2-1]: =r; end; end; close(f); assign(f,'output1.txt'); rewrite(f); for i: =0 to n1-1 do if i< > n1-1 then write(f,ar1[i],' ') else write(f,ar1[i]); close(f); writeln('count of values in output1.txt: ',n1); assign(f,'output2.txt'); rewrite(f); for i: =0 to n2-1 do if i< > n2-1 then write(f,ar2[i],' ') else write(f,ar2[i]); close(f); writeln('count of values in output2.txt: ',n2); end. пример ввода: 2 содержимое input.txt: 1.5 1.75 2 2.25 2.5содержимое output1.txt: 2.25 2.5содержимое output2.txt: 1.5 1.75пример вывода: count of values in output1.txt: 2count of values in output2.txt: 2
Для цвета одного квадратика вышивки требуется log(2)8 = 3 бита. для хранения всей вышивки - 45*48*3 = 6480 бит
Популярно: Информатика
-
NickWorld09.12.2020 08:03
-
myyyrrr07.05.2020 04:15
-
lckzgizigzly17.05.2022 18:00
-
matyushin0613.07.2021 14:51
-
BakerTaka20.12.2020 05:22
-
lhukotunl06.09.2022 19:47
-
Алино4ка1501.08.2020 21:53
-
Викуха4А19.06.2023 23:03
-
mrfotuna1407.05.2023 17:00
-
igor33107.06.2020 03:56