очень Надо скрин на программе Составьте программы рисования символов «Е», «П», «Б», «Ч». «Ц», «Ш», а также других фигур, состоящих из горизонтальных и вертикальных отрезков. На проверку нужно прислать алгоритмы и результаты работы алгоритмов в виде скриншотов окна с отображением кодов и результатов работы.
begin Write('Введите шестнадцатиричное число: '); Readln(n); m := 0; while n[1] = '0' do delete(n, 1, 1); for i := 1 to length(n) do begin c := n[i]; case c of 'F', 'f': k := 15; 'E', 'e': k := 14; 'D', 'd': k := 13; 'C', 'c': k := 12; 'B', 'b': k := 11; 'A', 'a': k := 10; else k := Pos(c, d) - 1 end; m := 16 * m + k end; Writeln(n, '(16)=', m, '(10)') end.
Всё на скриншотах
Объяснение:
Больше 5 скринов за раз не загружает