Перевод числа из пятеричной системы в десятичную систему счисления.

29.12.2009, 22:37. **Показов** 12283. **Ответов** 2

Студворк — интернет-сервис помощи студентам

помогите сделать 2 лабы пожалуйста, а то оч надо
Заранее благодарен !!
вот задание :

1)Написать программу перевода числа из пятеричной системы в десятичную систему счисления.
2)Дана последовательность слов; между соседними словами –запятая, за последним словом – точка. Напечатать все слова, которые встречаются в последовательности по одному разу.
3)Даны длины а, b, с сторон некоторого треугольника. Найти медианы треугольника, сторонами которого являются медианы исходного треугольника.
4)Составить программу для вычисления значения функции z=(x1+x2)/(y1+y2) , где - корни уравнения ах2 + bx + с = 0;
- корни уравнения dy2+ly+f=0.

@Puporev · 29.12.2009, 23:02

1)Написать программу перевода числа из пятеричной системы в десятичную систему счисления.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
function PentToDec(s:string):integer;{перевод из 5 в 10}
var i,j,sum,sum2:integer;
begin
sum:=0;
For i:=Length(s)-1 DownTo 1 Do
{идем от предпоследнего символа строки, т.е. второго разряда разряда, первый в степень возводить не надо}
   Begin
     If s[i] in ['1'..'4'] Then{если не ноль}
        Begin
          sum2:=ord(s[i])-48;{переводим символ в десятичную цифру}
          For j:=1 To Length(s)-i Do sum2:=sum2*5;{возводим  цифру в степень разряда}
        End
     Else sum2:=0;{если ноль, ничего}
     sum:=sum+sum2;{складываем все разряды}
   End;
If s[Length(s)]in ['1'..'4'] Then Inc(sum,ord(s[Length(s)])-48);{прибавляем последнюю цифру исходного числа}
PentToDec:=sum;{значение функции-число в системе 10}
end;

29.12.2009, 23:08

Спасип!!! на носу сессия , а без етих прог у меня допуска к екзамену не будет =(((

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .

_GorD_

	Перевод числа из пятеричной системы в десятичную систему счисления. 29.12.2009, 22:37. Показов 12283. Ответов 2 Метки нет (Все метки) помогите сделать 2 лабы пожалуйста, а то оч надо Заранее благодарен !! вот задание : 1)Написать программу перевода числа из пятеричной системы в десятичную систему счисления. 2)Дана последовательность слов; между соседними словами –запятая, за последним словом – точка. Напечатать все слова, которые встречаются в последовательности по одному разу. 3)Даны длины а, b, с сторон некоторого треугольника. Найти медианы треугольника, сторонами которого являются медианы исходного треугольника. 4)Составить программу для вычисления значения функции z=(x1+x2)/(y1+y2) , где - корни уравнения ах2 + bx + с = 0; - корни уравнения dy2+ly+f=0.

_GorD_
	29.12.2009, 23:08
	Спасип!!! на носу сессия , а без етих прог у меня допуска к екзамену не будет =(((

Опции темы

Перевод числа из пятеричной системы в десятичную систему счисления.

Решение