Простейшая арифметика: переписать код с использованием модуля

03.06.2014, 16:44. Показов 497. Ответов 0

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

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
Type dm=^real;
Var a,b:dm;
Begin
    New(a);New(b);
    write('a,b: ');readln(a^,b^);
    writeln('a + b = ',a^+b^:0:4);
    writeln('a - b = ',a^-b^:0:4);
    writeln('a * b = ',a^*b^:0:4);
    if b^=0 then writeln('Деление на ноль!')
     else writeln('a / b = ',a^/b^:0:4);
    Dispose(a);Dispose(b);
    readln;
End.

IT_Exp

Эксперт

34794 / 4073 / 2104

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

Сообщений: 32,602

Блог

03.06.2014, 16:44

Ответы с готовыми решениями:

Простейшая арифметика в ассемблере
Помогите пожалуйста составить код для ассемблера нужно осуществить ввод с клавиатуры 2х чисел и вывод на экран результат их умножения...

Переписать код с switch на код с использованием массивов
<?php $action = $_POST; switch($action){ case 'first' echo 'первый' break; case 'red' echo 'красный' break; case 'blue' echo...

Как переписать следующий код нахождения модуля с питон на Octave?
def abs(x): if x >= 0: return x else: return -x

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

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

Сообщений: 30,364

Блог

03.06.2014, 16:44

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

Переписать код с использованием Qt
Здравствуйте. помогите, пожалуйста, переписать код под qt. Выдает ошибки #include "widget.h" #include...

Переписать код с использованием классов
Доброго времени суток! Написал программу, затем узнал, что ее нужно реализовать с помощью класса. Можно ли это сделать не внося...

Переписать код с использованием функций
#include <stdio.h> #include<math.h> #define n 5 #define m 8 int a,b, *p,i; void main () { clrscr(); p=a; ...

Переписать код с использованием процедуры
как вот эту задачу сделать с помощью процедуры?????? program L6_3; uses crt; const nmax=20; Var a:array of integer; ...

Переписать код с использованием Case of
Пожалуйста помогите с оператором выбора Case of Var x,c1,c2,c3,c4,c5,x6,c7:char; begin y:='w'; readln(x); Case x of :...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .

Наверх