Исполнитель чертёжник перемещается на координатной плоскости, оставляя след в виде линии. чертёжник может выполнять команду сместиться на (a, b) (где a, b — целые числа), перемещающую чертёжника из точки с координатами (x, у) в точку с координатами (x + а, у + b если числа a, b положительные, значение соответствующей координаты увеличивается; если отрицательные, уменьшается. например, если чертёжник находится в точке с координатами (4, 2), то команда сместиться на (2, −3) переместит чертёжника в точку (6, −1). запись повтори k раз команда1 команда2 командаз конец означает, что последовательность команд команда1 команда2 командаз повторится k раз. чертёжнику был дан для исполнения следующий алгоритм: повтори 5 paз сместиться на (0, 1) сместиться на (−2, 3) сместиться на (4, −5) конец каковы координаты точки, с которой чертёжник начинал движение, если в конце он оказался в точке с координатами (−1, −1)? 1) (−11, 4) 2) (4, −11) 3) (8, 22) 4) (22, 8)
Ответы
var
x, y, a, b, c, D, x1, x2: real;
inp: string;
inp_arr: array of string;
begin
writeln('a b c');
readln(inp);
inp_arr := inp.split(' ');
a := StrToFloat(inp_arr[0]);
b := StrToFloat(inp_arr[1]);
c := StrToFloat(inp_arr[2]);
D := b*b - 4 * a * c;
x1 := (-b + sqrt(D)) / 2*a;
x2 := (-b - sqrt(D)) / 2*a;
if x1 > x2 then x := x1
else x := x2;
if x < 0 then y:= (1 / (x + (sin(x)/(x*x+1
else y:= (x*x-1)*sin(x)/(x*x*x);
write('a:', a, ' b:', b, ' c:', c, ' x:', x, ' y:', y);
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
в чем ошибка в моей программе? Не выдает результат работы почему-то.
Автор: Aleks0091
Напишите программу, которая находит номер максимального элемента массива.
Автор: uglichwatch
Кто разбирается в информатике задание
Автор: tarkhanovilya
Авторское право можно нарушить используя либо программы и приложения типа Commercialware не приобретая на них лицензию, а использую пиратские версии, либо скачивая в сети интернет информацию, защищенную авторским правом и распространяемую без согласия автора, и нарушая действующее законодательство.
В целом все очень просто : используйте ПО имеющее лицензию Freeware или покупайте лицензию на платное ПО (сам например пользуюсь только Freeware ПО - вместо Microsoft Office использую OpenOffice, вместо Adobe Reader использую FoxitReader, вместо Winrar использую 7Zip и так далее..., а Windows 7 лицензия предустановленная фирмой).
Что касается мультимедийной информации - не качайте пиратки с торрентов, а покупайте лицензионные диски (нужно же как-то отблагодарить создателей любимого вашего фильма или любимого исполнителя музыки). Тогда ничего нарушать и не будете.