|
помогите пожалуйста решить задачи паскаль))) оч нужно))
|
|
1. Даны x,y,z. Вычислить a, b, если а=\frac{2cos(X-\Pi /6}{1/2+sin^{2}y}
b=1+\frac{z^{2}}{3+z^{2}/5}
2. Даны действительные числа a,b,c,d. Если a≤b≤c≤d, то каждое заменить наибольшим из них; если a>b>c>d, то числа оставить без изменения; в противном случае все числа заменяются их квадратами. (Структурные операторы. Условный оператор)
3. Определить успеваемость ученика младших классов по 6 основным предметам (двоечник, троечник, хорошист, отличник). (Оператор варианта)
4. Найти все трехзначные числа, которые при делении на 2 дают остаток 1, при делении на 3 – остаток 2, при делении на 4 – остаток 3, а само число делится на 5.
(Цикл с параметром)
5. Даны натуральные числа n и m. Найти все пары дружественных чисел, лежащих в диапазоне от n до m. Два числа называются дружественными, если каждое из них равно сумме всех делителей другого (само число в качестве делителя не рассматривается). (Цикл с предусловием.)
6. Даны натуральные числа n и m. Найти все пары дружественных чисел, лежащих в диапазоне от n до m. Два числа называются дружественными, если каждое из них равно сумме всех делителей другого (само число в качестве делителя не рассматривается). (цикла с постусловием)
№ 1 | Автор: PIt |
2012-05-07, 21:27
|
Репутация: [ + 0 ]
|
|
|
|
var
a:array[1..4]of integer;
i,max:integer;
begin
max:=low(max);
for i:=1 to 4 do begin
read(a[i]);
if a[i]>max then max:=a[i];end;
if (a[1]<=a[2])and(a[2]<=a[3])and(a[3]<=a[4]) then
for i:=1 to 4 do
a[i]:=max
else
if (a[1]>a[2])and(a[2]>a[3])and(a[3]>a[4]) then exit else
for i:=1 to 4 do
a[i]:=a[i]*a[i];
end.
Quote (PIt) 3. Определить успеваемость ученика младших классов по 6 основным предметам (двоечник, троечник, хорошист, отличник). (Оператор варианта)
Какие входные данные?
Quote (PIt) 4. Найти все трехзначные числа, которые при делении на 2 дают остаток 1, при делении на 3 – остаток 2, при делении на 4 – остаток 3, а само число делится на 5.
var
i:integer;
begin
for i:=100 to 999 do
if (i mod 2=1)and(i mod 3=2)and(i mod 4=3)and(i mod 5=0) then writeln(i,' ');
end.
"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:) ).Спасибо
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
насчет 3 . больше никаких данных
первая задача которую ты написал в паскалеABC не работает
№ 3 | Автор: PIt |
2012-05-16, 23:46
|
Репутация: [ + 0 ]
|
|
|
|
Я знаю) Переходи на обычный, который ты можешь скачать на этом сайте:)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
ну а третю сможешь решить?))
№ 5 | Автор: PIt |
2012-05-17, 12:32
|
Репутация: [ + 0 ]
|
|
|
|
Могу)
var
a:integer;
begin
readln(a);
if a=2 then writeln('Двоечник');
if a=3 then writeln('Троечник');
if a=4 then writeln('Хорошист');
if a=5 then writeln('Отличник');
end.
"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:) ).Спасибо
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
решите пожалуйста задачи :
1)Найти наименьший элемент матрицы М(3,3)
и
2)Дана матрица А(N,N). Переменной В присвойте значение, равное количеству строк матрицы А, содержащих хотя бы одну нулевую компоненту.
Спасибо заранее:)
|
|
|
|
1.
var
a:array[1..3,1..3]of integer;
i,j,m:integer;
begin
m:=high(m);
for i:=1 to 3 do
for j:=1 to 3 do begin
read(a[i,j]);
if m>a[i,j] then m:=a[i,j];end;
writeln(m);
end.
2.
var
a:array[1..100,1..100]of integer;
i,j,b,n:integer;
begin
read(n);
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);
for i:=1 to n do
for j:=1 to n do
if a[i,j]=0 then begin b:=b+1;i:=i+1;j:=1;end;
writeln(b);
end.
"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:) ).Спасибо
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
еще пожалуйста:))решите пожалуйста)вы мое спасение:)
1)Заданную строку А перепишите в обратном порядке в строку В.
и
2)Найдите самое длинное и самое короткое слово в заданном предложении
Репутацию я вам подниму:)))я в контактах буду размещать ваш электронный адрес:)Добавлено (24.05.12, 21:18)
---------------------------------------------
пожалуйста решите((( Добавлено (24.05.12, 21:22)
---------------------------------------------
решите пожалуйста(((( Добавлено (27.05.12, 21:29)
---------------------------------------------
1)Заданную строку А перепишите в обратном порядке в строку В.
и
2)Найдите самое длинное и самое короткое слово в заданном предложении
|
|
|
|
Не надо нудить.
1)Code
len:=length(a);\\запоминаем длину строки
for i:=1 to len do
b[i]:=a[len-i+1]
2)Code a:=pos(' ', s);\\ищем первый пробел min:=a; minstr:=copy(s,1,a);\\запоминаем первое слово, по умолчанию оно самое короткое max:=a; maxstr:=copy(s,1,a);\\и самое длинное delete(s,1,a);\\удаляем слово repeat a:=pos(' ', s); if min>a then\\если найденное слово меньше, то запоминаем его begin min:=a; minstr:=copy(s,1,a); end; if max<a then \\аналогично begin max:=a; maxstr:=copy(s,1,a); end; delete(s,1,a); until a<>0;\\продолжаем до тех пор пока не останется пробелов в строке if min>s then minstr:=s;\\если оставшееся слово меньше запоминаем его if max<s then minstr:=s;\\если больше
может с первого раза не заработать, компилятора под рукой нет.
И для комментирования я наверное не те слэши поставил, надо в другую сторону.
|
|
|
|
Насчёт слэшей - прав)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
5. Даны натуральные числа n и m. Найти все пары дружественных чисел, лежащих в диапазоне от n до m. Два числа называются дружественными, если каждое из них равно сумме всех делителей другого (само число в качестве делителя не рассматривается). (Цикл с предусловием.)
6. Даны натуральные числа n и m. Найти все пары дружественных чисел, лежащих в диапазоне от n до m. Два числа называются дружественными, если каждое из них равно сумме всех делителей другого (само число в качестве делителя не рассматривается). (цикла с постусловием)
помогите пожалуйста решить...
|
|
|
|
Что именно не можешь сделать?
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
|
Ну я понял)
Так нужно что-бы ты научился хоть чему-то)
Ты вообще что-нибудь в паскале понимаешь?)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
Да еслиб понимал, не просил бы)) Ну мне просто курсач сдать надо )) оч прям)) Добавлено (07.06.12, 01:08)
---------------------------------------------
поможешь мне с этими задачами??
|
|
|
|
Помогу, как будет время
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
|
ок)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
