Вернуться   Компьютерный форум > Компьютеры > Программы > Программирование
 
 
Опции темы
Старый 14.05.2012, 19:25   #1 (ссылка)
Новичок
 
Регистрация: 24.01.2010
Сообщений: 153
Репутация: 1
По умолчанию Помогите школьнику.

Прошу вас,дорогие программисты.во первых надо сделать блок-схемы к уже сделанным задачам(Скину чуть позже минут через 10). и объяснить две задачи:

3. Задан двумерный массив, состоящий из нулей и единиц. Необходимо высчи-
тать наибольший по площади прямоугольник, состоящий из единиц и под-
светить (выделить) его.
0100101
0101110
0011110
Площадь наибольшего прямоугольника в данном примере 2х3=6 (две
строки по 3 единицы).

4. Напишите программу, которая будет переводить число из любой системы
счисления в любую другую систему счисления (от двоичной до шестнадцатеричной).

Буду при много благодарен вам, Товарищи профессионалы
chukles вне форума  
Старый 23.10.2012, 02:32   #2 (ссылка)
Новичок
 
Регистрация: 23.10.2012
Сообщений: 8
Репутация: 0
По умолчанию

такая программа есть Chats Enige конечно не совсем то но если выбрать кодировку в писать в ней патом не стирая выбрать любую другую кодировку программа переведет код в выбранную кодировку!
Asco soil вне форума  
Старый 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.
sheff-09 вне форума  
Ads
 


Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 
Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
помогите школьнику с задачей на паскале Страж магии Программирование 0 04.03.2011 23:17


Текущее время: 20:18. Часовой пояс GMT +4. Powered by vBulletin® Version 5.8.9
Copyright ©2000 - 2016, Jelsoft Enterprises Ltd.