Pascal. Задачи. Помогите решить!

[Asfodel]

Пожалуйста! Срочно нужно до завтра!!



3.5. III 9.
Вывести на экран. Решить задачу ТРЕМЯ способами: используя операторы цикла FOR, WHILE, REPEAT
Кубы всех целых чисел из диапазона от А до В (A< либо равно В) в обратном порядке.

5.2. III 7.
Написать программу, вычисляющую первые n элементов заданной последовательности
b1=5, bn= (-1)nbn -1 – 8

8.4. IV 13
Дана строка, в которой содержится осмысленное текстовое сообщение. Слова сообщения разделяются пробелами и знаками препинания.
Вывести на экран слова сообщения в алфавитном порядке.

[Иван 883]

А второе задание верно написано?

[Иван 883]

Я имею ввиду формулу

[alex_fcsm]

Сообщение от Иван 883

Я имею ввиду формулу

Во-первых используйте кнопку правка для своего сообщения, а формула
-1 в степени n умножить на b[n-1] -8

[Иван 883]

program task2;
uses crt;
var n,bn,b1:real;
begin
clrscr;
writeln('Введите n=');
readln(n);
b1:=5;
bn:=(-1)*n*b1-1-8;
write(bn:5:5);
readln;
end.

[maladoy]

program task2;
uses crt;
var n:real;
  b:array [1..100] of real;
i:integer;
begin
clrscr;
writeln('Введите n=');
readln(n);
b[1]:=5;;
writeln(b[1]:5:5);
for i:=2 to n do

begin
b[i]:=ln(exp(-1)*i)*b[i-1]-8;
writeln(b[i]:5:5);end;
readln;
end.

[alex_fcsm]

program task2;
uses crt;
var bn,b1:real;
    i,n:integer;
begin
clrscr;
writeln('Введите n=');
readln(n);
b1:=5;
write(b1:5:0);
for i:=2 to n do
begin
if i mod 2=0 then bn:=b1-8
else bn:=-b1-8;
write(bn:5:0);
b1:=bn;
end;
readln;
end.

[alex_fcsm]

uses crt;
var s,sub:string;
    i,n,j:integer;
    a:array[1..100] of string;
    q:set of char;
begin
clrscr;
q:=[',','.',':','?','!'];
writeln('Input str');
readln(s);
i:=0;n:=0;
repeat
inc(i);
if (s[i]=' ')and(s[i+1]<>' ') then begin
                   inc(n);
                   a[n]:=sub;
                   sub:='';
                   end
else if not(s[i] in q) then sub:=sub+s[i];
until i=length(s);
if sub<>'' then begin
inc(n);
a[n]:=sub;
end;
writeln;
for i:=2 to n do
 for j:=n downto i do
 if  a[i]<a[i+1] then
   begin
    sub:=a[i];
    a[i]:=a[i+1];
    a[i+1]:=sub;
   end;
for i:=1 to n do
 write(a[i],' ');
end.

[Asfodel]

Спасибо огромное! Кто-нибудь сможет решить третью задачку? Иначе лететь мне из универа...

[werser]

Вывести на экран. Решить задачу ТРЕМЯ способами: используя операторы цикла FOR, WHILE, REPEAT
Кубы всех целых чисел из диапазона от А до В (A< либо равно В) в обратном порядке.
program t_1;
uses crt;
var a,b,c,i:integer;
begin
clrscr;
Write('Vvedite a');readln(a);
Write('Vvedite b');readln(b);

if a>b then Writeln('A>B')
else
begin
for i:=a to b do
begin
c:=i*i*i;
WriteLn(c)l
end;

repeat
c:=a*a*a;
Writeln(c);
a:=a+1;
until a=b;

while a<>b do
begin
c:=a*a*a;
Writeln(c);
a:=a+1;
end;
end;


end.