Помогите сделать лабу

[evgenn]

Помогите сделать лабу

1.Найти площадь кольца, внутренний радиус которого равен 20, а внешний - введенному числу
r (r > 20).
2.1 Вводится X.
Получить значение Y, если Y=(X*X-X) * (4*X*X-3*X) * (9*X*X-5*X) *…* (400*X*X-39*X).
2.2 Получить значение Y=(X+1)*(X+4)*(X+7)*(X+10)* ... *(X+34) для X=X1, X2, X3, ... ,X15.

 

[Vladimir_S]

1.Найти площадь кольца, внутренний радиус которого равен 20, а внешний - введенному числу
r (r > 20).

VAR
r:REAL;
BEGIN
Write('r= '); ReadLn(r);
WriteLn('S= ',Pi*(r*r-400));
ReadLn;
END.

2.1 Вводится X.
Получить значение Y, если Y=(X*X-X) * (4*X*X-3*X) * (9*X*X-5*X) *…* (400*X*X-39*X).

VAR
X,Y:REAL;
i:INTEGER;
Write('X= '); ReadLn(X);
Y:=1;
FOR i:=1 TO 20 DO
Y:=Y*(SQR(X*i)-X*(2*i-1));
WriteLn('Y= ',Y);
ReadLn;
END.

2.2 Получить значение Y=(X+1)*(X+4)*(X+7)*(X+10)* ... *(X+34) для X=X1, X2, X3, ... ,X15.

VAR
X,Y:ARRAY[1..15] of REAL;
i,j:INTEGER;

BEGIN
FOR i:=1 TO 15 DO
BEGIN
Write('X[',i:2,']= '); ReadLn(X);
Y:=1;
END;
WriteLn;
FOR i:=1 TO 15 DO
BEGIN
FOR j:=1 TO 12 DO
Y:=Y*(X+(i-1)*3+1);
Writeln('Y[',i:2,']= ',Y);
END;
ReadLn;
END.

Честно скажу - не проверял. Но вроде всё так. Если что - напишите, поправим.

 

[evgenn]

вот ещё задания а за эти спасибо , уже здал

 

[evgenn]

во получил задание

 

[Vladimir_S]

во получил задание

А самостоятельно не хотите попробовать? Тем более, задания-то детсадовские. Учиться, между прочим, надо Вам, а не нам. А просто тупо перебрасывать задания на форум - не дело. Попытайтесь - вот ей-Богу, интересно будет!

 

[DDS]

Не удержался, сделал несколько заданий

1 задание
uses crt;
var x,y:real;
begin
clrscr;
write('введите х');read(x);
if x<=-5 then
y:=(x-2) * (x+4);

if (x>-5)and(x<=-2) then
y:=(-sqr(x));

if x>-2 then
y:=exp(x);
write(' y = ',y:5:2);
end.

3 задание
uses crt;
var x1,x2,y:real;r1,r2:byte;
begin
clrscr;
write('введите x1');read(x1);
write('введите x2');read(x2);
write('введите r1');read(r1);
write('введите r2');read(r2);
y:=ln(abs(cos(x1/r2)))*sqrt((x2-x1)/r1);
write(' y = ',y:5:2);
end.

 

[Sem9273]

плиз помогите написать лабу на языке паскаль!

Дано натуральное число N. Каким наименьшим количеством монет можно выплатить N копеек. Предполагается, что в наличии имеется монеты достоинством 1, 3, 5, 10, 20 и 50 копеек.

 

[Vladimir_S]

Дано натуральное число N. Каким наименьшим количеством монет можно выплатить N копеек. Предполагается, что в наличии имеется монеты достоинством 1, 3, 5, 10, 20 и 50 копеек.

Прежде всего - модераторское замечание: НЕ ДУБЛИРУЙТЕ СООБЩЕНИЯ! Дубликаты удалены. На первый раз прощается, ну а дальше...

Теперь - задачка.

CONST
 Nominal:ARRAY[1..6] of BYTE= (1,3,5,10,20,50);
VAR
 N:WORD;
 i:INTEGER;

BEGIN
 Write('N= ');
 ReadLn(N);
 FOR i:=6 DOWNTO 1 DO
  BEGIN
    WriteLn(Nominal[i]:2, ' kop - ', (N div Nominal[i]):4);
    N:=N mod Nominal[i];
  END;
 ReadLn;
END.