lulmumil
Опубликовано 1 год назад по предмету Информатика от lulmumil

Напишите программу которая будет переводить из 10 системы с счисления в любую другую ( в том числе должны быть отрицательные числа и не только целые) было бы неплохо ещё засчиту от дебилов(чтобы можно было упасть на клаву и программа не сломалась) очень прошу.

  1. Ответ
    Ответ дан Аккаунт удален
    PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018Внимание! Если программа не работает, обновите версию!function DecToa(n:string;k:integer):string;// Перевод из десятичной системы в систему по основанию kbegin  var s:='0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';  Result:='';  var PointPos:=Pos('.',n);  var IntPart:integer;  if PointPos>0 then begin // есть дробная часть    var FracPart:=Frac(n.ToReal);    var m:=0;    while True do begin      var r:=FracPart*k;      Result+=s[Trunc(r)+1];      FracPart:=Frac(r);      m+=1;      if (m=15) or (FracPart=0) then break      end;    IntPart:=n[:PointPos].ToInteger;    end  else IntPart:=n.ToInteger;  if Result<>'' then Result:='.'+Result;  while IntPart>0 do begin    Result:=s[IntPart mod k+1]+Result;    IntPart:=IntPart div k    end;  if Result='' then Result:='0';  if Result[1]='.' then Result:='0'+Resultend;begin  var n:=ReadlnString('Какое число перевести?');  var p:real;  if not real.TryParse(n,p) then Writeln('Такая запись недопустима')  else    if n.Contains('e') or n.Contains('E') then      Writeln('Запись в экспоненциальном формате не разрешена')    else begin      var k:=ReadInteger('Укажите основание системы:');      if k.Between(2,36) then               Writeln(n,'(10) = ',n[1],DecToA(n[2:],k),'(',k,')')      else Writeln('Допустимы основания 2..36')      endend.ПримерыКакое число перевести? 123,5433Такая запись недопустимаКакое число перевести? -353.093234Укажите основание системы: 21-353.093234(10) = -GH.1K2951B0DJAH1BI(21)Какое число перевести? 6523Укажите основание системы: 86523(10) = 61013(8)Какое число перевести? 1.2e-18Запись в экспоненциальном формате не разрешена
    1. Ответ
      Ответ дан Аккаунт удален
      between - "между" по-английски
    2. Ответ
      Ответ дан Аккаунт удален
      А вообще, загрузите программу и наведите курсор на непонятное место - будет подсказка
    3. Ответ
      Ответ дан lulmumil
      окей, а ты не подскажешь где ты скачал эту версию ?
    4. Ответ
      Ответ дан lulmumil
      я чет не могу её найти
    5. Ответ
      Ответ дан Аккаунт удален
      На официальном сайте PascalABC
Не тот ответ, который вам нужен?
Найди нужный
Самые новые вопросы
Cjabz
Английский язык - 3 месяца назад

College reconstruction (1) our life goes on and nothing can stay the same for a long time without being changed to satisfy modern needs. the college plans to modernize its current site in a multimillion pound investment to upgrade its buildings and create a new campus. the college has secured support and funding for the project and is now looking for a suitable developer to take the project forward. although no formal plans have been filed at this stage, the college administration aims to reconstruct the existing location with new buildings in one area and sell the remaining land for further development. the total amount of spending for the whole project will be about £40 million. (2) we are aware of people’s worries concerning the redevelopment of the site, but we cannot continue in the present buildings in the long term. they have become tired and unworkable and are now proving very costly to maintain – that is money that should be spent directly on teaching and learning. the buildings do not meet our needs for the 21st century and our students’ requirements. frankly speaking they are outdated. (3) the quality of the teaching and learning at the college will always be the most important thing. that’s why we intend to create a brand new college campus. we want our students to have the opportunity to learn in modern, up-to-date facilities. this investment is timed to make sure that our future students will also have top-class facilities. (4) during the creation of our new campus, we aim to ensure that the reconstruction takes place away from any buildings that will still be in use. an appraisal of all the existing buildings will be carried out to make sure that they are capable of providing a suitable learning environment until the new buildings are complete. if necessary, some money will be available to ensure that these buildings remain fit-for-purpose until the new buildings are ready. (5) we are determined to work closely with our local neighbors on this project. though there will be a formal public consultation process as part of the planning procedures, we will also be inviting our immediate local residents to more informal meetings where we can pay our full attention to their views and opinions. our consultants are beginning to work on putting together plans that will give us an idea of what the new campus will look like. we will consult closely with local people as the project progresses. our intention is to create a college that benefits everyone. задание 9. cоставьте 10 вопросов различного типа к любым предложениям из текста.

Задай вопрос