|
Решения задач на Паскале!Срочно нужно!
|
|
5. Найти все значения yn, при которых f(xk, yn)>0 при k = 1, 2,…, M.
f(x, y) = (y3 tgx + 1/x)•(y2 – 2x2); a = -0.5; b = 0.02; c = -2.3; d = 0.3; M = 11
ПОМОГИТЕ СРОЧНО НА ЗАЧЕЕЕЕЕТ!!!!!!
До экзамена 1 день....ничего не успеваю)Добавлено (18.01.12, 11:06)
---------------------------------------------
5. Для заданной целочисленной матрицы расположить элементы каждого столбца таким образом, чтобы четные предшествовали нечетным без изменения порядка следования элементов одной четности. Использовать модуль сортировки элементов одномерного целочисленного массива.
Помогите спасите
выручайте ребят!!!!
очень надо Добавлено (18.01.12, 11:07)
---------------------------------------------
5. Найти предложения, все символы которых образуют симметричную относительно центра последовательность (палиндром). Если таких предложений нет, то вывести соответствующее сообщение
ПОМОГИТЕ СРОЧНО
вы последняя надежда!!!
|
|
|
|
Помогите решить плииз
Пусть даны натуральные числа k. n. вещественные числа а1,a2,…akn Получите последовательность min(а1, а2,… аk), min(ak+1, ak+2,… а2k),min(ak(n-1)+1,… аkn).
|
|
|
|
Люди, помогите с задачей плиз, через пару дней экзамен
Составить блок-схему алгоритма и программы на языках Бейсик и Паскаль в соответствии с принципом модульности.
Найти минимум матрицы, используя модуль поиска минимального элемента одномерного массива
|
|
|
|
1. Дана строка символов до точки. Группы символов в ней между группами пробелов считаются словами. Определить, сколько слов начинается и кончается одной и той же буквой
помогите решить,!!!!
|
|
|
|
Скоро будет.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
var
a,s:string;
i,p,m:integer;
begin
readln(s);
m:=0;
for i:=1 to length(s) do begin
p:=pos(' ',s);
if p=0 then break;
a:=copy(s,1,p-1);
delete(s,1,p);
if ord(a[1])=ord(a[length(a)]) then m:=m+1;end;
writeln(m+1);
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Помогите пожалуйста решить эти 2 задачки!
1) Составьте программу вывода нечетных трёхзначных чисел, кратных 4.
2) Составьте программу вывода на экран простых делителей числа N.
P.S. буду очень благодарна )
|
|
|
|
1.
var
i:integer;
begin
for i:=-999 to - 100 do
if i mod 4=0 then write(i,' ');
end.
2. Завтра напишу
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Quote (Berestovskiy) 2) Составьте программу вывода на экран простых делителей числа N.
var
i,j,n,c,q:integer;
begin
read(n);
for i:=1 to n do begin
c:=i;
for j:=2 to c-1 do
if c mod j<>0 then q:=q+1;
if q=c-2 then
if n mod i=0 then write(i,' ');end;
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
|
"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:) ). Спасибо
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Для проверки, просто сделай цикл аналогичный твоему, пропиши y:=sin(f) и потом write(f,' ');
и посмотри что да как)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
помогитте пожалуйста вот с такой прогой: Задано вещественное значение х.Вычислить значение функции
Cos^2x=5. x<=2
У={
^1/2(x+1). x>2
не знаю понятно поймёте ли.
Огроменное пасибо.Добавлено (09.02.12, 04:38)
---------------------------------------------
вот что у меня получилось. всё считает только проблема в том что после ввода значения х жмёшь энтер чтоб глянуть результат, а в итоге закрывается окно дос программы и вылазит окно редактора паскаля. чтоб увидеть ответ надо опять запускать рун (ctrl+F9) или так оно и должно быть? вот прога
Program B1
Var x,y: Real;
begin
Write('Введите значение х:');
Readln(x);
If x<=2 then y:=SQR(COS(x))+5 else y:=SQRT(x+1);
Writeln('При x=',x:4:2,'y=',y:5:2);
End. Добавлено (09.02.12, 04:41)
---------------------------------------------
в примере ошибочка
Cos^2x+5. x<=2
У={
^1/2(x+1). x>2
|
|
|
|
Да, так и должно быть, если не прописать:
перед "Var" - "uses crt;"
перед "end." - "readkey"
Что-бы увидеть ответ - нужно нажимать alt+F5
ctrl+F9 - Это запуск программы, т.е. можно будет вводить новые значения и получать новый ответ)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
Оперативно. Пасибо за подсказку. Добавлено (09.02.12, 10:25)
---------------------------------------------
всё работает. ура. респект вам и уважуха....
|
|
|
|
Обращайся ещё:)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Помогите пожалуйста с задачей (pascal):
Создать для множества целых чисел дек деков. Заранее спасибо
|
|
|
|
Это что такое?)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
ПАМАГИТЕ. не могу понять препода вот прога:
program B1;
uses crt;
Var x,y: Real;
Begin
Write('Bвe Ёвe нaзeниe x: ');
Readln(x);
If x<=2 then y:=SQR(COS(x))+5 else y:=SQRT(x+1);
Writeln('ПpЁ x=',x:4:2,' y=',y:5:2);
readln
End
а вот вторая
f .fЁ .R l. ', * ^ ''
, r,y. ea ,
Begin
Write('Bвe Ёвe eвгю гpaнижг Ёнтepвa a a: ');
Readln(a);
Write('Bвe итe пpaвгю гpaнижг Ёнтepвa a b: ');
Readln(b);
Write('Bвe'Ёвe иaг h: ');
Readln(h);
k:=0;
fi:=a;
While fi<=b Do
Begin
fir:=fi*pi/180;
y:=Sin(fir);
Writeln('fi=',fi:6:2,' y=',y:5:2);
if y<0 then k:=k+1;
fi:=fi+h;
End;
write('Ko Ёзecввo oтpижaвe ьныx нaзeни = ',k);
readln
End
Препод пишет:
1. При выводе результата необходимо разделить значение аргумента и значение функции ХОТЯ БЫ ОДНИМ ПРОБЕЛОМ (см. примеры на стр. 15 методических указаний).
ГДЕ ПРОБЛЕМА.не пойму.ПОМОГИТЕ ПОЖАЛУЙСТА.а я плюсикоф наставлю;0)Добавлено (14.02.12, 09:47)
---------------------------------------------
то что вверху тама кваказябры издержки переводчика.не обращ внимания.
|
|
|
|
Ну и слово "кваказябры" )))
Думаю проблема тут:
Quote (GriF) Writeln('ПpЁ x=',x:4:2,' y=',y:5:2);
Попробуй:
writeln('ПpЁ x= ',x:4:2);
write('y= ',y:5:2);
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
