Как найти разницу в паскале

0 / 0 / 0

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

Сообщений: 3

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

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

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

Puporev

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

64287 / 47586 / 32739

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

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

24.10.2016, 08:29

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

Решение

Pascal

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.

Источник

Исходник простой программы, задача которой состоит в нахождении разности двух, введенных вами с клавиатуры чисел. Открывается программами 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 Просмотров: 14520

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

Источник

В этой теме 0 ответов, 1 участник, последнее обновление 6 лет, 2 месяца назад сделано Васильев Владимир Сергеевич.

Сообщения

Вычислить сумму и разность двух целых чисел, вводимых пользователем с клавиатуры.

Решение:

program line_1;
uses crt;
var
  a, b: integer;
begin
  clrscr;
  write('a='); read(a);
  write('b='); readln(b);
  writeln(a,'-',b, '=', a-b);
  write(a,'+',b, '=', a+b);
  readkey;
end.

Автор

Сообщения

Для ответа в этой теме необходимо авторизоваться.

Источник

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

Решение Pascal

program Begin10;

var

a,b,Sum,Difference, Product, Quotient: Real;

begin

Write(‘Введите число a: ‘);

Readln(a);

Write(‘Введите число b: ‘);

Readln(b);

Sum:=sqr(a)+sqr(b);

Writeln(‘Сумма квадратов a и b равна: ‘,Sum);

Difference:=sqr(a)—sqr(b);

Writeln(‘Разность квадратов a и b равна: ‘,Difference);

Product:=sqr(a)*sqr(b);

Writeln(‘Произведение квадратов a и b равна: ‘,Product);

Quotient:=sqr(a)/sqr(b);

Writeln(‘Частное квадратов a и b равна: ‘,Quotient);

end.

Решение C++

#include <stdio.h>

int main(void)

{

float a, b;

printf(«a:»);

scanf («%f», &a);

printf(«b:»);

scanf («%f», &b);

printf(«%fn»,a*a+b*b);

printf(«%fn»,a*a—b*b);

printf(«%fn»,a*a*b*b);

printf(«%fn»,(a*a)/(b*b));

return 0;

}

Оцените решение

Загрузка…

Источник

program raz;
var a, b, summ, razn, proizv, chast: real;
begin 
    write('Введите значения a и b: ');
    readln(a, b);
    a := sqr(a);
    b := sqr(b);
    summ := a + b;
    razn := a - b;
    proizv := a * b;
    chast := a / b;
    writeln('Сумма квадратов -- ', summ);
    writeln('Разность квадратов -- ', razn);
    writeln('Произведение квадратов -- ', proizv);
    writeln('Частное квадратов -- ', chast);
end.

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

Решение

Похожие записи/страницы:

Не пропустите также: