|
Решения задач на Паскале!Срочно нужно!
|
|
Quote помогите пожалик решить-Написать программу на языке Паскаль.Даны два целых положительных числа N и M.Заменить большее из них суммой этих двух чисел,а меньшее возвести в квадрат.
Code program abc;
var m,n: integer;
begin
writeln(' vvedite M i N');
read(m,n);
if m>n then
m:= m+n;
n:= n*n;
if n>m then
n:= n+m;
m:= m*m;
end. |
|
|
|
|
Задача-Написать Программу на языке Паскальупорядочения значений трех переменных по возрастанию.Т.е. при любых исходных значениях А,В,С отсортировать их так,чтобы стало А<В<С
|
|
|
|
Помогите пожалуйста
Все задачи нужно решить тремя способами:
1)счетчик (for to do)
2)предпроверка условия (while do)
3)постпроверка условия (repeat until)
Задача№1
В бригаде, работающей на уборке сена, имеется N сенокосилок. Первая сенокосилка работала m часов, а каждая следующая на 10 минут больше, чем предыдущая. Сколько часов проработала вся бригада?
Задача№2
Напишите программу вычисления среднего геометрического модулей двух введенных с клавиатуры целых чисел. Программа должна использовать цикл while do. Условие выхода из цикла – значение числа, равное 999.
Задача№3
На воду опущен шар радиуса r, изготовленный из вещества плотности p (p<1). Найти расстояние от центра шара до поверхности воды. Указание. При составлении программы воспользоваться формулой объема шарового сегмента высоты h: V = пи*h^2 (3r - h)/3, где r - радиус шара, h - высота шарового сегмента.
Помогите пожалуйста если несложно
|
|
|
|
type seria = file of integer;
var s:seria;
Описать функцию max(s), вычисляющую значение
максимального элемента файла s. Программа: введите файл s
(последний элемент равен 0) и напечатайте значение функции
max(s).
Заранее спасибо!!!
|
|
|
|
Quote (M@RECS) в каком форум в этом не нашел
Значит невнимательно искал
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Quote (vitek33333) помогите пожалуста решить задачу по массивам
Пригодность детали оценивается по размеру B который должен соответствовать интервалу (A-g;A+g).определить имеются ли в партии из N деталей бракованные.Если да то подсчитать их количества,в противном случае выдать отрицательный ответ.
пожалуста очень срочно надо.....
var
i,n,b,summa,a,q:integer;
begin
summa:=0;
readln(n);
read(a,q);
for i:=1 to n do begin
read(b);
if (b>a+q)or(b<a-q) then summa:=summa+1;end;
if summa<>0 then writeln(summa) else writeln('-1');
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Ответ был дан ранее
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Quote (sergey313) sergey313
Ответ был дан ранее
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Quote (skaleckiy) program abc;
var m,n: integer;
begin
writeln(' vvedite M i N');
read(m,n);
if m>n then
m:= m+n;
n:= n*n;
if n>m then
n:= n+m;
m:= m*m;
end.
Код не будет работать правильно
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Составьте программу для решения следующей задачи,
используя цикл while или repeat:
13. Сумма в R рублей положена в банк. При этом прирост составляет Р%
ежегодно. Через какой промежуток времени сумма достигнет М рублей.
(M>R)?
|
|
|
|
Пожалуйста помогите решить задачку в Free Pascal. Буду очень признательна.
Заданы значения расстояния S и времени t скорости движения транспортного средства. Вычислить значения скорости движения транспортного средства V и расход бензина R. Если V≤90 и V≥120 км/ч, то . Если 90<V<120, то .Добавлено (10.03.12, 14:29)
---------------------------------------------
Заданы значения расстояния S и времени t скорости движения транспортного средства. Вычислить значения скорости движения транспортного средства V и расход бензина R=8*S/100. Если V≤90 и V≥120 км/ч, то R=6*S/100.
Помогите пожалуйста решить в паскале. Буду очень признательна)
|
|
|
|
Quote (Demanovich) Составьте программу для решения следующей задачи,
используя цикл while или repeat:
13. Сумма в R рублей положена в банк. При этом прирост составляет Р%
ежегодно. Через какой промежуток времени сумма достигнет М рублей.
(M>R)?
var
i,r,p,m:integer;
begin
read(r,p,m);
while r<>m do begin
i:=i+1;
r:=r+p;
end;
writeln(i);
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Quote (Cherry) Заданы значения расстояния S и времени t скорости движения транспортного средства. Вычислить значения скорости движения транспортного средства V и расход бензина R=8*S/100. Если V≤90 и V≥120 км/ч, то R=6*S/100.
А по какой формуле вычисляется V?
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Найти наибольшее значение функии у=ах^3+bх+с при заданных параметрах a,b,c, если х изменяется от х_1 до х_2 с шагом h. (использовать цикл FOR)
помогите пожалуйсто!!!!!
|
|
|
|
А зачем цикл?
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
мне припомощи этого цикла нужно составить программу
|
|
|
|
Да что ты?
Просто судя из логики, икс будет принимать максимальное значение в точке х_2, следовательно, выражение у=ах^3+bх+с будет принимать максимальное значение так-же в этой точке, следовательно зачем цикл? Считать а, б, ц , считать точки изменения икса, присвоить максимальное и вывести)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Прошу помочь с решением задач.
1. Задание 10.1. Экспериментальным путем определить $$X_{0} , X_{\infty}$$ и $$e_{m}$$ для типа данных real. Разработать программу на языке Паскаль, позволяющую вычислять значения функции $$\cos n(x,n) = \sum_{i=0}^{n-1}{(-1)^i*x^{2i}/(2*i)!}$$
2. Задание 10.7. Разработать программу на языке Паскаль, позволяющую решать уравнения $$L_{n}(x)=0$$ , где $$L_{n}(x)$$ - полином Лагерра $$[L_{0}(x)=1, L_{1}(x)=1-x, (n+1)L_{n+1}(x)=(2*n+1-x)L_{n}(x)-nL_{n-1}(x)]$$. Исследовать зависимости временных затрат поиска корня методом хорд при различных n>0 в зависимости от допустимой абсолютной погрешности нахождения корня (при фиксированном интервале локализации корня).
3. Задание 10.8. Разработать программу на языке Паскаль, для решения системы линейных алгебраических уравнений в области вещественных чисел методом Жордана-Гаусса. Для решаемой системы найти оценку числа обусловленности $$cond_{\infty} (A)$$
Решить следующие системы уравнений Ax=b:
1) $$A=H_{5}=[h_{ij}], h_{ij}=(1/i+j-1), 1\leq i, j\leq 5, b_{i}=1/i^5$$
$$x_{1}+x_{2}+2x_{3}+3x_{4}=1$$
$$3x_{1}-x_{2}-x_{3}-2x_{4}=-4$$
2) $$2x_{1}+3x_{2}-x_{3}-2x_{4}=-6$$
$$x_{1}+2x_{2}+3x_{3}-x_{4}=-4$$
4. Задание 10.9. Разработать программу на языке Паскаль для построения аппроксимирующей функции методом наименьших квадратов в классе алгебраических многочленов степени m, по заданной таблицей функции $$f$$ на некотором интервале значений аргумента.
Исследовать зависимость среднеквадратичного уклонения от степени m многочлена. Исходная функция $$y=f(x)$$ на интервале [0; 0.40] описывается следующей таблицей.
X 0 5 10 15 20 25 30 35 40
Y 1.00762 1. 00392 1.00153 1.00000 0.99907 0. 99852 0.99826 0.99818 0.99828
5. Задание 10.5. Исследовать зависимость абсолютной погрешности вычисления $$\int_{-2}^{2}{e^\frac{-x^2}{2}dx}=2.3929$$ методом трапеций от числа узловых точек.
6. Задание 10.13. Разработать программу на языке Паскаль для численного решения задачи Коши $$xy''+2xy'+2*n*y=0, n\epsilon N_{0} ; y(x_{H})=y_{H}, y'(x_{H})=y'_{H}$$, на интервале $$[x_{H};x_{K}]$$ c шагом h методом Эйлера. Исследовать зависимость абсолютной погрешности решения от х при различных n, h (зная, что при соответствующем выборе начальных условий точное решение описывается полиномом Эрмита:
$$(H_{0}(x)=1, H_{1}(x)=2x,H_{n+1}(x)=2*x*H_{n}(x)-2*n*N_{n-1}(x))$$
№ 358 | Автор: d2niKk |
2012-03-12, 16:30 | Изменено: d2niKk - Пн, 2012-03-12, 16:54
|
Репутация: [ + 0 ]
|
|
|
|
№1
Скорость звездолета 100 км/ч.Звездолет летит до некоторой звезды,свет от которой до Земли идет 14 мин. Определить сколько времени потребуется звездолету,чтобы долететь до данной звезды.
№2
Дано целое число А. Определить,есть ли в данном числе цифры которые больше 5.
№3
Дано
Помоги пожалуйста)Добавлено (12.03.12, 21:52)
---------------------------------------------
№3
Даны координаты точки А. Определить,принадлежит ли эта точка 2 координатной четверти.
|
|
|
|
Quote (culvinsky) Звездолет летит до некоторой звезды,свет от которой до Земли идет 14 мин.
А это сколько в км?)
2.
var
a,b,s:integer;
begin
read(a);
repeat
b:=a mod 10;
a:=a div 10;
if b>5 then s:=s+1;
until a=0;
if s>0 then writeln('yes: ',s) else writeln('no');
end.
3.
var
x,y:integer;
begin
read(x,y);
if (x<0)and(y>0) then writeln('yes') else writeln('no');
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
