Помощь - Поиск - Пользователи - Календарь
Полная версия: Расчетные задачи
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
vicsem
26.11.2004 5:08
Всем привет.

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

Может есть добрые люди, у которых есть свободное время? smile.gif
Если желающие найдутся, задачки вышлю по e-mail
Altair
26.11.2004 10:40
а почему бы не выложить их сюда?
давай шли задачи.
zharkih@list.ru
И почему в платный раздел?
имхо это задачи бесплатные!
vicsem
26.11.2004 14:12
Я пробовал выложить в раздел Задачи, но через 5 минут сообщение исчезло :-(
Я так понял, что админ удалил.

Ща переведу с украинского на русский и пришлю :-)
volvo
26.11.2004 14:24
vicsem
Может быть, тема не была оформлена по правилам (особенно название). Оформляй как положено ... ;)
Altair
26.11.2004 15:20
Цитата
Я так понял, что админ удалил.

Админы лентяи (уж поверь). Это модеры ... :P :D
Высылай...
уже час переводишь .. че там переводить-то, в Одессе были, знаем немного :D rolleyes.gif
Altair
26.11.2004 16:43
Пришло. Навсякий случай выложу сюда.
Altair
26.11.2004 16:45
Что бы не подумали что я отказался, я делаю, вот уже первые три первого номера
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
26.11.2004 16:49
vicsem
Задача №517 уже рассматривалась...
vicsem
26.11.2004 16:51
Оперативно smile.gif
Даже и не ожидал.
Жду остальное smile.gif

СПАСИБО!!! :p2:
volvo
26.11.2004 16:53
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.
Altair
26.11.2004 16:59
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
26.11.2004 17:09
Код
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
26.11.2004 17:12
Перенесенно из "задачи на заказ" в "задачи-решаем вместе"
Флогримм
26.11.2004 19:26
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.
vicsem
27.11.2004 19:57
Всем спасибо.
В основном все разобрался, осталось три задачки, где идет работа с файлами.

Подскажите хоть как с ними работать, извлекать данные и записывать данные.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.