Помогите ! PascalABC пишет ошибку N:a/b;

Знания

Информатика

1 ответ:

enri433 года назад

0 0

Program summa;
var a,b,s,y,d:integer;
n: real;
begin
writeln('Введите любых числа');
readln(a,b);
S:=a+b;
Y:=a-b;
N:=a/b;
D:=a*b;
writeln('сумма=',S);
writeln('разность=',y);
writeln('деление=',N);
writeln('произведение=',D);
end.

Читайте также

Выберите вариант в которм величина обьемов памяти по возростанию 1.768байт,12кбит,20кбайт,1мбит,2000бит 2.1мбит,768байт,12кбит,2

Oxxxiking

4ое там правильно точно

0 0

4 года назад

Помогите плиз !!!!!очень срочно

Алла999

77+53=120
120-100=20
ответ 20

0 0

4 года назад

Даны две дроби a/b и c/d (a,b,c,d - натуральные числа). составить программу умножения дроби на дробь. ответ должен быть несократ

Светлана 4567 [1]

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

function gcd(a,b:integer):integer; // НОД
begin
while b<>0 do begin a:=a mod b; Swap(a,b) end;
Result:=a
end;

procedure RedFrac(var a,b:integer); // сокращение дроби
begin
var (sgna,sgnb):=(Sign(a),Sign(b)); // мы должны учитывать знак!
(a,b):=(Abs(a),Abs(b));
var d:=gcd(a,b);
a:=(a div d)*sgna; b:=(b div d)*sgnb
end;

begin
var (a,b):=ReadInteger2('Введите числитель и знаменатель 1-й дроби:');
var (c,d):=ReadInteger2('Введите числитель и знаменатель 2-й дроби:');
(a,b):=(a*c,b*d);
RedFrac(a,b);
Writeln('Результат умножения: ',a,' / ',b)
end.

Пример
Введите числитель и знаменатель 1-й дроби: 32 1024
Введите числитель и знаменатель 2-й дроби: 60 300
Результат умножения: 1 / 160

В качестве бонуса - решение на базе входящей в состав PascalABC.NET библиотеки численных методов

uses NumLibABC;

begin
var (a,b):=ReadInteger2('Введите числитель и знаменатель 1-й дроби:');
var (c,d):=ReadInteger2('Введите числитель и знаменатель 2-й дроби:');
Writeln('Результат умножения: ',Frc(a,b)*Frc(c,d))
end.

0 0

4 года назад

Свойства струйного и лазерного принтера

Иришка1993

Если о различиях, то основное состоит в том, что струйные принтеры льют чернила на лист (или абстрактно выражаясь - льют тончайшими струйками точечки из красок на бумагу). Сооствественно при этом свойства у струйных могут быть следующими: размер точки, разброс точки (растекание чернил).

лазерный же имеет сухой порошок (называемый тоннером), который "прижаривается" к бумаге лучом лазера (лазер нагревает краску, заставляя ее прилипать к бумаге). Свойств у лазерных мало, основное это разрешение печати (насколько мелкой может быть одна точка).

А если речь идет о их общих свойствах: то наверное можно отметить такие - разрешение печати, цветность, размер (форматы бумаги), типы используемой бумаги, односторонний\двухсторонний, сетевой\локальный и другие (их довольно много)

0 0

4 года назад

Pascal 1. Дан прямоугольный треугольник с катетами a и b. Составьте программу для вычисления гипотенузы c, периметра, площади, р

игорь шведюк

Program calculations;
var a,b,c, S, P,poluperimetr , Radius1, radius2: real;

begin
writeln ('Enter a:');
readln(a);
writeln('Enter b:');
readln(b);
c:=sqrt(a*a+b*b);
S:=(a*b)/2;
P:=a+b+c;;
poluperimetr:=P/2;
Radius1:=c/2;
radius2:=sqrt(((poluperimetr-a)*(poluperimetr-b)*(poluperimetr-c))/poluperimetr);
writeln('c=',c:2:2);
writeln('S=',S:2:2);
writeln('P=',P:2:2);
writeln('Radius1=',Radius1:2:2);
writeln('radius2=',radius2:2:2);
readln;
end.

0 0

4 года назад