М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
SkeetNZ
SkeetNZ
01.01.2021 06:46 •  Информатика

На плоскости хоy задана своими координатами точка а. указать, где она расположена (на какой оси или в каком координатном угле) решить в паскале 1 этап постановка величины: исходные данные: результат: 2 этап формализация: 3 этап переменные: начало 4 этап programm project var: заполните знаки вопроса

👇
Ответ:
Maksim55666
Maksim55666
01.01.2021

1 постановка задачи

исходные данные Х,У

результат: текст1 или текст2 или текст3 или текст4 или текст5 или текст6 или текст7

2.Формализация

если (x=0) and (y=0) то вывод  текст1 ('это начало координат');
если (y=0) and (x<>0 )  то вывод текст2 ('точка лежит на оси OX');
если (y<>0) and (x=0 )  то вывод текст3 ('точка лежит на оси OY');
если (y>0) and (x>0 )  то вывод текст4 ('точка в  1 четверти');
если  (y>0) and (x<0 )  то вывод текст5 ('точка во 2 четверти');
если (y<0) and (x<0 )  то вывод текст6 ('точка в 3 четверти');
если (y<0) and (x>0 ) то вывод текст7 ('точка в 4 четверти')сли

var
x,y: integer;
begin
writeln ('ââåäè êîîðäèíàòû òî÷êè x,y');
read (x,y);
if (x=0) and (y=0) then writeln (''это начало координат');
if (y=0) and (x<>0 )  then  writeln ('точка лежит на оси OX');
if (y<>0) and (x=0 )  then  writeln ('точка лежит на оси OY');
if (y>0) and (x>0 )  then  writeln ('точка в  1 четверти');
if (y>0) and (x<0 )  then  writeln ('точка во 2 четверти');
if (y<0) and (x<0 )  then  writeln ('точка в 3 четверти');
if (y<0) and (x>0 )  then  writeln ('точка в 4 четверти')
end.


4,7(36 оценок)
Открыть все ответы
Ответ:
summercik2009oziid6
summercik2009oziid6
01.01.2021
Var
A,B,C:integer;
Begin
C:=365;
Read(A,B);
if A>1 then C:=C-31;
if A=1 then C:=C-B;
if A>2 then C:=C-28;
if A=2 then C:=C-B;
if A>3 then C:=C-31;
if A=3 then C:=C-B;
if A>4 then C:=C-30;
if A=4 then C:=C-B;
if A>5 then C:=C-31;
if A=5 then C:=C-B;
if A>6 then C:=C-30;
if A=6 then C:=C-B;
if A>7 then C:=C-31;
if A=7 then C:=C-B;
if A>8 then C:=C-31;
if A=8 then C:=C-B;
if A>9 then C:=C-30;
if A=9 then C:=C-B;
if A>10 then C:=C-31;
if A=10 then C:=C-B;
if A>11 then C:=C-30;
if A=11 then C:=C-B;
if A>12 then C:=C-31;
if A=12 then C:=C-B;
Write(C);
End.
4,5(18 оценок)
Ответ:
koli17
koli17
01.01.2021
var a, d, count, i: integer;   function CountDay(a: integer): integer; begin   if (a >= 1) then countday := 31;   if (a >= 2) then countday := 28;   if (a >= 3) then countday := 31;   if (a >= 4) then countday := 30;   if (a >= 5) then countday := 31;   if (a >= 6) then countday := 30;   if (a >= 7) then countday := 31;   if (a >= 8) then countday := 31;   if (a >= 9) then countday := 30;   if (a >= 10) then countday := 31;   if (a >= 11) then countday := 30;   if (a >= 12) then countday := 31; end;   begin   count := 0;   write('Введите месяц: ');   readln(a);   write('Введите день: ');   readln(d);   if (a <= 0)or(a > 12)or(d <= 0)or(d > countday(a)) then     writeln('Ошшибка в данных!')   else   begin     for i:=a to 12 do       count := count + countday(i);       count := count - d;       writeln('До нового года осталось ', count, ' дней.');   end; end.
4,4(57 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ