Ответы (Информатика-за 10 апреля)

Ответы (Информатика-за 10 апреля)

Классная работа

Задание №4 – с. 162. Составьте программу вычисления площади кольца по значениям внутреннего и внешнего радиусов, используя подпрограмму вычисления площади круга (два варианта: с процедурой и функцией)

1 вариант: с процедурой:

Program KolcoP;

Var r1, r2: integer;

Procedure S(r1, r2: integer);

Var s: real;

begin

If r1 > r2 then

s := Pi * (r1 * r1 - r2 * r2)

else

s := Pi * (r2 * r2 - r1 * r1);

writeln('Площадь кольца: ', s:5:2);

end;

begin

write('r1 = ');

readln(r1);

write('r2 = ');

readln(r2);

S(r1, r2);

end.

2 вариант: с функцией:

Program KolcoF;

Var r1, r2: integer;

Function S(r1, r2: integer): real;

begin

If r1 > r2 then

result := Pi * (r1 * r1 - r2 * r2)

else

result := Pi * (r2 * r2 - r1 * r1);

end;

begin

write('r1 = ');

readln(r1);

write('r2 = ');

readln(r2);

writeln('Площадь кольца: ', S(r1, r2):5:2);

end.

Домашняя работа: №5-стр.163 Составьте программу сложения двух простых дробей. Результат должен быть несократимой дробью. Используйте подпрограмму вычисления НОД по алгоритму Евклида. Простая дробь задаётся двумя целыми числами: числителем и знаменателем.

Решение:

Programslogendrob;

varch1,ch2,zn1,zn2,nod:integer;zn12,zn22:real;

ProcedureEvklid(M,N:integer);

begin

whileM<>N do

ifM>N

thenM:=M-N

elseN:=N-M;

nod:=M;

end;

begin

Write('Введите числитель и знаменатель первой дроби через пробел');

readln(ch1,zn1);

Write('Введите числитель и знаменатель второй дроби через пробел');

readln(ch2,zn2);

Evklid(zn1,zn2);

If(nod=1) then

begin

ch1:=ch1*zn2;

ch2:=ch2*zn1;

write('Сумма дробей=',ch1+ch2,'/',zn1*zn2);

end

else

begin

zn12:=zn1/nod;

zn22:=zn2/nod;

ch1:=ch1*zn2;

ch2:=ch2*zn1;

write('Сумма дробей=',ch1+ch2,'/',zn12*zn22);

end;

end.