Форум Кургана и Курганской области и наших друзей

Зима. Форум Кургана и Курганской области и наших друзей
17 Октябрь 2019, 12:42:09 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости:
 
   Начало   Помощь Войти Регистрация  
Страниц: [1]   Вниз
  Печать  
Автор Тема: Задачи Pascal  (Прочитано 2109 раз)
0 Пользователей и 1 Гость смотрят эту тему.
AKEJIJIA
Провинциальный секретарь
*

Карма: 0
Offline Offline

Пол: Мужской
Сообщений: 34


WWW Награды
« : 03 Март 2009, 11:50:06 »

Подскажите пожалуйста Как написать программу на паскале что бы она Из шеснацетеричной в десятичНую
Переводила число
Записан

AGhost
Забанен
Тайный советник
*********

Карма: 600
Offline Offline

у пользователя уже 2 предупреждения
Сообщений: 6890


90027_veteran.gif


Награды
« Ответ #1 : 03 Март 2009, 14:01:18 »

http://ru.wikipedia.org/wiki/Шестнадцатеричная_система_счисления
Записан

Прощайте!
AKEJIJIA
Провинциальный секретарь
*

Карма: 0
Offline Offline

Пол: Мужской
Сообщений: 34


WWW Награды
« Ответ #2 : 03 Март 2009, 15:36:16 »

Я перевод то знаю но не знаю Как написать прогу на паскале подскажите плиз
Записан

AGhost
Забанен
Тайный советник
*********

Карма: 600
Offline Offline

у пользователя уже 2 предупреждения
Сообщений: 6890


90027_veteran.gif


Награды
« Ответ #3 : 03 Март 2009, 19:14:55 »

http://www.computerbooks.ru/books/Programming/Book-Delphi-7/index.html
Записан

Прощайте!
Planer
Титулярный советник
*****

Карма: 44
Offline Offline

Пол: Мужской
Сообщений: 735



WWW Награды
« Ответ #4 : 03 Март 2009, 21:54:11 »

функция перевода из N ричной системы в 10ую
в случае 16ричной, первый параметр функции равен 16.
написал 18 лет назад Улыбка
 
{--------------------------Перевод в 10ую систему---------------------------}
Function To10 ( Gnd:byte; St_Num:string ) : Longint;
  Var   i : byte;
      num : Longint;
 Begin
     num:=0;
      for i:=1 to length(st_num) do
         num:= num +
                 stepen( gnd,i-1 )*
                   Chr_num( st_num[ length(st_num)+1-i ] ) ;
     To10:=num;
 End;

используемые функции:

{--------------------------Номер литеры (0..9,A..Z)-------------------------}
Function Chr_num ( litera : char ) : integer;
  Var num : integer;
 Begin
   num:= ord (litera);
     if num < 65
         then num:=num-48
         else num:=num-55;
   Chr_num:=num;
 End;

{------------------------Возведение в целую степень-------------------------}
Function Stepen( Gnd,st:integer ) : Longint;
  Var mn : Longint;
       i : integer;

 Begin
   mn:=1;
     for i:=1 to abs(st) do
       mn:=mn*gnd;
   Stepen:=mn;
 End;
Записан
AKEJIJIA
Провинциальный секретарь
*

Карма: 0
Offline Offline

Пол: Мужской
Сообщений: 34


WWW Награды
« Ответ #5 : 03 Март 2009, 23:37:30 »

Большое спасибо подскажи пожалуйста Как сделать через (case of)
Записан

BlaZed
Титулярный советник
*****

Карма: 84
Offline Offline

Пол: Мужской
Сообщений: 986


Мы сделаны из мяса


WWW Награды
« Ответ #6 : 04 Март 2009, 00:14:11 »

Большое спасибо подскажи пожалуйста Как сделать через (case of)
Ну примерно так, насколько я еще синтаксис помню

case litera of
    'A','a': num:=10;
    'B','b': num:=11;
    'C','c': num:=12;
    etc...
else
    writeln('Fuck off');
end;

но case тут нафиг не нужен, Planer правильно подсказал, через ASCII-код гораздо компактнее решение, хотя я бы еще добавил перевод символов в верхний регистр

PS: Надеюсь ты не с ПОВТа, а то страшно становится
Записан

"Лишь утратив все до конца мы обретаем свободу" (c) Бойцовский клуб
sharpey
BSD'ун
Титулярный советник
*****

Карма: 126
Offline Offline

Пол: Мужской
Сообщений: 686



Награды
« Ответ #7 : 04 Март 2009, 21:57:08 »

PS: Надеюсь ты не с ПОВТа, а то страшно становится
Позвольте процитировать любимый Башорг:
Цитировать
402378 [ + 23527 − ] [:||||:] утверждена 2009-02-03 в 08:13
Смотрю, как студенты понтуются, кто из них больше ни фига не делал и всё сдал.
Эх...
Когда я был студентом, я сдавал право одной очень милой женщине. Она была практикующим юристом, и я ожидал, что такой специалист меня сейчас будет гонять от и до по всему конспекту.
Она посмотрела на меня и, ничего не спрашивая, поинтересовалась:
- Оценку вам какую ставить?
- Э... Пять хотелось бы
- Отлично, - сказала она, и стала писать в зачётке
- А вы что, даже ничего спрашивать не будете? - удивился я.
Она оторвалась от заполнения зачётки, внимательно посмотрела на меня и сказала:
- Запомните, молодой человек, чем меньше вы знаете, тем более ценна я как специалист.
Эта фраза мне запомнилась на всю жизнь и больше я не страдал фигнёй во время занятий.
И сейчас самое время мне, уже доценту и одновременно практикующему проектировщику зданий, повторить то же самое:
Господа студенты, не учитесь, пожалуйста! Старайтесь как можно больше получить на халяву! Чем меньше вы знаете по окончании института, тем более ценен я как специалист и тем большую зарплату я могу потребовать за свои услуги!
Записан
Страниц: [1]   Вверх
  Печать  
 
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.11 | SMF © 2006-2008, Simple Machines LLC
rss | wap
Valid XHTML 1.0! Valid CSS!