14.05.2012, 19:25 | #1 (ссылка) |
Новичок
Регистрация: 24.01.2010
Сообщений: 153
Репутация: 1
|
Помогите школьнику.
Прошу вас,дорогие программисты.во первых надо сделать блок-схемы к уже сделанным задачам(Скину чуть позже минут через 10). и объяснить две задачи:
3. Задан двумерный массив, состоящий из нулей и единиц. Необходимо высчи- тать наибольший по площади прямоугольник, состоящий из единиц и под- светить (выделить) его. 0100101 0101110 0011110 Площадь наибольшего прямоугольника в данном примере 2х3=6 (две строки по 3 единицы). 4. Напишите программу, которая будет переводить число из любой системы счисления в любую другую систему счисления (от двоичной до шестнадцатеричной). Буду при много благодарен вам, Товарищи профессионалы |
23.10.2012, 16:44 | #3 (ссылка) |
Новичок
Регистрация: 21.11.2009
Сообщений: 486
Репутация: 47
|
chukles, я не профессионал, но можно попробовать написать, например, так:
4. Код:
uses crt; var cs1,cs2,res,change:integer; TD:string; function FromDec(n,r:longint):string; var s:String; const digit:string[16]='0123456789ABCDEF'; begin s:=''; repeat s:=digit[(n mod r)+1]+s; n:=n div r; until n=0; FromDec:=s; end; {фунция перевода любой сс в Dec} function ToDec(n:string;r:longint):longint; var m,i:longint; const digit:string[16]='0123456789ABCDEF'; begin m:=0; while n[1]='0' do delete(n,1,1); for i:=1 to length(n) do m:=m*r+pos(n[i],digit)-1; ToDec:=m; end; begin writeln('Введите из какой CC:'); repeat readln(cs1); until (cs1>=2) and (cs1<=36); writeln('Введите число в соответствии с CC:'); readln(TD); writeln('Введите в какую CC:'); repeat readln(cs2); until (cs2>=2) and (cs2<=36); writeln('Перевод из ',cs1,' CC --> ',cs2,' CC:'); writeln(FromDec(ToDec(TD,cs1),cs2)); end. |
Ads | |
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1) | |
Опции темы | |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
помогите школьнику с задачей на паскале | Страж магии | Программирование | 0 | 04.03.2011 23:17 |