Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal Запомнить массив 3 способами Ребят помогите пожалуйста, нужно запомнить массив тремя способами: 1) Как константу 2)Случайные числа 3)Вручную выбор способа с помощью меню (СASE) https://www.cyberforum.ru/ pascal/ thread1060574.html	Работа с записями.балл группы Pascal program Lab13; uses crt; const N=15; type Subject = (Mathematics1, Chemistry1, Graphics1, Mathematics2, Chemistry2, Graphics2 ); type student = record; Name:string ; Surname:string; Gender:string; Cod:string;
Pascal работа с текстовыми файлами https://www.cyberforum.ru/ pascal/ thread1060539.html Создать текстовый файл. Найти в нем слова, встречающиеся более одного раза.	Pascal Найти суму тех членов ряда, модуль которых больше или равен заданному Е https://www.cyberforum.ru/ pascal/ thread1060535.html Дан числовой ряд и некоторое число Е. Найти суму тех членов ряда, модуль которых больше или равен заданному Е. Общий член ряда имеет вид в соответствии с вашим вариантом где n=1,2...∞ -массивы при решении не использовать -значение Е 0,001
Pascal Перевод из двоичной или шестнадцатеричной в десятичную систему счисления Здравствуйте, нужна ваша помощь нужно проверить, является введенная последовательность символов записью сс2 или сс16, и если да, перевести запись в сс10 благодарю за любую помощь	Pascal Создать файл записей, содержащий данные о кубах Создать файл записей, содержащий данные о кубы: размер каждого куба (длина ребра), его цвет и материал. Найти количество кубов с ребром равным 5. https://www.cyberforum.ru/ pascal/ thread1060510.html
Pascal Задача на рекурсию и оформление её в модуль https://www.cyberforum.ru/ pascal/ thread1060509.html Пользователь вводит размерность и элементы одномерного массива натуральных чисел. Найти сумму элементов, у которых сумма цифр больше 7. Вспомогательный алгоритм оформите в виде рекурсивной процедуры или функции в отдельный модуль.	Pascal Программа на сортировку. Кто-нибудь сделайте в ближайшее время, надо сдать Написать программу сортировки линейного массива целых чисел методом обмена. Элементы отсортировать по убыванию. Алгоритм сортировки, оформить в виде процедуры или функции и поместить в отдельный модуль. Заранее преблагодарен)
Pascal Циклы: найти сумму четных чисел от 1 до n https://www.cyberforum.ru/ pascal/ thread1060497.html Найдите сумму четных чисел от 1 до n, с условием где n<=100 и вводится с клавиатуры. Помогите пожалуйста.	Pascal Вставка в непустой список L пары новых элементов Е1 и Е2 перед его последним элементом https://www.cyberforum.ru/ pascal/ thread1060425.html Здравствуйте! Не могли бы вы мне помочь с такой задачей: Описать процедуры а)которая вставляет в непустой список L пару новых элементов Е1 и Е2 перед его последним элементом б)определяет, сколько раз входит элемент Е в список L и каждое значение Е заменяет на среднее арифметическое чисел, находящихся до числа Е Знаю, как добавить элемент на последнее место, но как на предпоследнее? А...
Программа с процедурами и функциями Pascal Есть три программы: 1. Для вычисления ряда: var i:integer; s,m:real; begin s:=0; write('Введи число: ');readln(i); repeat	Pascal Получить в файле g синусы компонентов файла f Дан файл f, компоненты которого являются действительными числами. Получить в файле g синусы компонентов файла f. https://www.cyberforum.ru/ pascal/ thread1060390.html

Cyborg Drone

Модератор

9853 / 5223 / 3304

Регистрация: 17.08.2012

Сообщений: 15,974

09.01.2014, 23:07

Операции сложения, вычитания, умножения и деления в троичной СС - Pascal - Ответ 5616339

09.01.2014, 23:07. Показов 1856. Ответов 4

Метки (Все метки)

Ответ

Про деление на 0 позабыл. Концовка вот так будет.

Кликните здесь для просмотра всего текста

Pascal

    entr(y, ys, 2);
    zs := '+';
    case opcode of
      '*': z := x * y;
      '/': if y <> 0 then z := x div y else zs := 'e';
      '+': z := x + y;
      '-': z := x - y
    end;
    if zs = 'e'
      then writeln('Error: zero divide')
      else begin
        if z >= 0
          then zs := '+'
          else begin
            zs := '-';
            z := abs(z)
          end;
        s := '';
        if z = 0
          then s := '0'
          else while z > 0 do begin
            s := char(byte('0') + (z mod 3)) + s;
            z := z div 3
          end;
        write('    Result = ');
        if zs = '-' then write(zs);
        writeln(s)
      end;
    write(' Continue?   ');
    readln(s);
    if (s = 'n') or (s = 'N')then break
  until false;
end.

Вернуться к обсуждению:
Операции сложения, вычитания, умножения и деления в троичной СС Pascal

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

09.01.2014, 23:07

Готовые ответы и решения:

Используя только операции сложения и вычитания, найти частное от деления нацело N на K, а также остаток от этого деления
Реализовать данные задания с помощью циклов с предусловием или циклов с постусловием. Даны целые...

Используя только операции сложения и вычитания, найти частное от деления нацело N на K, а также остаток от этого деления
Помогите с решением Даны целые положительные числа N и K. Используя только операции сложения и...

Возведение в степень, используя лишь операции сложения, умножения и вычитания
Дано действительное число х. Не пользуясь никакими други*ми арифметическими операциями, кроме...

Используя только операции сложения и вычитания, найти частное от деления нацело N на K
Даны целые положительные числа N и K. Используя только операции сложения и вычитания, найти частное...

	09.01.2014, 23:07

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

09.01.2014, 23:07

Помогаю со студенческими работами здесь

Используя только операции сложения и вычитания найти частное от деления
даны положительные числа n k используя только операции сложения и вычитания найти частное от...

Операции сложения, вычитания, умножения и деления интервалов
ребят, кто знает, и кому не сложно, распишите пожалуйста арифметические операции с интервалами....

Реализовать класс MyArray, который бы поддерживал индексные операции, операции сложения, вычитания, умножения, деления
Необходимо реализовать класс MyArray, который бы поддерживал индексные операции, операции сложения,...

Перегрузить операции сложения, вычитания, деления и умножения комплексных чисел
Доброго времени суток. Помогите разобраться с перегрузкой метода. Суть в том, что необходимо...

Наверх