Илья Петрович Скуратовский пишет:
я решил твои задачи по Паскалю:
www.proshkolu.ru/user/avan/file/379295
что правильно, а что нет ?
Begin10. Даны два ненулевых числа.
Найти сумму, разность, произведение и частное их квадратов.
Program Begin_10;
var a,b,C,D,E:integer;
begin
Write(‘a=’); Readln(a);
Write(‘b=’); Readln(b);
C:=(sqr(a))+sqr(b);
D:=(sqr(a))-sqr(b);
E:=(sqr(a))/sqr(b);
Writeln(‘C=’,C);
Writeln(‘D=’,D);
Writeln(‘E=’,E);
end.
Begin11. Даны два ненулевых числа.
Найти сумму, разность, произведение и частное их модулей.
Program Begin_11;
var a,b,C,D,E:integer;
begin
Write(‘a=’); Readln(a);
Write(‘b=’); Readln(b);
C:=(abs(a))+abs(b);
D:=(abs(a))-abs(b);
E:=(abs(a))/abs(b);
Writeln(‘C=’,C);
Writeln(‘D=’,D);
Writeln(‘E=’,E);
end.
Begin13. Даны два круга с общим центром и радиусами R1 и R2 (R1 > R2).
Найти площади этих кругов S1 и S2, а также площадь S3 кольца, внешний радиус которого равен R1, а внутренний радиус равен R2.
Program Begin_13;
var R1,R2,S1,S2,S3:integer;
const pi=3.14;
begin
Write(‘R1=’); Readln(R1);
Write(‘R2=’); Readln(R2);
S1:=pi*sqr(R1);
S2:=pi*sqr(R2);
S3:=pi*sqr(R1-R2);
Writeln(‘S1=’,S1);
Writeln(‘S2=’,S2);
Writeln(‘S3=’,S3);
end.
Begin15. Дана площадь S круга. Найти его диаметр D и длину L окружности, ограничивающей этот круг.
Program Begin_15;
var S,D,L:integer;
const pi=3.14;
begin
Write(‘S=’); Readln(S);
D:=2*(sgrt(S/pi));
L:=pi*D;
Writeln(‘D=’,D);
Writeln(‘L=’,L);
end.
Begin16. Найти расстояние между двумя точками с заданными координата-ми x 1 и x2 на числовой оси: |x2 - x1|.
Program Begin_16;
var x1,x2,S :integer;
begin
Write(‘x1=’); Readln(x1);
Write(‘x2=’); Readln(x2);
S:=abs(x2-x1);
Writeln(‘S=’,S);
end.
Begin17. Даны три точки A, B, C на числовой оси.
Найти длины отрезков AC и BC и их сумму.
Program Begin_17;
var A,B,C,AC,BC,S:integer;
begin
Write('A='); Readln(A);
Write('B='); Readln(B);
Write('C='); Readln(C);
AC:=abs(C-A);
BC:=abs(B-A);
S:=AC+BC;
Writeln('AC=',AC);
Writeln('BC=',BC);
Writeln('S=',S);
end.
Begin18. Даны три точки A, B, C на числовой оси. Точка C расположена между точками A и B. Найти произведение длин отрезков AC и BC.
Program Begin_18;
var A,B,C,AC,BC,S:integer;
begin
Write('A='); Readln(A);
Write('B='); Readln(B);
C:=abs((B-A)/2);
AC:=abs(C-A);
BC:=abs(C-B);
S:=AC*BC
Writeln('S=',S);
end.
Begin19. Даны координаты двух противоположных вершин прямоугольника:
(x 1 y 1 ), (x2, y2). Стороны прямоугольника параллельны осям координат.
Найти периметр и площадь данного прямоугольника.
Program Begin_19;
var x1,x2,y1,y2,a,b,P,S:integer;
begin
Write('x1='); Readln(x1);
Write('x2='); Readln(x2);
Write('y1='); Readln(y1);
Write('y2='); Readln(y2);
a:=abs(x2-x1);
b:=abs(y2-y1);
P:=2*a*b;
S:=a*b;
Writeln('P=',P);
Writeln('S=',S);
end.
Begin20. Найти расстояние между двумя точками с заданными координатами
(x 1 y1) и (x2, y2) на плоскости ( ).
Program Begin_20;
var x1,x2,y1,y2,d:integer;
begin
Write('x1='); Readln(x1);
Write('x2='); Readln(x2);
Write('y1='); Readln(y1);
Write('y2='); Readln(y2);
d:=sqrt((sqr(x2-x1))+sqr(y2-y1));
Writeln('d=',d);
end.
Begin35. Скорость лодки в стоячей воде V км/ч, скорость течения реки U км/ч (U < V). Время движения лодки по озеру Т1 ч, а по реке (против течения) - Т2 ч. Определить путь S, пройденный лодкой (путь = время • скорость). Учесть, что при движении против течения скорость лодки уменьшается на величину скорости течения.
Program Begin_35;
var V,U,T1,T2,S:integer;
begin
Write('V='); Readln(V);
Write('U='); Readln(U);
Write('T1='); Readln(T1);
Write('T2='); Readln(T2);
S:=((V+U)*T1)+(V-U)*T2;
Writeln('S=',S);
end.
Begin36. Скорость первого автомобиля V1 км/ч, второго - V2 км/ч, расстоя¬ние между ними S км. Определить расстояние между ними через Т часов, если автомобили удаляются друг от друга. Данное расстояние равно сум¬ме начального расстояния и общего пути, проделанного автомобилями; общий путь = время • суммарная скорость.
Program Begin_36;
var V1,V2,S,T,D:integer;
begin
Write('V1='); Readln(V1);
Write('V2='); Readln(V2);
Write('S='); Readln(S);
Write('T='); Readln(T);
D:=S+(T*(V1+V2));
Writeln('D=',D);
end.
Begin37. Скорость первого автомобиля V1 км/ч, второго - V2 км/ч, расстоя¬ние между ними S км. Определить расстояние между ними через Т часов, если автомобили первоначально движутся навстречу друг другу. Данное расстояние равно модулю разности начального расстояния и общего пути, проделанного автомобилями;
общий путь = время • суммарная скорость.
Program Begin_37;
var V1,V2,S,T,D:integer;
begin
Write('V1='); Readln(V1);
Write('V2='); Readln(V2);
Write('S='); Readln(S);
Write('T='); Readln(T);
D:=abs(V-T*(V1+V2));
Writeln('D=',D);
end.
Begin13.
...
S3:=pi*sqr(R1-R2);
это правильно?
Program Begin_37;
D:=abs(V-T*(V1+V2));
может всё таки
D:=abs(S-T*(V1+V2));