Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Задача на файлы Помогите пожайлуста! Создать файл. Найти в файле положение максимальной и минимальной компонент (t и k). Найти новые максимум и минимум среди компонент, расположенных между t и k, исключая их. Все распечатать. Вот часть есть, а дальше не могу сделать:(... Program ex1; uses crt; Type std=file of integer; Matr1=array of integer; https://www.cyberforum.ru/ pascal/ thread28124.html	Матрица и Массив Pascal №1 нужно в матрице подсчитать сумму цифр побочной диоганали например 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 сумма=10 решаю чё-то не то то ответ 12 то 8 то 0
Pascal база данных Помогите, плиз, кто может... Просто не особо разобрался с файлами (мя на этой теме не было), нужно составить базу данных, чтоб из нее можно было удалять информацию, добавлять... и это в виде таблицы (или меню) наименование кинотеатра/стоимость билета/время сеансов/адрес/количество мест/ или хотя бы подскажите как делать... позарез надо! плиз, народ =)))))) https://www.cyberforum.ru/ pascal/ thread28120.html	Pascal Найти среднее значение массивов А[1..5], B[1..5] и сравнить их между собой. Вывести на экран большие из них https://www.cyberforum.ru/ pascal/ thread28117.html В программе использивать подпрограмму-функцию)
Pascal Решение СЛАУ методои Гаусса Здравстуйте! Необходимо составить программу, решающую систему линейных алгебраических уравнений методом Гаусса. В принципе метод я понял, только появилась сложность в составлении алгоритма. Помогите, кто может? Заранее благодарен!	Pascal Найти площадь треуголльника,две стороны которого равны a и b , а угол между ними y. https://www.cyberforum.ru/ pascal/ thread28111.html плизз помогите люди!!!!!! 1задача. найти площадь треуголльника,две стороны которого равны a и b , а угол между ними y. 2задача. даны длины сторон прямоугольного параллепипеда.найти его обьем и площадь боковой поверхности. 3задача. даны два числа.найти среднее арифметическое и среднее геометрическое их модулей.
Pascal Записи Из ассортимента конфет, выпускаемых пермской кондитерской фабрикой, вабрать те, стоимость которых от 30 до 55 руб. за 1 кг. Указать срок их годности и номера магазинов, в которых они имеются в продаже. https://www.cyberforum.ru/ pascal/ thread28108.html	Задача на записи и файлы. Pascal Дан список компьютеров на базе Intel ppentium processor с указанием их тактовой частоты и цены в $, например: FP516 166 445 FP513 133 365 FPMM520 200 630 Fpx630 300 1530 Fpx623 233 1100 Найти наиболее дешевый компьтер с тактовой частотой, не ниже 200 MHz, и вывести тактовую частоту и цену. Разработать программу решения этой задачи с использованием...
Pascal составной оператор https://www.cyberforum.ru/ pascal/ thread28089.html какой составной оператор в этой задаче? Program Pascal; Const e=2.7; Var f,x:real; begin write('x= ');readln(x); if x<=0 then f:=e; f := (sqr(x)x - 27)/(xx+1); if (x>0) and (x<1) then f:=cos(x)/sqrt(x);	Pascal матрица помогите доработать. Значения компонент матрицы следует задавать случайным образом …. Отнюдь не с клавиатуры uses crt; const nmax=20;{максимальный размер матрицы} type Tmatr=array of integer;{тип матрицы} Tmas=array of integer;{тип массива} procedure Vvod(var x,y:byte; var mt:Tmatr);{создание матрицы} https://www.cyberforum.ru/ pascal/ thread28086.html
Алгоритм решения задач внутренней сортировки и алгоритмы поиска информации Pascal Ветвление. 1. Дано число m (1 £ m £ 12).Определить, к какому времени года относится месяц с номером m. 2. Школьники сдают нормы по прыжкам в длину. Для учеников 2 класса минимальная длина прыжка должна быть не менее 1,2 м; для учеников 3 класса – не менее 1,5 м; для 4 класса – не менее 1,7 м; для 5 класса не менее 2,0 м. Зная номер класса и длину прыжка ученика, определить, сдан ли норматив. ...	Pascal процедуры и функции https://www.cyberforum.ru/ pascal/ thread28067.html Разработать 2 версии программы (с использованием как Function, так и Procedure) для вычисления и вывода в файл мах{f (t-2s;1;17), f(2,2;t;s-t}, где f(a,b,c) = (2a-b-sinc)/(5+\|с\|), s и t заданы во входном файле в 2х вариантах : s1=0,6; s2=2,8; t1=-14 t2=4,65

begemotikdin

16 / 16 / 6

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

Сообщений: 67

30.03.2009, 21:32

Количество элементов на каждом промежутке - Pascal - Ответ 127709

30.03.2009, 21:32. Показов 641. Ответов 5

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

Ответ

Pascal

uses crt;
var
a:array[1..15] of real;
i:integer;
kol1,kol2,kol3:integer;
begin
clrscr;
randomize;
for i:=1 to 15 do
a[i]:=1*random-0;
for i:=1 to 15 do
write(a[i]:2:2,' ');
kol1:=0;
kol2:=0;
for i:=1 to 15 do
 begin
  if (a[i]>0.00) and (a[i]<0.09) then inc(kol1);
  if (a[i]>0.1) and (a[i]<0.19) then inc(kol2);
 end;
writeln;
writeln(kol1);
writeln(kol2);
readln;
end.

и так далее сравнивай числа и увеличивай счётчик

Вернуться к обсуждению:
Количество элементов на каждом промежутке Pascal

Следующий ответ

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

30.03.2009, 21:32

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

Посчитать количество элементов массива, лежащих в заданном промежутке
посчитать количество элементов лежащих в промежутке (-13;25) массива B(25)

На промежутке неком промежутке, включая начало и конец, найти количество таких чисел, что a[i]>= a[i-1]
Помогите с решением задачи. Условия задачи: на промежутке от 'StartNumber' до 'EndNumber', включая...

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

	30.03.2009, 21:32

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

30.03.2009, 21:32

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

Определить количество элементов последовательности натуральных чисел, заключенных в промежутке от 1 до N
определить количество элементов последовательности натуральных чисел заключенных в промежутке от 1...

Даны К наборов ненулевых целых чисел. Вывести количество элементов в каждом наборе и их общее количество
Дано целое число К, а также К наборов ненулевьк целых чисел. Признаком завершения каждого набора...

Определить количество элементов последовательности натуральных чисел, кратных числу M и заключенных в промежутке от L до N.
Определить количество элементов последовательности натуральных чисел, кратных числу M и заключенных...

Определить количество элементов последовательности натуральных чисел, кратных числу м и заключенных В промежутке от l до n
Определить количество элементов последовательности натуральных чисел, кратных числу м и заключенных...

Наверх