Информатика. Шевелев Г.Е. - 73 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

73
otvet:Char;
Begin {Начало основного блока программы}
Clrscr; {Очистка экрана}
Writeln(‘ Программа вычисления корней уравнения a*x^2 + b*x +c =
0’);
Repeat {Начало итерационного цикла с постусловием}
Write(‘Введите значение a=’); ReadLn(a); {Ввод коэффициента а}
If a=0 Then Writeln(‘Уравнение не квадратное’) Else
Begin
Write(‘Введите значение b=’);ReadLn(b);
Write(‘Введите значение c=’);ReadLn(c);
d:= b*b-4*a*c;
z:=-b/(2*a);
w:=sqrt(abs(d))/(2*a);
Writeln(‘При а= ’,a:5:2,’ b= ’,b:5:2,’ c= ’,c:5:2);
If d<0 Then
Begin
Writeln(‘x1= ‘,z:6:3,’+j*’,w:5:3);
Writeln(‘x2= ‘,z:6:3,’-j*’,w:5:3);
End
Else
Begin
x1:=z+w;x2:=z-w;
Writeln(‘x1= ‘,x1:5:2,’ x2= ‘,x2:5:2);
End
End;
Writeln(‘Желаете продолжить работу? (y/n)’);
Readln(otvet);
Until otvet<>’y’; {Повторять, пока переменная otvet примет значение
отличное от y}
Writeln(‘Спасибо, До свидания!’)
End.
4. Используя команду Save пункта меню File, запишите набранную Вами
программу на диск под именем KwUr1. Откомпилируйте исходную программу,
нажав комбинацию клавиш <Alt> + <F9> или при помощи мыши выполните
пункт меню Compile. Исправьте допущенные ошибки, если они будут
обнаруживаться транслятором при компиляции. После исправления ошибок
процесс компиляции надо повторять. При отсутствии ошибок будет выдано
сообщение: Compile successful: Press any key. В ответ надо нажать любую
клавишу и запустить программу на выполнение: <Ctrl> + <F9> или пункт меню
Run.
5. Для того чтобы, находясь в окне с исходной программой, посмотреть,
при необходимости, результаты расчетов, надо нажать <Alt> + <F5>.
Повторное нажатие этих клавиш снова откроет окно с программой.

Страницы