Как найти разность двух чисел в паскале

Как найти разность двух чисел в паскале

Анатолий Зайцев

Профи

(750)


3 месяца назад

Ну и шо там сложного инпут “введите первое число”,а инпут “введите второе”,б с=а -б
Инпут”разность равна “,с

Анатолий ЗайцевПрофи (750)

3 месяца назад

Write “веедите число а”;
Input a ;тормаз

Дмитрий Шишкин
Просветленный
(31476)
Анатолий Зайцев, в Паскале нет такой команды (по крайней мере, в классическом) как input. Есть команды read (a) и readln (a).

Sesared

Знаток

(331)


3 месяца назад
 

 var a, b, c: integer; 
begin 
  write('Первое число: '); 
  readln(a); 
  write('Второе число: '); 
  readln(b); 
  c := a - b; 
  writeln('Разность: ', c); 
end.

DenchickKristallМастер (2275)

3 месяца назад

можно же просто

 var a,b:real;
begin
writeln('Введите числа');
read(a,b);
writeln(a-b);
end.

Sesared
Знаток
(331)
DenchickKristall, да, не спорю, можно проще

Дмитрий Шишкин

Просветленный

(31476)


2 месяца назад
 

 Program P1; 
uses crt; 
var a, b: real; 
begin 
clrscr; 
writeln ('Введите с клавиатуры 2 числа, после ввода каждого числа нажимайте клавишу Enter. При вводе дробных чисел целую часть от дробной отделяйте точкой, а не запятой.'); 
write ('Введите 1-ое число: '); 
readln (a); 
write ('Введите 2-ое число: '); 
readln (b); 
writeln ('Ответ: ', a, '-', b, '=', a-b); 
write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 
readkey; 
end.

Источник

Исходник программы нахождения разности двух чисел для паскаля

Исходник простой программы, задача которой состоит в нахождении разности двух, введенных вами с клавиатуры чисел. Открывается программами Pascal ABC, Pascal ABC.Net и Turbo Pascal. Имеет не скомпилированный формат для редактирования .pas. Комментариев в программе нет.

Исходный код:

var a, b, c:integer;
begin
writeln (‘Введите первое число’);
readln (a);
writeln (‘Введите второе число’);
readln (b);
c:=a-b;
writeln (‘Разность равна ‘,c);
end.

Скачать: raznost.pas

Разобраться в коде данной программы Вы можете, изучив Урок №2 – основные операторы, простые действия. Исходник программы сложения находится здесь.

Дата: 2011-12-15 19:33:57   Просмотров: 14485

Теги: Паскаль исходник

Источник

0 / 0 / 0

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

Сообщений: 3

1

Найти разность двух чисел

24.10.2016, 07:47. Показов 24753. Ответов 1

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

Через процедуру найти разность двух чисел (30-20)
Только начинаю, объясните пожалуйста.



0

Puporev

Почетный модератор

64285 / 47584 / 32739

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

Сообщений: 115,182

24.10.2016, 08:29

2

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal 
1
2
3
4
5
6
7
8
9
10
11

procedure razn(a,b:integer;var c:integer);
begin
c:=a-b;
end;
var a,b,c:integer;
begin
writeln('Введите 2 целых числа');
readln(a,b);
razn(a,b,c);
write('Разность=',c)
end.



0
Источник

Даны два ненулевых числа. Найти их сумму, разность, произведение и частное.

Решение:

Program Anadra;

uses crt;

var a,b,c,d,e: integer;

f: real;

begin

writeln(‘Введите два числа’);

readln(a);

readln(b);

c:=a+b;

d:=a-b;

e:=a*b;

f:=a/b;

writeln(‘Сумма чисел ‘, c);

writeln(‘Разность ‘,d);

writeln(‘Произведение ‘,e);

writeln(‘Частное ‘,f);

end.

Разбор решения:  

1)Итак, для начала нам надо заполнить раздел описания переменных.

Integer:

a – первое число

b – второе число

с – сумма чисел

d — разность чисел

e – произведение чисел

Real:

f — частное чисел

2)Теперь сама программа. Для начала просим пользователя ввести 2 числа и он вводит их.

writeln(‘Введите два числа’);

readln(a);

readln(b);

3)Теперь считаем сумму чисел.

c:=a+b;

4)Считаем разность чисел.

d:=a-b;

5)Считаем их произведение.

e:=a*b;

6)Считаем их частное.

f:=a/b;

7)Теперь выводим результаты на экран.

writeln(‘Сумма чисел ‘, c);

writeln(‘Разность ‘,d); 

writeln(‘Произведение ‘,e);

writeln(‘Частное ‘,f);

8)Программа готова. 

Жду ваших комментариев! 

Источник

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

program number11;
uses crt;
var a, b, c:real;
begin
clrscr;
a:=17.3;
b:=3.4;
c:=a*b;
writeln('a*b=',c:4:1);
c:=a/b;
writeln('a/b=',c:4:1);
c:=a+b;
writeln('a+b=',c:4:1);
c:=a-b;
writeln('a-b=',c:4:1);
readln
end.

В строке №8 записываем операцию умножения.

В строке №10 записываем операцию деления. Ее отличие от операции «Div» в том, делить можно дробные числа и результате операции могут получаться дробные числа. Запомните, что операция деления «/» не производится над переменными целого типа integer, т.к. в результате такой операции могут получиться дробные числа, и программа выдаст ошибку.

Строка №12 – операция сложения.

Строка №14 – операция вычитания.

В строках вывода сообщения на экран (№9, 11, 13, 15) для переменной «C» мы записали формат вывода «:4:1». (должно выводиться максимум 4 цифры и одна цифра после запятой).

operacii nad vethestvennihmi chislami

operacii nad vethestvennihmi chislami.

Дополнение к материалу.

Действия над разными типами данных.

  • Если мы складывает, вычитаем или умножаем 2 числа, одно из которых вещественное (REAL), то и результат будет иметь тип REAL.
  • При делении ( / )получается вещественное число (REAL).
  • При целочисленном делении (DIV) или при вычислении остатка от целочисленного деления (MOD), получается целое число (INTEGER).
  • Функции Abs и Sqr определены для обоих типов данных, поэтому для целого аргумента результат будет INTEGER, а для вещественного аргумента – REAL.
Источник

Добавить комментарий