amramzi
?>

Построить таблицу значений функции у=х^3+2 для значений аргументов от -3 до 3 с шагом 0, 5. постройте график функции. заданние выполнить в exel

Информатика

Ответы

kulikovtsud
1.
var k, l, m, n: integer;
begin
  readln(k,l,m,n);
  if (k+l+m+n mod 2 = 0) then
    writeln('поля одного цвета')
  else
    writeln('поля разных цветов')
end.

2.
uses crt; {В зависимости от компилятора эта строчка может оказаться лишней}
var question, answer: integer;
begin
  randomize();
  question := random(100);
  writeln(question);
  readln(answer);
  if (question+answer=100) then
    writeln('Not bad')
  else
    writeln('Oops. Right answer is ', 100-question)
end.
oknacrow
Содержит программное обеспечение, достаточное для получения рабочей системы, включая текстовый редактор и основные коммуникационные программы.
AP Различные приложения, для работы которых не требуется система X Window.
D Инструменты для разработки программ. Компиляторы, отладчики, интерпретаторы и страницы руководства.
E Текстовый редактор Emacs от GNU.
F Документы FAQ, HOWTO и другая разнообразная документация.
GNOME Среда рабочего стола GNOME.
K Исходный код ядра Linux.
KDE Среда рабочего стола KDE (K Desktop Environment). Графическая среда с оформлением и внешнем виде в стиле MacOS и Windows. В этой категорию также входит библиотека Qt, необходимая для работы KDE.
KDEI Пакеты с локализацией настольной среды KDE.
L Библиотеки. Динамически подключаемые библиотеки, необходимые для работы многих программ.
N Сетевые программы. Демоны, почтовые клиенты, telnet, клиенты чтения новостей и т.п.
T Система форматирования документов teTeX.
TCL Язык TCL (Tool Command Language). Tk, TclX и TkDesk.
X Базовый комплект для системы X Window.
XAP Графические приложения, не являющиеся частью больших настольных сред (например, Ghostscript и Netscape).
Шеина
1. "Школьное" решение
// PascalABC.Net 3.0, сборка 1064
var
  i,n1,n2:integer;
  s:longint;
begin
  Write('Введите интервал для вычисления суммы: '); Read(n1,n2);
  s:=0;
  if n1 mod 2 = 0 then i:=n1 else i:=n1+1;
  while i<=n2 do begin s:=s+i; i:=i+2 end;
  Writeln('Сумма четных чисел в интервале равна ',s)
end.

Тестовое решение:
Введите интервал для вычисления суммы: 7 14
Сумма четных чисел в интервале равна 44

2. Современное решение
// PascalABC.Net 3.0, сборка 1064
var
  n1,n2:integer;
begin
  Write('Введите интервал для вычисления суммы: '); Read(n1,n2);
  if Odd(n1) then Inc(n1);
  Writeln('Сумма четных чисел в интервале равна ',Range(n1,n2,2).Sum);
end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Построить таблицу значений функции у=х^3+2 для значений аргументов от -3 до 3 с шагом 0, 5. постройте график функции. заданние выполнить в exel
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

druzhbamagazin2457
avdeevo
pizniak
simonovaliubov5852
morozov1605
Евгения-Валерий
Ruslan Zarekovkin
Гаврилаш
KonovalovKonstantinovna1306
Pavel1545
stendpost
Vladimir1172
kate281078
лукашова940
Alyona