Підсумкова контрольна робота з теми "Turbo Pascal" за методикою виправлення помилок

Відображення документу є орієнтовним і призначене для ознайомлення із змістом, та може відрізнятися від вигляду завантаженого документу. Щоб завантажити документ, прогорніть сторінку до кінця

Перегляд
матеріалу
Отримати код Поділитися

Законспектувати та виділити помилки у програмі. Помилки орфографії не враховувати.

Всього помилок – 24. Ціна 1 помилки – 0,5 бала.

Program program1;

 Var a, b, c, Root1, Root2: Real;

Var Discriminant , Solution: Integer;  

 Begin

Write(’Введите коэффициенты уравнения ’);

Readln(a, b) ;

Discriminant := Sqr(b)–4a*c;

If Discriminant<0 then Solution:=0;

else If Discriminant=0 then

Solution = 1;

Root1 := –b/a;

Writeln (’ х1= ’ Root1) end.

else

begin

Solution := 2;

Root1 :=(–b+Sqrt(Discriminant)/(2*a);

Root2 :=(–b–Sqrt(Discriminant)/(2*a);

Writeln(’ х1= ’, Root1, х2=, Root2)

end ;

Writeln(’ Количество решений равно: ’, Solution)

End.

Program Intersection;

var а1, b1, с1, a2, b2, с2, x: real;

Begin

CIrScr;

Textcolor(16)

write('Введите а1, b1, с1:’);

readln( а1, bl, с1);

write('Введите a2, b2, с2 : ')

readln( a2, b2, с2);

backroundcolor(3);

Write('0 т в е т : ');

If ((a1=0) and (b1=0) ) or ( (a2=0) and (b2=0) then writeln( 'это не прямая (прямые).’)

else

if (a1*b2=a2*b1) and (a 1*c2=a2*c1) then writeln( 'прямые совпадают.' )

else

if a1*b2 = a2*b1 then writeln('пpямыe параллельны.')

else

begin

x:=(c1*b2-c2*b1)/(b1*a2-b2*a1);

y:=(c2*a1-c1*a2)/(b1*a2-b2*a1);

writeln(‘Координаты точки пересечения: х= ’,x:0:0, ‘, y= ‘, y:5:2);

end.

readkay;

End.

Зверніть увагу, свідоцтва знаходяться в Вашому особистому кабінеті в розділі «Досягнення»

Курс:«Інтегрований курс «Мистецтво»: теоретико-прикладний аспект»
Просіна Ольга Володимирівна
36 годин
590 грн
395 грн

Всеосвіта є суб’єктом підвищення кваліфікації.

Всі сертифікати за наші курси та вебінари можуть бути зараховані у підвищення кваліфікації.

Співпраця із закладами освіти.

Дізнатись більше про сертифікати.