Память является инструментом информации

Память является инструментом  хранения информации

урок   "решение квадратного уравнения"

 

1.   составить блок-схему и программу, находящие корни квадратного уравнения

ax2 + bx + c = 0

блок-схема

программа     на   бейсик

 

print   “решение квадратного уравнения“

 

input   “ввести a, b, c:   “, a, b, c

 

d = b * b – 4 * a * c

 

if d> =0

then х1=(-b-sqr(d))/(2*a) : х2=(-b+sqr(d))/(2*a) : print “х1=“, х1, “ х2=“, х2    

else   print “действительных корней нет “

 

 

 

запустите программу на выполнение и решите следующие квадратные уравнения:

а)   1125 х2 - 45 х - 324 = 0

б) 502 х2   - 38,5 х + 12,125 = 0

в) 16 х2   - 256 х + 1024 = 0

 

 

2.   составить блок-схему и программу, определяющие количество корней квадратного уравнения

ax2 + bx + c = 0

 

 

программа     на   бейсик

 

print   “количество корней квадратного уравнения“

 

input   “ввести a, b, c:   “, a, b, c

 

d = b * b – 4 * a * c

 

 

if   d > = 0   then

if   d > 0 then print “2 разных корня“ else print “2 одинаковых корня“

                    else   print “действительных корней нет“

 

 

 

запустите программу на выполнение и определите количество корней в следующих квадратных уравнениях:

а)   1125 х2 - 45 х - 324 = 0

б) 502 х2   - 38,5 х + 12,125 = 0

в) 16 х2   - 256 х + 1024 = 0

 

 

3*.   составить блок-схему и программу, определяющие имеет ли квадратное уравнение ax2 + bx + c = 0 хотя бы один корень, больший числа m.  

   

 

запустите программу на выполнение и определите имеется ли корень в следующих квадратных уравнениях:

а)   1125 х2 - 45 х - 324 = 0               при   m =   0

б) 502 х2   - 38,5 х + 12,125 = 0       при   m = 15

в) 16 х2   - 256 х + 1024 = 0             при   m = 7

 

function sumdigit(n: integer): integer;

begin

  result : = 0;

  var s : = n.tostring;

  for var i : = 1 to s.length do

    result += s[i].todigit;

end;

begin

  var n : = readinteger();

  var sumn : = sumdigit(n);

  var found : = false;

  for var i : = 1 to n - 1 do

    if sumdigit(i) = sumn then

    begin

      print(i);

      found : = true

    end;

  if not found then print('нет')

end.