Расчетные задачи Опции

[vicsem]

Всем привет.

Может кто поможет решить несколько задачек?
Племянница поступила учиться, задали самостоятельную работу
по школьшой программе. А так как в школе паскаль не изучали,
то возникли трудности.

Может есть добрые люди, у которых есть свободное время?
Если желающие найдутся, задачки вышлю по e-mail

[Altair]

а почему бы не выложить их сюда?
давай шли задачи.
zharkih@list.ru
И почему в платный раздел?
имхо это задачи бесплатные!

[vicsem]

Я пробовал выложить в раздел Задачи, но через 5 минут сообщение исчезло :-(
Я так понял, что админ удалил.

Ща переведу с украинского на русский и пришлю :-)

[volvo]

vicsem
Может быть, тема не была оформлена по правилам (особенно название). Оформляй как положено ... ;)

Сообщение отредактировано: volvo - 26.11.2004 10:48

[Altair]

Я так понял, что админ удалил.

Админы лентяи (уж поверь). Это модеры ... :P :D
Высылай...
уже час переводишь .. че там переводить-то, в Одессе были, знаем немного :D

[Altair]

Пришло. Навсякий случай выложу сюда.

[Altair]

Что бы не подумали что я отказался, я делаю, вот уже первые три первого номера
32
a

Код

var
a,a2,a3,a5,a10:real;
begin
readln(a);
a2:=a*a;
a3:=a2*a;
a5:=a3*a2;
a10:=a5*a5;
writeln(a3,a10);
end.

b

Код

var
a,a2,a4,a8,a16,a20:real;
begin
readln(a);
a2:=a*a;
a4:=a2*a2;
a8:=a4*a4;
a16:=a8*a8;
a20:=a16*a4;
writeln(a4,a20);
end.

c

Код

var
a,a2,a3,a5,a10,a13:real;
begin
readln(a);
a2:=a*a;
a3:=a2*a;
a5:=a2*a3;
a10:=a5*a5;
a13:=a10*a3;
writeln(a5,a13);
end.

[volvo]

vicsem
Задача №517 уже рассматривалась...

[vicsem]

Оперативно
Даже и не ожидал.
Жду остальное

СПАСИБО!!! :p2:

[volvo]

vicsem
задача, очень похожая на №543, нужно только немножко доработать

№ 335

Код

Var
 i, k: Integer;
 s: Real;
begin
 s := 0;
 readln(k);
 for i := 1 To k do
   s := s + (Exp(i*Ln(i)));
 Writeln('sum = ', s:6:0);
end.

Сообщение отредактировано: volvo - 26.11.2004 13:01

[Altair]

76

1.
Угрожает если клетки по диагонали или вертикаль-горизонталь.

Код

var
r,l,m,n:byte;
begin
readln(r,l,m,n);
If (r=m) or (l=n) or (r-m=l-n) then writeln('угрожает') else writeln('не угрожает');
end.

[Altair]

Код

var
k,n:word;
x:real;
r:real;
begin
readln(n);
readln(x);
r:=1;
for k:=1 to n do
begin
 r:=r*(k/(k+1) - (Exp(cos(abs(x))*Ln(cos(abs(x)))));
end;
writeln(r);
end.  
 

Это вроде 116

[Altair]

Перенесенно из "задачи на заказ" в "задачи-решаем вместе"

[Флогримм]

188

Код

program vicsem_188;
uses crt;
const max_n=100;
var i,n:word;
   mas:array[1..max_n]of real;
   sum:real;
begin
clrscr;
repeat
write('n> ');
readln(n);
until n<max_n;
 for i:=1 to n do
  begin
  write('mas[',i,']=');
  readln(mas[i]);
  if mas[i]<2 then mas[i]:=0;
  if (i>=3)and(i<=7) then sum:=sum+mas[i];
  end;
writeln('sum> ',sum);
for i:=1 to n do writeln(mas[i]);
readln;
end.

261
решение конечно не из лучших... однако работает ;) только 'e'-латинская

Код

program vicsem_261;
uses crt;
const max_n=100;
f='eeeee';{latinskaya 'e'}
var s:string;
   n,i,c:byte;
   mas:array[1..max_n]of char;
begin
clrscr;
write('n> ');
readln(n);
write('s> ');
readln(s);
for i:=1 to n do s[i]:=mas[i];
s:='';
for i:=1 to n do mas[i]:=s[i];
if pos(f,s)>0 then writeln('Yes!!! It''s TRUE!!!') else writeln('FALSE... :((');
readln;
end.

105 а), б)

Код

program vicsem_105ab;
uses crt;
var n:word;
Xa,Xb,x:real;
begin
clrscr;
write('n> ');
readln(n);
write('x> ');
readln(x);
writeln('A) X=',exp(ln(x)*sqr(n))/exp(ln(2)*n));
writeln('B) X=',exp(ln(x)*sqr(n)*n)/exp(ln(3)*n));
readln;
end.

Сообщение отредактировано: Флогримм - 26.11.2004 20:25

[vicsem]

Всем спасибо.
В основном все разобрался, осталось три задачки, где идет работа с файлами.

Подскажите хоть как с ними работать, извлекать данные и записывать данные.