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

Составить программу. паскаль вывести на экран номер четверти, которой принадлежит точка с координатами (х; у) . напишите

👇
Ответ:
Volosyaka
Volosyaka
03.08.2020
Var
x,y:real;
begin
writeln('Введите x и y: ');
readln(x);
readln(y);
if (x>0) and (y>0) then
  begin
    writeln('Первая четверть');
  end;
if (x<0) and (y>0) then
  begin
    writeln('Вторая четверть');
  end;
if (x<0) and (y<0) then
  begin
    writeln('Третья четверть');
  end;
if (x>0) and (y<0) then
  begin
    writeln('Четвертая четверть');
  end;
End.
4,6(39 оценок)
Открыть все ответы
Ответ:
мам65
мам65
03.08.2020

1.Сымсыз технология ақпараттар технологияның негізі.Негізгі қызметі бір н/е бірнеше нүктелер арасындағы қашықтыққа сымсыз ақпарат тасымалдау болып табылады.

2.Технологияға байланысты сымсыз желіні үш түрге бөлуге болады:

- жергілікті есептеуіш желі;

- кенейтілген жергілікті есептеуіш желі;

- мобильді желі (тасмалданатын компьютер).

3.Wi Fi – ағылшын тілінен аударғанда «сымсыз нүкте» деген ұғымды білдіреді. Ол – белгілі нысандарда (ертеде салынған тарихи ғимарат болуы мүмкін) кабельді жүйені тарту мүмкін болмаған жағдайда немесе экономикалық жағынан тиімсіз болғанда орнатылатын қондырғы. Ұялы телефондарға қарағанда, ол әлемнің барлық елдерінде бірдей жұмыс істейді. Қазіргі уақытта ғаламторға кабельсіз ену нүктесі көптеген мекеме-ұйымдарда қолданысқа енгізілген.

4.Bluetooth - мобильді телефондар, компьютерлер және перифериялық құрылғылар сияқты қысқа қашықтықтағы деректерді немесе дауысты сымсыз жіберуге мүмкіндік беретін қысқа ауқымды сымсыз байланыс технологиясы . Bluetooth-дың мақсаты - әдетте құрылғылармен байланыстыратын кабельдерді алмастыру, ал олардың арасындағы қарым-қатынастарды қауіпсіз ету.

5.WiMAX технологиясы, сымсыз байланысты қоныстанған ауданның түгелдей аймағына орната алады. Сонымен қатар жаңа қосылыстарға шығынды азайтады. Бүгінгі таңда, бір объектінің қосылуына бірнеше айлар кетсе, WiMAX – тың арқасында, бұл процесс бірнеше сағат немесе күнге дейін қысқарады.

4,6(74 оценок)
Ответ:
madinaseidahmet
madinaseidahmet
03.08.2020
1. "Школьное" решение

// PascalABC.NET 3.0, сборка 1073
const
  sb='bcdfgjklmnpqrstvwxz';
  s='Computer programming is a process of computer programs creation';
var
  i,n:integer;
  s1,sn,t:string;
begin
  i:=1;
  while s[i]<>' ' do Inc(i);
  s1:=Copy(s,1,i-1);
  n:=Length(s); i:=n;
  while s[i]<>' ' do Dec(i);
  sn:=Copy(s,i+1,n-i);
  t:='';
  for i:=1 to Length(s1) do
    if Pos(s1[i],sb)>0 then t:=t+s1[i];
  s1:=t;
  t:='';
  for i:=1 to Length(sn) do
    if Pos(sn[i],sb)>0 then t:=t+sn[i];
  sn:=t;
  t:='';
  for i:=1 to Length(s1) do
    if Pos(s1[i],sn)>0 then
      if Pos(s1[i],t)=0 then t:=t+s1[i];
  for i:=1 to Length(t) do Write(t[i],' ');
  Writeln
end.
 
Тестовый прогон:
t r

2. "Нормальное" решение

// PascalABC.NET 3.0, сборка 1073
const
  sb='bcdfgjklmnpqrstvwxz';
  s='Computer programming is a process of computer programs creation';
begin
  var a:=s.ToWords(' ');
  a[0].Intersect(a[a.Length-1]).Where(x->Pos(x,sb)>0).Println(',')
end.

Тестовый прогон:
t,r
4,7(96 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ