сервис вопросов и ответовнужно написать программу в ПАСКАЛЕ
5-9 класс|
|
Описать функцию Quarter(x, y) целого типа, определяющую номер координатной четверти, в которой находится точка с ненулевыми вещественными координатами (x, y). С помощью этой функции найти номера координатных четвертей для трех точек с данными ненулевыми координатами.
Olegovich25
22 дек. 2014 г., 3:08:53 (9 лет назад)
Lege4
22 дек. 2014 г., 4:36:49 (9 лет назад)
var
i: integer;
x,y:real;
function Quarter(x,y:real):integer;
begin
if (x>0) and (y>0) then result:=1;
if (x<0) and (y>0) then result:=2;
if (x<0) and (y<0) then result:=3;
if (x>0) and (y<0) then result:=4;
end;
begin
writeln('Введите координаты точки');
readln(x,y);
i:=Quarter(x,y);
writeln('Номер координатной четверти; ',i)
end.
Ответить
Другие вопросы из категории
калькулятор работающий в троичной системе счисления, имеет пять знакомест для вывода числа на экран. С каким самым большим числом можно работать на
этом калькуляторе
Каков результат выполнения приведенного ниже алгоритма для чисел 8, 5?
Начало
прибавь 23
прибавь 35
вычти 27
если полученное число больше 10,то прибавь 5
если полученное число четное, то раздели его на 2, если нечетное, то умножь на 2
сообщи результат
конец
ПОМОГИТЕ СОСТАВИТЬ БЛОК-СХЕМУ К ЭТОМУ АЛГОРИТМУ
сообщение занимает 6 страниц по 40 строк, в каждой строке записано по 60 символов. Информационный объем всего сообщения равен 28 800 байтов. сколько
двоичных разрядов было использовано для кодирования одного символа?
Читайте также
1)найти сумму первых k последовательных нечетных чисел. написать программу в паскале. 2)вывести на экран натуральные нечетные числа от 5 до 55.тоже
паскаль 3)найти произведение последовательных натуральных чисел от n до m. написать программу паскаль. 4)найти сумму последовательных натуральных чисел от 10 до 15.тоже паскаль
Помогите , пожалуйста . Нужно написать программу для Паскаль.
Ввести пять чисел и найти наибольшее из них.
Я тут написал кое-что ,но не знаю правильно ли :(
HELP ME.
program ru;
var a,b,c,d,e,max:integer;
begin
writln('Введите пять целых чисел');
if a>b then
begin
max:=a;
end
else begin
max:=b;
end;
if max>c then
begin
max:=max;
else begin
max:=c;
end;
if d>e then begin
max:=d;
end
else begin
max:=e;
end.
Ребят) Помогите с программой на Паскале, пожалуйстаа)
Нужно написать программу, которая выводит на экран все двухзначные числа, делящиеся на 3 или на 5 (использовать операции целочисленного деления div или mod)
Помогите написать программу для Паскаля.
1. Написать программу нахождения произведения n чисел.
нужно написать программу (packal abc). программа такая: введи три числа (неизвесно какие 3 числа (целые или вещественные) так что 6 чисел ну типа
такого: var a,b,c:(integer)-целые; l,k,n:(real)-вещественные), найти сумму первых двух чисел, частное второго и третьего числа и утроить сумму трёх чисел. мне нужно составить программу дальше я знаю только начало: program ur1; var a,b,c:integer; l,k,n:real; begin и всё я дальше не могу сделать, помогите полажуйста чем можете!
Вы находитесь на странице вопроса "нужно написать программу в ПАСКАЛЕ", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.