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

[vicsem]

Всем привет.

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

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

[Флогримм]

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