Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Abuzek
0 / 0 / 0
Регистрация: 08.04.2015
Сообщений: 5
#1

3и задачи по паскалю ABC - Pascal

27.04.2017, 22:21. Просмотров 172. Ответов 1
Метки нет (Все метки)

Написать программу определения местоположения точки (1e изображение)
Пример программы
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Program zad2;
Var x, y: Real;
       s: String;
Begin
Write('Введите координаты точки x и y: ');
ReadLn(x, y);
If (x = 0) And (y = 0)
Then s:= ' в начале координат'
Else If(y>x-1)and(sqr(x)+sqr(y)>1)and(x<0)                          
Then s:= ' в области М1'
Else If(sqr(x)+sqr(y)<1)and(sqr(x+1)+sqr(y+1)<1)        
Then s:= ' в области М2'
Else If(sqr(x)+sqr(y)<1)and(x>0)and(y<0)           
Then s:= ' в области М3'
Else If(y<0)and(y>x+1)                       
Then s:= ' в области М4'
Else If(x>0)and(y<x-1)                   
Then s:= ' в области М5'
Else s:= ' вне всех обозначенных областей';
WriteLn('Положение точки:', s);
ReadLn;
End.
Для рисунка 2

Задача 2
Для введенного с клавиатуры значения m вычислить сумму S значений функции Y=f(x):
http://www.cyberforum.ru/cgi-bin/latex.cgi?S=\sum_{m}^{i-1}lg\left(\frac{{x}^{2}+1}{(i-1)!} \right)

Задача 3
Дан вещественный массив x1,x2,…,xm. Найти число компонент, значения которых принадлежат отрезку [c, d], предшествующих первой по порядку отрицательной компоненте.

Добавлено через 8 минут
Миниатюра это рис 2
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.04.2017, 22:21
Я подобрал для вас темы с готовыми решениями и ответами на вопрос 3и задачи по паскалю ABC (Pascal):

Задачи по паскалю!! - Pascal
1) По заданным координатам вершин треугольника найдите длины медиан треугольника. 2) Составить программу, позволяющую определить для...

задачи по Паскалю. - Pascal
Помогите решить задачи. не получается никак

Задачи по Паскалю. - Pascal
люди добрые помогите с задачами в паскале. нужно составить программы. ну я в этом ничего не понимаю, кроме того как знаю что такое...

Задачи по паскалю - Pascal
Задание 1 : Напишите программу, позволяющую печатать геометрическую фигуру - квадрат, предварительно выбрав необходимые символы ...

Прошу помощи в описании процесса решения задач по паскалю (задачи решены) - Pascal
program zad1; var q,x,y:real; begin Write('Q = ');Readln(Q); Write('X = ');Readln(X); ...

Простые задачи по паскалю - Free Pascal
Все на скринах.

1
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
3749 / 2446 / 1306
Регистрация: 22.11.2013
Сообщений: 6,786
27.04.2017, 22:52 #2
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
0) Перечитать http://www.cyberforum.ru/announcement.php?a=3
1) Поместить каждую из задач в отдельной теме...
2) ... в соответствующем разделе: http://www.cyberforum.ru/pascalabc/

Справитесь?
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.04.2017, 22:52
Привет! Вот еще темы с ответами:

PASCAL ABC. ЗАДАЧИ НА ФОТО. ПОМОГИТЕ С УРОВНЕМ С - Pascal ABC
PASCAL ABC. ЗАДАЧИ НА ФОТО. ПОМОГИТЕ С УРОВНЕМ С

Нужно перевести графический режим турбо паскаля в паскаль ABC. Сам не могу разобраться с операторами ABC - PascalABC.NET
Uses crt, graph; Var a, b, { Границы отрезка } r, r2, { Предыдущее и текущее приближенные...

Перевести код Pascal ABC NET в Pascal ABC - Pascal ABC
Помогите, плиз Сделал на Pascal ABC NET, но нужно его открыть в обычном Pascal ABC. Не компилит этот код, помогите исправить. uses ...

Отмена задачи, запуск задачи после отмены, перезапуск уже запущенной задачи - C#
Добрый день. Сейчас разбираю TPL и у меня возник вопрос следующего содержания: у меня есть пример на Windows Forms с запуском и отменой...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Закрытая тема Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru