Алгоритм действий на псевдокоде:
пока дробная часть ≠ 0:
>>> умножить дробную часть на 2
>>> добавить цифру слева от точки к ответу
![0.375 \times 2 = 0.75 \rightarrow 0 \\ 0.75 \times 2 = 1.5 \rightarrow 1 \\ 0.5 \times 2 = 1.0 \rightarrow 1 \\ 0.375_{10} = 0.011_2](https://tex.z-dn.net/?f=%200.375%20%5Ctimes%202%20%3D%200.75%20%5Crightarrow%200%20%5C%5C%200.75%20%5Ctimes%202%20%3D%201.5%20%5Crightarrow%201%20%5C%5C%200.5%20%5Ctimes%202%20%3D%201.0%20%5Crightarrow%201%20%5C%5C%200.375_%7B10%7D%20%3D%200.011_2%20)
1. Алфавит это русский словарь букв.
Ключевые слова программирования Паскаль ,что они обозначают:and,end,nil,set,array,file,not,then,begin ,for, of, to, case, wrile,
Катя123451
And<span> (энд) - И
</span>end<span> (энд) - конец
</span>nil<span> (нил) - нуль
</span>set <span>(сет) - множество
</span>array<span> (эрей) - массив
</span>file<span> (файл) - файл
</span>not<span> (нот) - не
</span>then<span> (зен) - то
</span>begin<span> (бегин) - начало
</span>for<span> (фo) - для
</span>of<span> (оф) - из
</span>to<span> (ту) - увеличивая до
</span>case<span> (кейс) - вариант
</span>while (вайл) - пока
downto (даунту)- уменьшая до
record<span> (рикод) - запись
</span>with<span> (вис) - с
</span>function<span> (фанкшн)- функция
</span>or<span> (ор) - или
</span>type<span> (тайп) - тип
</span>const<span> (конст) - константа
</span>go to<span> (гоу ту)- переход на
</span>packed<span> (пэкт) - упаковать
</span>until<span> (антил) - до
</span>div<span> (див) - разделить
</span>if <span>(иф) - если
</span>procedure()<span> - процедура
</span>var<span> (вар) - переменная
</span>do<span> (ду) - выполнить
</span>in<span> (ин) - в
</span>program<span> (програм) - программа
</span>else<span> (элс) - иначе
</span>mod<span> (мод) - модуль
</span>repeat<span> (рипит) - повторять</span>
Uses Crt;
Const
N = 10;
Var
f:text;
S:string;
A:array[1..N] of longint;
i,j,k:integer;
Begin
ClrScr;
WriteLn('Введите имя файла текстового, если он лежит в папке с программой(ВходнойФайл.txt)');
WriteLn('Или введите полное имя файла (C:\...\ВходнойФайл.txt)');
ReadLn(S);
Assign(f,S);
Reset(f);
i:=1;
Repeat
Read(f,A[i]);
i:=i+1;
Until i>N;
Write('Содержимое файла:');
For i:= 1 to N do
Write(' ',A[i]);
WriteLn;
Write('Уникальные элементы:');
For i:= 1 to N do
Begin
k:=1;
For j:= 1 to N do
if i<>j then
if A[i]=A[j] then k:=k+1;
if k=1 then Write(' ',A[i])
End;
ReadLn;
End.
Пример:
Введите имя файла текстового,если он лежит в папке с программой(ВходнойФайл.txt)
Или введите полное имя файла (C:\...\ВходнойФайл.txt)
123.txt
Содержимое файла: 1 2 13 5 2 1 3 17 19 21
Уникальные элементы: 13 5 3 17 19 21
Под алфавитом<span> следует понимать набор букв, знаков препинания, цифр, скобок и др. символов, используемых в тексте. В алфавит также следует включить и пробел, т. е. пропуск между словами</span>