Pascal.
составить программу, заполняющую массив из 42 элементов целыми числами, кратными 7.

pascalabc.net

begin

    var a : = arrgen(42, i -> 7 * i, 1);

    a.println

end.

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

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