PascalABC.NET

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
PascalABC.NET Будет ли полезна такая библиотека? https://www.cyberforum.ru/ pascalabc-net/ thread1685675.html Library PasStudLib; Uses crt,GraphABC, AbcOBJECTS, AbcButtons; B:array of ButtonABC; Index,XS,YS:integer; ///процедура создания простой кнопки procedure Button(text_:string); Begin SetLength(B,Index+1); B:=new Button(XS,YS,100,40,text_,clgray);	Вычисление суммы ряда с заданной точностью PascalABC.NET помогите пожалуйста вычислить сумму чисел 1-1/3+1/5-1/7+1/9 с точностью до п/4 есть начало программы PROGRAM ex1; VAR S,N:INTEGER; BEGIN S:=0; N:=1; WHILE S<=PI/4 DO BEGIN S:=1/(2*N-1)+S
PascalABC.NET Найти минимальную сумму четных положительных элементов, распложенных в нечетных строках матриц (процедуры) Даны четыре массива A, B, C, D. Найти минимальную сумму четных положительных элементов, распложенных в нечетных строках массивов, в чем проблема? не могу найти ошибку program lab_6_8; uses crt; const n=5; type matrix=array of integer; var i,j:integer; min:integer; a,b,c,d:matrix; https://www.cyberforum.ru/ pascalabc-net/ thread1685480.html	PascalABC.NET Найти в строках количество символов, являющимися знаками препинания (через процедуру) https://www.cyberforum.ru/ pascalabc-net/ thread1685449.html Даны 4 строки. Найти количество символов, являющимися знаками препинания. Как сделать через процедуру ?
PascalABC.NET Найти три минимума в массиве уважаемые форумчане, дана задача мне, найти три минимума в массиве. дословное условие: "Напишите программу, которая находит в массиве три минимальных элемента, то есть три первых элемента массива после сортировки по возрастанию. Входные данные Первая строка содержит размер массива N . Во второй строке через пробел задаются N чисел – элементы массива. Гарантируется, что 3 < N...	PascalABC.NET Вычисление таблицы значений функции https://www.cyberforum.ru/ pascalabc-net/ thread1685187.html Помогите составить программу на Pascal для вычисления таблицы значений функции y = (x + 1) / (sqrt (4-x * x)), если х изменяется от a до b с шагом h(Границы интервала a и b и шаг h вводит пользователь). Внимание! В программе надо учитывать область определения функции - то есть те значения х, при которых функция не имеет значения. Для этого в цикле используйте оператор IF ... THEN ... ELSE и...
PascalABC.NET Перемещение стен (камеры) при изменении положения объекта https://www.cyberforum.ru/ pascalabc-net/ thread1685181.html Сделал программу, которая из файла загружает в графическое окно карту (Карта, то есть стены, состоит из отдельных частей - квадратов. Чтобы изменить карту, в файле file.ini первой строкой указать ширину карты, второй - длину, затем "нарисовать" её символами # и S, где #-стена, а S-объект) и положение объекта-квадрата, которым можно управлять (W-прыжок, A-влево, D-вправо). Всё работает нормально,...	PascalABC.NET Перевод из turbo pascal в abc.net Помогите адаптировать программу для abc.net из turbo pascal Program transportnaj_zadatsha; Uses Crt; Label l1; Const N=10; n1=7; n2=7; Sa:longint=0; Sb:longint=0;
PascalABC.NET Определить, у какого из прямоугольников площадь больше Два прямоугольных треугольника заданы своими катетами. Определить, у какого из них площадь больше (создать ПРОЦЕДУРУ для вычисления площади прямоугольного треугольника по его катетам). https://www.cyberforum.ru/ pascalabc-net/ thread1685064.html	PascalABC.NET Установить картинку в качестве фона формы https://www.cyberforum.ru/ pascalabc-net/ thread1685023.html Как сделать на форме фон? Добавлено через 1 минуту Уже сам разобрался MainForm.BackgroundImage:=new System.Drawing.Bitmap('123.bmp');
PascalABC.NET Вычислить результат выражения по заданному n	PascalABC.NET Вывести на экран всевозможные комбинации кроликов и гусей https://www.cyberforum.ru/ pascalabc-net/ thread1684967.html Написать программу, которая выводит на экран всевозможные комбинации кроликов и гусей так, чтобы общее количество лап было равно 64. Считается, что у кроликов 4 лапы, у гусей 2 лапы.

Peoples

1624 / 954 / 782

Регистрация: 06.02.2016

Сообщений: 2,452

Записей в блоге: 31

15.03.2016, 19:41

Вычислить значение выражений - PascalABC.NET - Ответ 8886518

15.03.2016, 19:41. Показов 899. Ответов 1

Метки (Все метки)

Сообщение было отмечено cybergamer как решение

Решение

а.

Pascal

program pr;
 
var
  y, x: real;
 
begin
  writeln('Введите действительное число x');
  readln(x);
  if ((x >= -2) and (x < 2)) then
    y := x * x
  else 
    y := 4;
  writeln('f(x) = ', y);
end.

б.

Pascal

program pr;
 
var
  y, x: real;
 
begin
  writeln('Введите действительное число x');
  readln(x);
  if (x<=2) then
    y := x * x+4*x+5
  else 
    y := 1/(x * x+4*x+5);
  writeln('f(x) = ', y);
end.

Вернуться к обсуждению:
Вычислить значение выражений PascalABC.NET

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

15.03.2016, 19:41

Готовые ответы и решения:

Вычислить значение выражений
Дано вещественное число a. Вычислить: ln(1+sin...

Вычислить значение выражений
Вычислить значение выражения: б) (p< true)= (q=false) при р=q=true; в) a and b > a or b при...

Вычислить значение логических выражений
Вычислить значение логических выражений при следующих значениях логических переменных: X=0,Y=1,Z=0....

Вычислить значение выражений
код и блок схема

	15.03.2016, 19:41

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

15.03.2016, 19:41

Помогаю со студенческими работами здесь

Вычислить значение выражений
Вычислить значение Y= 18,9X2-1,6X+1,97, если X<0 и Z=9,75X2-0,35arctg x, если X≥0. ...

Вычислить значение выражений
Здравствуйте дорогие программисты. Я нуждаюсь в вашей помощи в написания программ на паскале

Вычислить значение выражений
Помогите пожалуйста с задачей:) Заранее Большое спасибо вам! Вычислить значения выражений,...

Вычислить значение выражений
Добрый день ребят. 3. (Pascal): Вычислить значение выражений: a) not odd (n) при n = 0; б) t...

Вычислить значение выражений.
Ку всем , кто шарит в этом ? нужно в паскале абс Очень благоdарен буdу

вычислить значение выражений
a=(x^3)/ctg(sqrt(y-1))

Наверх