pOscal!!!!!!!!!!

[One]

Добрые програмисты ПОМОГиТЕ!!!меня скора будут в одно место если я не сдам задачи кто что сможет сделайте
Буду очень Благодарен!
№1
Даны действительные числа а1,...,а15.Получить: a15,a1,a2,...,a14.

№2
Дано натуральное число n, символы s1,...,sn. Преоброзовать последовательность, удалив каждый символ 'q' и повторив каждый символ от 'q' .

№3
Составить программу , которая после ввода строки строчных латинских букв заменяет их на прописные.

№4
Дано натуральное число n .Выяснить , сколько положительных элементов содержит матрица [a(i,j)], i,j=1,...,n, если a(i,j)=cos(i*i+n).

№5
дано натуральное число n. Найти знакочередующуюся сумму цифр числа n (пусть запись n в десятичной системе есть:
a(k)a(k-1)...a(0));найти:
a(k)-a(k-1)+...+(-1)*a(0)).

№6
Дано действительное число а, натуральное число n.Вычислить:
1/a+1/a^2+1/a^4+...+1/a^2n.

№7
Вычислить бесконечную сумму с заданой точностью е. Считать, что требуемая точность достигнута, если вычисленая сумма нескольких первых слагаемых и очередное слагаемое окозалось меньше, чем е,-это и все последующие слагаемые можно уже не учитывать.Вычислить :
(-1)^1+1/1/(1+1)/(1+2)+...+(-1)^n-1/n/(n+1)/(n+2)+...

[Alex_Burn]

Задача №3

Код: Выделить всё

uses crt;
 Var S : String;
    I : Integer;

Begin
 Write('Введите строку: ');
 ReadLn(S);
 For I:=1 To Length(S) Do S[I]:=UpCase(S[I]);
 WriteLn('Строка заглавными буквами: ', S);
 Readkey;
End.

Уточни, что нужно в первой.

[un4-funeral]

мм...на скорую руку
паскаль опять не фурычит
ошибки сам до исправляй потом поэтому=)

N6

Код: Выделить всё

var n,step,i:integer;
 a,s,s1:real;
begin
 Write('Введите a и n: ');
 ReadLn(a,n);
 s:=1/a;
 step:=0;
 while step<>n+1 do
  begin
   step:=step+1;
   s1:=1;
   for i:=1 to 2*step do
     s1:=s1/a; 
   s:=s+s1;
  end;
 WriteLn('Ответ: ', s:6:3);
 Readkey;
End.

[Medved]

N4
[syntax='Delphi']
program lalala;
var n,c,i,j:integer;
begin
read(n);
c:=0;
for i:=1 to n do
for j:=1 to n do
if cos(i*j+n)>0 then inc(c);
writeln(c);
end.
[/syntax]

[Vovchik]

Ну вот №1

Код: Выделить всё

uses crt;
const x=15;
var a:array[1..x]of integer;
    i,tmp:integer;
BEGIN
 clrscr;
  for i:=1 to x do
   begin
    write('a',i,'=');
    readln(a[i]);
   end;
 tmp:=a[1];
 a[1]:=a[x];
 a[15]:=tmp;
  for i:=1 to x do
   begin
    write('a',i,'=',a[i]:3);
   end;
 readln;
END.

[somewhere]

un4-funeral, реализация слижком сложная, можно гораздо проще
Vovchik, необходимо вставить последний элемент перед первым.

[un4-funeral]

somewhere, ну... там же не сказано ничего про оптимизацию кода ((:
не спорю, что легче можно )

[Хыиуду]

Medved, по условию a(i,j)=cos(i*i+n). Так что
for i:=1 to n do
if cos(i*i+n)>0 then inc(c);
c:=c*n;
One, называйте темы осмысленно!

[One]

Огромное СПАСИБО!!! но остались №2 №5 №7 сделайте пожалуйста

[Medved]

Medved, по условию a(i,j)=cos(i*i+n).

Хыиуду, я так понял это опечатка, иначе нет смысла заполнять двумерный массив. Хотел оставить об этом комментарий да времени не хватило.