118. Даны коэффициенты квадратного уравнения a,b,c. Найти действительные корни этого уравнения.
program Kv_ur; var a,b,c,x1,x2,D: real; begin Writeln ('Для решения квадратного уравнения'); Writeln ('Введите коэффициент a'); Readln (a); Writeln ('Введите коэффициент b'); Readln (b); Writeln ('Введите коэффициент c'); Readln (c); D:=Sqr(b)-4*a*c; If d<0 then Writeln ('Так как дискрименант ',D,'<0 уравнение не имеет решений'); begin If d=0 then begin x1:=-b/(2*a); Writeln ('Так как дискриминант равен 0 уравнение имеет один корень:'); Writeln(x1); end; If d>0 then begin x1:=(-b- Sqrt(Sqr(b)-4*a*c))/2*a; x2:=(-b+ Sqrt(Sqr(b)-4*a*c))/2*a; Writeln ('Так как дискриминант ',D,'>0 уравнение имеет два корня:'); Writeln ('x1=', x1, ' и x2=', x2); end; end; end.
122. Можно ли прямоугольный пакет размерами A,B,C положить в чемодан размерами X,Y,Z? program chemodan; var a,b,c,x,y,z: real; begin Writeln ('введите размеры пакета'); Writeln ('Введите длину a'); Readln (a); Writeln ('Введите ширину b'); Readln (b); Writeln ('Введите высоту c'); Readln (c); Writeln ('введите размеры чемодана'); Writeln ('Введите длину х'); Readln (x); Writeln ('Введите ширину y'); Readln (y); Writeln ('Введите высоту z'); Readln (z); If (a<=x) and (b<=y) and (c<=z) then Writeln ('пакет можно положить') else Writeln ('пакет положить нельзя'); End.
const z = 30; // максимально число слов var s,w : string; n,p,i,j,l : integer; words : array [1..z] of string; kw : array [1..z] of integer; r : boolean; begin writeln ('введите строку'); readln (s); writeln ('укажите кол-во повторений'); readln (n); l := Length(s); p := 1; w := ''; for i := 1 to l do if (s[i] <> ' ') and (s[i] <> '.') and (s[i] <> ',') then w := w + s[i] else begin for j := 1 to p do if w = words[j] then begin kw[j] := kw[j] +1; r := true; end; if not r then begin p := p +1; words[p] := w; kw[p] := kw[p] +1; end; w := ''; r := false; end; for i := 1 to p do if kw[i] > n then writeln (words[i]); end.
program Kv_ur;
var a,b,c,x1,x2,D: real;
begin
Writeln ('Для решения квадратного уравнения');
Writeln ('Введите коэффициент a');
Readln (a);
Writeln ('Введите коэффициент b');
Readln (b);
Writeln ('Введите коэффициент c');
Readln (c);
D:=Sqr(b)-4*a*c;
If d<0 then Writeln ('Так как дискрименант ',D,'<0 уравнение не имеет решений');
begin
If d=0 then
begin
x1:=-b/(2*a);
Writeln ('Так как дискриминант равен 0 уравнение имеет один корень:');
Writeln(x1);
end;
If d>0 then
begin
x1:=(-b- Sqrt(Sqr(b)-4*a*c))/2*a;
x2:=(-b+ Sqrt(Sqr(b)-4*a*c))/2*a;
Writeln ('Так как дискриминант ',D,'>0 уравнение имеет два корня:');
Writeln ('x1=', x1, ' и x2=', x2);
end;
end;
end.
122. Можно ли прямоугольный пакет размерами A,B,C положить в чемодан размерами X,Y,Z?
program chemodan;
var a,b,c,x,y,z: real;
begin
Writeln ('введите размеры пакета');
Writeln ('Введите длину a');
Readln (a);
Writeln ('Введите ширину b');
Readln (b);
Writeln ('Введите высоту c');
Readln (c);
Writeln ('введите размеры чемодана');
Writeln ('Введите длину х');
Readln (x);
Writeln ('Введите ширину y');
Readln (y);
Writeln ('Введите высоту z');
Readln (z);
If (a<=x) and (b<=y) and (c<=z) then Writeln ('пакет можно положить')
else Writeln ('пакет положить нельзя');
End.
z = 30; // максимально число слов
var
s,w : string;
n,p,i,j,l : integer;
words : array [1..z] of string;
kw : array [1..z] of integer;
r : boolean;
begin
writeln ('введите строку');
readln (s);
writeln ('укажите кол-во повторений');
readln (n);
l := Length(s);
p := 1;
w := '';
for i := 1 to l do
if (s[i] <> ' ') and (s[i] <> '.') and (s[i] <> ',') then
w := w + s[i]
else
begin
for j := 1 to p do
if w = words[j] then
begin
kw[j] := kw[j] +1;
r := true;
end;
if not r then
begin
p := p +1;
words[p] := w;
kw[p] := kw[p] +1;
end;
w := '';
r := false;
end;
for i := 1 to p do
if kw[i] > n then
writeln (words[i]);
end.