Наверно библиотека, 10 букв.
//Код Pascal:
Var
f:text;
a,b,c,D:real;
Begin
Assign(f,'kvur.txt');
Reset(f);
ReadLn(f,a,b,c);
Close(f);
Assign(f,'korni.txt');
Rewrite(f);
D:=b*b-4*a*c;
c:=(-b-Sqrt(D))/(2*a);
a:=(-b+Sqrt(D))/(2*a);
if D >= 0 then
Begin
WriteLn(c,' ',a);
WriteLn(f,c,' ',a)
End
else
Begin
WriteLn('Действительных корней нет.');
WriteLn(f,'Действительных корней нет.')
End;
Close(f);
ReadLn;
End.
Для корректной работы программы файлы должны находиться в одной папке с программой.
3) Получение. Когда читаем что-либо мы получаем информацию.
Это событие нажатия на кнопку, которая находится на Form1.
program tri_chisla;
var a,b,c:integer;
begin
writeln ('Vvedit tri chisla a,b,c');
readln (a,b,c);
If (a<b) and (a<c) then
writeln ('Naymenshim chislom e - ',a)
else begin If (b<a) and (b<c) then
writeln ('Naymenshim chislom e - ',b)
else begin If (c<b) and (c<a) then
writeln ('Naymenshim chislom e - ',c) end; end;
//Я немного не понял какую именно блок схему тебе нужно.
readln
end.