Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
Другие темы раздела
Pascal Среди заданного множества точек найти две точки с максимальным расстоянием между ними Среди заданного множества точек найти две точки с максимальным расстоянием между ними. то есть мы сами задаем координаты точек,соответственно,и их количество,а нам должны вывести координаты тех точек,между которыми максимальное расстояние https://www.cyberforum.ru/ pascal/ thread100658.html Pascal Найти сумму положительных элементов массива
Люди добрые, помогите, немогу решить задачи решаеться судьба зачёта помогите умоляю решить 2 задачи.
Pascal Вывести 15 разноцветных точек посередине экрана. https://www.cyberforum.ru/ pascal/ thread100647.html
Изобразите в текстовом режиме 15 разноцветных точек посередине экрана. 		Pascal Выделение вектора из матрицы по правилу Есть матрица, размерность вводится пользователем, элементы формируются формулой. Из этой матрицы нужно выделить вектор Х, который соответствует первому по порядку ряду матрицы с наибольшей суммой элементов, при условии, что предыдущий ряд содержит не меньше L положительных элементов. В паскале не силен, а сделать надо, посчитать сумму каждого парного ряда получается, а вот дальше - засада,... https://www.cyberforum.ru/ pascal/ thread100644.html
Замена переменных в матрице Pascal
Подскажите пожалуйста, каким образом из матрицы nxn заполненную двумя неравными цифрами(например x и y), без оператора if, произвести обмен x на y. ps. Просто подскажите при помощи чего это сделать, и не давать решения (хотелось бы самому подумать). 		Pascal Циклический сдвиг в массиве. Написать программу, которая вводит с клавиатуры непустой массив целых чисел размерностью n, циклически сдвигает элементы вправо на k-позиций(k<n), и печатает результат. Цикличность означает, что последний элемент становиться первым и т.д. погогите решить задачу https://www.cyberforum.ru/ pascal/ thread100630.html
Pascal определить, при каком R площадь круга превысит значение 100 кв. см. Дан круг радиусом R. Начиная с начального значения радиуса Rн = 1 см определить, при каком R площадь круга превысит значение 100 кв. см. Изменение R осуществить с шагом 1 см. Вычислить значение функции: b=0.6*R1/R2+0.3*R1 если R1= с шагом 100 R2= с шагом 100 https://www.cyberforum.ru/ pascal/ thread100624.html Найти в каждой строке матрицы наибольший элемент и поменять его местами с элементом главной диагонали. Pascal
:( Помогите пожалуйста решить задачи... 1)Дана целочисленная квадратная матрица.Найти в каждой строке наибольший элемент и поменять его местами с элементом главной диагонали. 2)Заполнить массив А размером *m*на*m* следующим образом,например m=7: 1 0 0 1 0 0 1 0 1 0 1 0 1 0 0 0 1 1 1 0 0 1 1 1 1 1 1 1 0 0 1 1 1 0 0 0 1 0 1 0 1 0
Pascal Массивы Заданы матрицы А(4х7) и В(4х5), элементы которых вычисляются по формулам : a ij= i-j / 2.3-(i+j); b ij = i-j / 3.77-(i+j) . Из положительных элементов матриц сформируйте два новых вектора Za и Zb. Определите также величину R=min Za-minZb. Формирование вектора Z из положительных элементов матрицы оформите процедурой, а вычисление min Z - функцией помогите пожалуйста срочно надо ! https://www.cyberforum.ru/ pascal/ thread100606.html Pascal Исключить повторные вхождения одного и того же числа из типизированного файла https://www.cyberforum.ru/ pascal/ thread100603.html
Дан файл, компоненты которого являются целыми числами. Преобразовать его, исключив повторные вхождения одного и того же числа.
Ввести свой возраст. Если возраст больше 18 лет, то напечатать фразу «ты- совершеннолетний», иначе напечатать – «до совершеннолетия осталось столько-т Pascal
Ввести свой возраст. Если возраст больше 18 лет, то напечатать фразу «ты- совершеннолетний», иначе напечатать – «до совершеннолетия осталось столько-то дней» Помогите решить пожалуйста!!! в зарание спасибо огромное!!! 		Pascal Сумма минимальных элементов нечетных столбцов матрицы https://www.cyberforum.ru/ pascal/ thread100587.html
заданы матрицы А(4х7) и В(5х9), эленменты которых вычисляются по формулам: аij=2,5sin(i)-j*j; вij=5j-i*i. Оформите процедурой вычисления величины R=S-max, где S это сумма минимальных элементов нечетных столбцов матрицы, max - максимальный элемент матрицы. примените указанную процедуру к матрицам А и В. Помогите написать программу, ПОЖАЛУЙСТА!
Почетный модератор
64291 / 47589 / 32740
Регистрация: 18.05.2008
Сообщений: 115,181
02.03.2010, 19:31 0

Проверьте програму... - Pascal - Ответ 577300

02.03.2010, 19:31. Показов 698. Ответов 2
Метки (Все метки)

Ответ

где 0<=x<=2
Какое-то странное условие. Было бы логичнее x<>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

uses crt;
var x,e,f,s:real;
    n:integer;
begin
clrscr;
repeat
write('Введите х [0;2] x=');
readln(x);
until(x>=0)and(x<=2);
write('e=');
readln(e);
n:=0;
s:=0;
f:=1;
while abs((x-1)*f)>e do
 begin
  n:=n+1;
  f:=1/n;
  s:=s+(x-1)*f;
 end;
write('S=',s:0:6);
readln
end.


Вернуться к обсуждению:
Проверьте програму... Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 02.03.2010, 19:31
Готовые ответы и решения:

прокоментировать програму
{$N+} uses crt; function Calculate(SMyExpression: string; digits: Byte): string; var z:...

Не запускает програму
Запускаю програму на турбо паскале и оно выбивает ошибку на StrIntTo. Что делать с прогой можно и...

Составить програму на паскале
Даны действительные положительные числа а,b,c,d. Выяснить, можно ли прямоугольник со сторонами а,b...

Составь полноценную програму
if x&lt;-1 then y:=1/(x*x) else if (-1&lt;=x)and(x&lt;2) then y:=x*x else y:=4; writeln('Y =...

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

Помогте составить програму в соответствии с
Значение для остановки расчета 9,5

Допоможіть написати програму Паскаль
Допоможіть будь-ласка Написати мовою Паскаль програму табулювання складної математичної функції z...

Создать програму используя собственный модуль!
Привет всем!!! Можете помочь с написанием программы и модуля для нее. Вот условие:Даны два любых...

Написать програму

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