| Автор | Pascal. Нужна помощь! |
|---|
18
ща исправим... мульты - вы гиде? =) |
| ап |
| http://slil.ru/25359036 - задачи тут!) |
| посмотрел. гиморно както вспоминать паскаль + искать формулы по выс мат. да и награда не прописана=) меньше 30к не возьмусь=) |
| Я сейчас на работе, дома гляну |
16
улыбнуло ) |
| а я и не поскуплюсь на награду, лишь бы взялся кто и отписал об этом, чтобы я в курсе был |
тогда посмотрю дома с бОльшим энтузиазмом=)
вечером смогу написать с телефона - вылазит чего или нет.
тут чел какойто говорил что только только на 5 сдал паскаль. думал он тут же ответы выдаст=) |
Пришел. Начал делать. Нужно вспоминать, но, вроде бы легко)
Вот пятая
var d:array[1..5000] of integer;
i,j,n:integer;
begin
writeln('vvedite kol-vo chlenov');
readln(n);
writeln('vvedite ryad');
for i:=1 to n do
readln(d[i]);
for i:=1 to n do
if d[i] mod 2=1 then j:=i;
if j=0 then write(n+1) else write(j);
end. |
Ну, первая совсем простая))
var x,y,z:real;
begin
writeln('vvedite x');
readln(x);
writeln('vvedite y');
readln(y);
z:=(sqrt(y-2.54*x)/abs(x)+ln(2.54*x));
writeln(z:7:4);
end. |
Вторая (на всякий случай, проверьте скобки):
uses crt;
var a,b,i:integer;
s,f:real;
begin
writeln('vvedite nachalnoe znachenie');
readln(a);
writeln('vvedite konechnoe znachenie');
readln(b);
s:=0;
for i:=a to b do
begin
f:=(exp(-ln(i))*ln(i)-exp(1/3*ln(i)))*cos(i);
s:=s+f;
end;
writeln('Otvet: ',s:7:4);
end. |
++ А я уже мин 10 качаю))
*да слил.ру это жесть...Ну и пусть у меня скорость скачивания 256 кб/сек минимум :) |
...и третья
var y,a,x:real;
begin
writeln('vvedite x');
readln(x);
writeln('vvedite a');
readln(a);
if exp(x)=a then
y:=sin(a+(1/3*ln(x)))
else y:=ln(x)-a*a*a;
write('otvet: ',y:7:3);
end. |
для Ziggy_Stardust:
Спасибо! Осталось 4 и 6 задачи, они сложнее или некогда было? |
const
n=3;
type
matrixtype=array[1..n,1..n]of integer
var i:integer ; a:matrixtype ;
begin
начал но уж больно спать хочеться ..
мне часок поспать и на учёбу |
const
n=3;
type
matrixtype=array[1..n,1..n]of integer
var i:integer ; a:matrixtype ;
begin
хм... а дальше? |
| а на С++ ктонить с вас шарит? =) тож помосч нуна :-[ |
| 37 спасибо за ап) |
37 а что по плюсам интересует?
пиши... посмотрим... |
36
4 и 6 простые но паскаль вспоминать сложно... могу только алгоритм на абстрактном языке накатать.... |
