Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Pascal ABC
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
Другие темы раздела
Pascal ABC Сделать две блок схемы https://www.cyberforum.ru/ pascalabc/ thread1058797.html
Сделайте пожалуста блок-схемы этих прог, оч надо program zada4a_1; var mas: array of real; i,n: integer; sr,kolvo,summa,min: real; begin Write('Колличество элементов='); read(n); kolvo:=0; summa:=0; 		Определить количество строчных и прописных букв в слове Pascal ABC
эта программа определяет количество строчных и прописных букв в слове. Если больше прописных чем строчных, то она преобразовывает следующим образом; после каждой прописной буквы записывает её номер в скобочках. В противном случае преобразует их в строчные. программа готовая , но она работает только с текстом на русском языке. мне нужно чтобы она работала либо на английском, либо на обоих...
Pascal ABC Создание модуля на основе готовой спецификации Напишите модуль для работы с комплексными числами. Реализуйте две подпрограммы: вычитание и деление.Комплексные числа храните в массиве длины. 2. Для этого создайте пользовательский тип complex (в проивном случае передать праметры в процедуру и из процедуры будет невозможно).Описание процедур:procedure sub (a,b:complex; var c: complex); (a и b - исходные данные, с - результат) и function div... https://www.cyberforum.ru/ pascalabc/ thread1058730.html Pascal ABC Типизированные файлы + массивы https://www.cyberforum.ru/ pascalabc/ thread1058709.html
Сформировать матрицу N M A × , вывести её. Получить из матрицы файлы F1, F2 и F3, записывая в F1 строку, а в F2 столбец, содержащие максимальный элемент матрицы. В F3 записать строку, и столбец в обратном порядке. Файлы вывести используя процедуру. Вот я сделал самую малость, ввод и вывод матрицы. Хоть мальца подмогните с дальнейшим решением. program ABC; const Nmass=10; var A:array of...
Pascal ABC В массиве A найти максимальный отрицательный элемент и заменить его значением первого нулевого элемента
Помогите пожалуйста . срочно нужно !!! В массиве A найти максимальный отрицательный элемент и заменить его значением первого нулевого элемента 		Pascal ABC Разработка программ создания, корректировки и просмотра типизированных файлов https://www.cyberforum.ru/ pascalabc/ thread1058697.html
Тема: Разработка программ создания, корректировки и просмотра типизированных файлов Задание: В справочной аэропорта хранится расписание вылета самолетов на следующие сутки. Для каждого рейса указаны номер рейса, тип самолета, пункт назначения, время вылета. Имеются справочники по расстояниям между всеми возможными пунктами назначения и по расходу горючего на тысячу километров для каждого...
Pascal ABC Текст в файле :В науке есть радость. Наука приносит удовольствие. Используя функции обработки строковых и символьных переменных скорректировать текст https://www.cyberforum.ru/ pascalabc/ thread1058639.html
Текст в файле :В науке есть радость. Наука приносит удовольствие. Используя функции обработки строковых и символьных переменных скорректировать текст на : В науке есть радость, она приносит удовольствие. Плиз напишите программу на Pascal ABC. 		Найти зависимость угла отклонения подвеса и времени подъёма груза Pascal ABC
1. Грузу, закреплённому на невесомом жёстком подвесе длиной L = 0,5 м, сообщается начальная скорость в перпендикулярном к подвесу направлении. Найти зависимость угла от¬клонения подвеса и времени подъёма груза от начальной скорости в интервале (0. vmax). где Vmax - скорость, при которой >тол отклонения подвеса близок к 180°. Построить графики. Для каждой задачи создавайте отдельную тему
Pascal ABC Определить количество четных отрицательных чисел которые делятся на 3 без остатка https://www.cyberforum.ru/ pascalabc/ thread1058511.html
дано 10 целых чисел определить количество четных отрицательных чисел которые деляться на 3 без остатка 		Pascal ABC Найти сумму арифметической прогрессии до определённого числа А1=1 Последний член= 2п-1 Найти сумму арифметической прогрессии до определённого числа A1=1 Последний член= 2n-1 https://www.cyberforum.ru/ pascalabc/ thread1058486.html
Pascal ABC Метод дихотомии для минимизации функции
Помогите пожалуйста,не могу понять алгоритм реализации)буду очень благодарна за помощь 		Pascal ABC Дан массив. Каждый его элемент, больший 4, заменить на его квадрат https://www.cyberforum.ru/ pascalabc/ thread1058437.html
дан массив. каждый его элемент,больший 4, заменить на его квадрат помогите пожалуйста
Почетный модератор
64291 / 47589 / 32740
Регистрация: 18.05.2008
Сообщений: 115,181
27.12.2013, 18:53 0

Подсчитать количество точек, лежащих в четвертой четверти плоскости - Pascal ABC - Ответ 5568602

27.12.2013, 18:53. Показов 1869. Ответов 1
Метки (Все метки)
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39

uses crt;
const nmax=100;
type mas=array[1..nmax] of real;
procedure koord(var x,y:mas;var n:integer);
var i:integer;
begin
repeat
write('Количество точек от 1 до ',nmax,' n=');
read(n);
until n in [1..nmax];
for i:=1 to n do
 begin
  x[i]:=-10+20*random;
  y[i]:=-10+20*random;
 end;
writeln('Координаты точек');
for i:=1 to n do
 begin
  write(i:3,'(',x[i]:6:2,';',y[i]:6:2,') ');
  if i mod 4=0 then writeln
 end;
writeln;
end;
function kol_toh(x,y:mas;n:integer):integer;
var i,k:integer;
begin
k:=0;
for i:=1 to n do
if(x[i]>0)and(y[i]<0) then k:=k+1;
kol_toh:=k
end;
 
var x,y:mas;
    n:integer;
begin
randomize;
koord(x,y,n);
write('Количество точек в IV четверти=',kol_toh(x,y,n));
end.


Вернуться к обсуждению:
Подсчитать количество точек, лежащих в четвертой четверти плоскости Pascal ABC
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 27.12.2013, 18:53
Готовые ответы и решения:

Среди трех точек с координатами (x1,y1), (x2,y2), (x3,y3) определить количество точек, лежащих в третьей четверти
Среди трех точек с координатами (x1,y1), (x2,y2), (x3,y3) определить количество точек, лежащих в...

Определить количество точек, лежащих во второй четверти, и вывести их координаты
Среди трех точек с координатами (x1,y1), (x2,y2), (x3,y3) определить количество точек, лежащих во...

Определить количество точек, лежащих во второй четверти координатной плоскости
Заданы N точек на плоскости XoY своими координатами (массивы Х и Y). Определить количество точек...

Определить количество точек (заданных координатами), лежащих в первой четверти
Ребят, помогите, пожалуйста, решить задачу: Даны координаты xi и yi n точек на плоскости....

1
27.12.2013, 18:53
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 27.12.2013, 18:53
Помогаю со студенческими работами здесь

Определить количество точек, лежащих в четвертях плоскости
На плоскости заданы n точек с координатами (x,y). Определить количество точек, лежащих в 1,2,3,4...

Подсчитать количество прямоугольников расположенных в каждой четверти координатной плоскости
Случайным образом формируются координаты А(Х,У) и В(Х,У) ста прямоугольников заданных...

Задан двумерный массив, в котором хранятся координаты точек,Определить число точек лежащих в N-ой четверти
Задан двумерный массив, в котором хранятся координаты точек, лежащих на плоскости (х – первая...

Задано N точек на плоскости: подсчитать количество точек попавших в заданную область
1. Записать логическое выражение соответствующие заданной области истинности 2. Составить...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru