Даний масив з елементами 1, 2, 3, 4, 5, 6, 7, 8, 9. За до циклу створити рядок '-1-2-3-4-5-6-7-8-9'. Даний масив з елементами 2, 5, 9, 15, 0, 4. За до циклу та оператору if вивести на екран ті елементи масиву, які більше 3-х, але менше 10
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.
function F(x: integer): integer; begin if x < 3 then F := 1 else F := F(x - 1) + F(x - 2); end;
begin k20:=F(20); writeln(k20);
count:=-1; {k=20 мы ж вроде должны вычесть} for k := 3 to 50 do begin fk:=F(k); if fk=k20 then count:=count+1; write(fk,' '); end; writeln(count);
end.
функция работает очень медленно потому что это рикурсия. Функция создает последовательность числ фибоначи которые вообщ то не повторяются потому что последовательность возрастающая. Повторения вообщем возможны изза того что integer это не безконечная последовательность, а кольцо, но дождаться результатов при таким образом построенной функции просто нереально
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.