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

Pascal даны координаты точки, не лежащей на координатных осях ox и oy. определить номер координатной четверти, в которой находится данная точка.

👇
Ответ:
InfoChan
InfoChan
30.11.2020
Var X,Y:real;
Begin
Write('X = ');
ReadLn(X);
Write('Y = ');
ReadLn(Y);
if X>0 then
   if Y>0 then Write('Первая четверть')
   else Write('Вторая четверть')
else
   if Y<0 then Write('Третья четверть')
   else Write('Четвёртая четверть')
End.
4,6(17 оценок)
Открыть все ответы
Ответ:
Tori1111111
Tori1111111
30.11.2020
Case понимает только integer, т.е можно написать:
case A of
  1 : bla
  2 : bla-bla
end;
такое выражение выдаст ошибку:
case A of
  'sin' : bla
  'cos' : bla-bla
end;
т.к в данном случае используется string вместо integer;
если делается калькулятор в одно действие (число - знак - число, пример: 2 + 3), то можно сделать так:
if znak = 'sin' then 
  result := sin(number)
else
if znak = 'cos' then
  result := cos(number)
... (другие условия)
Если же создаётся калькулятор с неограниченным числом параметров (2 + 5 * 4 / 5), то имеет смысл найти парсинга математических выражений
Вроде всё

var
  num : integer;
begin
  readln(num);
  case num of
    1 : bla (понедельник)
    2 : bla-bla (вторник)
    ...
    6 : bla-bla-bla (суббота)
  end;
end.
4,7(64 оценок)
Ответ:
Fantom792
Fantom792
30.11.2020

Потребность считать возникала у людей вместе с появлением цивилизации. Им было необходимо осуществлять торговые сделки, проводить землемерные работы, управлять запасами урожая, следить за астрономическими циклами. Для этого издревле были изобретены различные инструменты, от счётных палочек и абака, в ходе развития науки и техники эволюционировавшие в калькуляторы и разнообразные вычислительные устройства, в том числе и персональные компьютеры. В 1950-60х годах компьютеры были доступны только крупным компаниям из-за своих размеров и цены. В конкурентной борьбе за увеличение продаж фирмы, производящие компьютеры, стремились к удешевлению и миниатюризации своей продукции. Для этого использовались все современные достижения науки: память на магнитных сердечниках, транзисторы, и наконец микросхемы. К 1965 году мини-компьютер PDP-8 занимал объём, сопоставимый с бытовым холодильником, стоимость составляла примерно 20 тыс. долларов, кроме того, наблюдалась тенденция к дальнейшей миниатюризации. Kenbak-1 Digital Computer известен многим как действительно один из первых в мире персональных компьютеров, коммерческая модель. Сейчас этот ПК выставлен на продажу. Впервые устройство ценой в $750 было представлено Джоном Бланкенбекером в 1971 году, за много лет до появления Altair 8800 и Apple I. Правда, до него был выпущен Datapoint 2200.

Создатель KEnbak-1 позиционировал свое устройство, как образовательную систему, позволяющую школьнику или взрослому человеку научиться началам программирования. Процессора здесь не было, а объем ОЗУ — всего 256 байт. Всего было произведено 50 таких устройств, некоторые из которых сейчас появляются на аукционах и в музеях «железа».

Выбери то что тебе нужно!

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