Алгори́тм — набор инструкций, описывающих порядок действий исполнителя для достижения некоторого результата.
//Pascal ABC.NET 3.1 сборка 1256
Var
s:string;
a,b:real;
begin
readln(s);
a:=strtofloat(copy(s,1,pos('X',s)-1));
b:=strtofloat(copy(s,pos('=',s)+1,length(s)-pos('=',s)));
if (a=0) and (b=0) then
begin
writeln('X-любое действительное число');
exit;
end
else
if a=0 then
begin
writeln('Нет корней');
exit;
end;
writeln(b/a);
end.
Пример ввода:
-0.1X=10
Пример вывода:
-100
Персональный компьютер, текстовые процессоры, электронные таблицы
program q;
var
a: integer;
b: real;
begin
b := 0;
read(a);
b := (a div 10 + a mod 10) / 2;
writeln(b);
end.
На Pascal'e
*Проверил*
Информационные системы создаются под конкретную задачу. Пример для простой задачи печати визиток для небольшой фирмы в несколько сот человек. Работа с базой возможна как двойным щелчком по выделенной строке, так и кнопкой перехода. Защита без пароля. Защиту в рабочем режиме не снимайте, чтобы не повредить формулы связи с базой.