Программа Калькулятор ,написанная мною за 20 минут:
То есть как обычный калькулятор.Пока не добавлял возведение в квадрат и извлечение из квадратного корня.
Ссылка:http://depositfiles.com/files/otao3k9qa
Операции
Умножить,разделить,прибавить,отнять.Дерзайте Добавлено (16.12.2010, 01:47)
---------------------------------------------
Программу написал на Паскале.В дальнейшем хочу перейти на делфи
Добавлено (09.01.2011, 15:20)
---------------------------------------------
Программа нахождения корней квадратного уравнения типа a*x*x+b*x+c=0
Program kvur;
Uses CRT;
Var a,b,c1,x1,x2,d:real;
Begin
TextBackground(blue);
TextColor(yellow);
Clrscr;
Write('Введите значение переменной a ');
Read(a);
Write('Введите значение переменной b ');
Read(b);
Write('Введите значение переменной c ');
Read(c1);
Writeln('Хорошо, высчитаем дискриминант...');
Writeln('Высчитываем по формуле d:=b*b-4*a*c');
d:=b*b-4*a*c1;
if d>0 then begin Writeln('Дискриминант равен ',d,'>0');
Writeln('Значит, уравнение имеет два корня.');
Writeln('Найдем эти корни...');
Writeln('Первый корень находим по формуле x1:=(-b+sqrt(d))/2*a');
Writeln('Второй корень находим по формуле x2:=(-b-sqrt(d))/2*a');
x1:=(-b+sqrt(d))/2*a;
x2:=(-b-sqrt(d))/2*a;
Writeln('Мы нашли корни...');
Writeln('Первый корень равен ',x1:2:3);
Writeln('Второй корень равен ',x2:2:3);
Writeln('Конец программы...');
end
else if d=0 then begin Writeln('Дискриминант равен ',d,'=0');
Writeln('Значит, уравнение имеет один корень.');
Writeln('Найдем его...');
Writeln('Найдем этот корень по формуле x1:=(-b)/2*a;');
x1:=(-b)/2*a;
Writeln('Мы нашли корень...');
Writeln('Корень равен ',x1:2:3);
Writeln('Конец программы...');
end
else begin Writeln('Дискриминант равен ',d,'<0');
Writeln('Значит, уравнение не имеет корней...');
Writeln('Конец программы...');
end;
Readkey;
End.
