Программа должна: запросить начальное количество особей и вычислить предполагаемую численность некоторой популяции животных через 5 лет, если ежегодный прирост составляет 5% особей (для) (с комментариями).
Var a,b,c,x,y:real; begin Write('Введите a и b: '); Read(a,b); repeat Write('Введите c, не равное нулю: '); Read(c) until c<>0; x:=2*sqr(a)-b/(3*c); { Если Вы относитесь к людям, ненавидящим скобки и тех, кто решает Ваши задания, то в Вашем условии на 3а делится все выражение, и тогда предыдущая строка должна иметь вид x:=(2*sqr(a)-b)/(3*a); } if x>=0 then begin y:=sqrt(x+sqr(c))+4*a*b; Writeln('x=',x,', y=',y) end else Writeln('x=',x,', y вычислить нельзя, под корнем отрицательное значение') end.
Тестовое решение: Введите a и b: 3.4 -2.18 Введите c, не равное нулю: 0 Введите c, не равное нулю: 5.172 x=23.2605001288992, y=-22.5762191684909
Будущее. Оно может быть разным, и предсказать то, что будет практически невозможно. В последнее время техника стала чуть ли не основой современной жизни, ведь без неё мы уже никак не можем обойтись. Компьютеры стали для нас чем-то обычным, и нас уже ими не удивишь. Я считаю, что в будущем компьютеры будут более усовершенствованными и практичными и компактными, у них будет гораздо больше функций, и они будут более мощными. Возможно, они будут даже совмещены с каким-нибудь другим прибором подобного назначения. Не нужно быть знатоком, чтобы понять, что прогресс не стоит на месте, а это значит, что и с технической точки зрения тоже всё меняется. Возможно, когда-нибудь даже появятся такие компьютеры, которые можно будет назвать живыми, то есть их функции можно будет сравнивать с силой человеческого разума. Но это только мои предположения, некоторые из которых мне кажутся верными.
a,b,c,x,y:real;
begin
Write('Введите a и b: '); Read(a,b);
repeat
Write('Введите c, не равное нулю: ');
Read(c)
until c<>0;
x:=2*sqr(a)-b/(3*c);
{
Если Вы относитесь к людям, ненавидящим скобки
и тех, кто решает Ваши задания, то в Вашем условии
на 3а делится все выражение, и тогда предыдущая строка
должна иметь вид x:=(2*sqr(a)-b)/(3*a);
}
if x>=0 then
begin y:=sqrt(x+sqr(c))+4*a*b; Writeln('x=',x,', y=',y) end
else
Writeln('x=',x,', y вычислить нельзя, под корнем отрицательное значение')
end.
Тестовое решение:
Введите a и b: 3.4 -2.18
Введите c, не равное нулю: 0
Введите c, не равное нулю: 5.172
x=23.2605001288992, y=-22.5762191684909