написать пару задачек))..

[dauj]

Привет друзья помогите решить пару задачек...)

1) Составьте программы для вычисления суммы элементов последовательности а1,а2....а30. имеющих четные индексы и вывести эти элементы на экран.

2)Составить программу определения большей площади из двух фигур - круга и квадрата. Вывести на экран название и значение большей из площадей.

3)Вычислить значение функции y=sin(n*x) - cos(n/x), если n - запрашивается, а x изменяется от x0 до x1 c шагом k.

4) Составить программу вычисления множества значения функции y=x^2+b для x, изменяющегося от -10 до 10 с шагом 2, а значение b запрашивается.

5) Составить программу вычисления n первых членов арифметической прогрессии, заданных формулой ak+1=ak+d где а1 k и d запрашиваются при запуске программы.

6)Сгенерировать последовательность B из n (n запрашивается) вещественных чисел в диапазоне от -8,7 до -5,7 и вывести её в порядке убывания.

7)Запросить текст и во введённом тексте слово "мама" заменить словом "бабушка".

8)Запросить текст и во введённом тексте посчитать кол-во цифр и вывести их отдельно на экран.

9)Написать программу для записи в файл 10 случайных вещественных чисел в диапазоне от -9,5 до 9,5 и создать ещё одну программу для чтения этих чисел из файла и вывода их на экран.

10)Транспонировать матрицу 3x3 , заполненную числами в диапазоне -3,5...1,5. Вывести на экран исходную и транспонированную матрицы.

спасибо..

[grom333]

Например, 8 задача.
Подключаете текстовый документ, присваиваете текст переменной текстового типа.
Потом в цикле

for i:=1 to length(s) do

по одному проверяете, является ли этот символ цифрой. Если да, то значение этого символа s[i] забиваете в массив. Как цикл пройдет до конца, вы массив выводите на экран.

[Poma][a]

задача 7

program MotherToGaranny;

var
s, ss : string;
i : Byte;
begin
ReadLn (s);
ss := 'бабушка';
i := Pos (ss, s);
while i <> 0 do begin
Delete (s, i, 4);
Insert (ss, s, i - 1);
i := Pos (ss,s);
end;
end.
как-то как не проверял...

[Poma][a]

program MotherToGaranny;

var
           s, ss : string;
           i : Byte;
begin
           ReadLn (s);
           ss := 'бабушка';
           i := Pos (ss, s);
           while i <> 0 do begin
                    Delete (s, i, 4);
                    Insert  (ss, s, i - 1);
                    i := Pos (ss,s);
           end;
end.

как-то как не проверял...

[hiho]

Сообщение от dauj

1) Составьте программы для вычисления суммы элементов последовательности а1,а2....а30. имеющих четные индексы и вывести эти элементы на экран.

s := 0;
for i := 1 to N do if (i mod 2 = 1) then begin
s := s + A[i];
write(A[i], ' ');
end;
writeln('s = ',s);

Сообщение от dauj

8)Запросить текст и во введённом тексте посчитать кол-во цифр и вывести их отдельно на экран.

for i := 1 to Length(s) do
if (s[i] in ['1'..'9']) then begin
inc(count);
write(s[i],' ');
end;
writeln('count = ',count);

[Leshii]

3)Вычислить значение функции y=sin(n*x) - cos(n/x), если n - запрашивается, а x изменяется от x0 до x1 c шагом k.

Program func;
Usec crt;
const x0=1;x1=10;k=0.5;//где к-количество шагов//
var x,y,n:real;
Function Num(n,x:real):real;
   begin
      Num:=sin(n*x) - cos (n/x);
   end;
begin
clrscr;
writeln('Vvedite n: ');
readln(n);
x:=x0;
while x<=x1 do
begin
y:=Num(n,x);
writeln(y:1:1);
x:=x+k;
end;
end.

[SidzuAme]

Program p4;
Uses crt;
Var
      Y,x,b: real;
Begin
clrscr;
x:= -10;
writeln('Введите b для Y= x^2+b');
readln(b);
While x<=10 do
  begin
  Y:= sqr(x)+b;
  writeln(x:5:2, Y:10:2);
  x:=x+2;
  end;
repeat until keypressed;
End.

Program p5;
Uses crt;
Var
      a1,d: real;
      i,k:word;
Begin
clrscr;
writeln('Введите a1, k, d если a[k+1]=a[k]+d');
readln(a1,k,d);
While i<=k do
  begin
  write(a1:5:2, ' | ');
  a1:=a1+d;
  inc(i);
  end;
repeat until keypressed;
End.

Program p6;
Uses crt;
Var
      mas: array[1..50] of real;
      p:real;
      i,j,n,m:word;
Begin
clrscr; randomize;
writeln('Введите число вещественных чисел');
readln(n);
i:=1;
While i<=n do
  begin
  mas[i]:=(random(301)-870)/100;
  inc(i);
  end;
i:=1;
j:=1;
m:=n-1;
while j<=n do
begin
while i<=m do
  begin
  If mas[i]<mas[i+1] then begin
                          p:=mas[i+1];
                          mas[i+1]:=mas[i];
                          mas[i]:=p;
                          end;
  inc(i);
  end;
dec(m);
i:=1;
inc(j);
end;
i:=1;
while i<=n do
  begin
  writeln(mas[i]:5:2);
  inc(i);
  end;
repeat until keypressed;
End.

[Сергей69_69]

Помогите пожалуйста решить в паскале следующие 2 задачи:
1. вычислить значение функции: F= "фигурная скобка" Z^2, если Z>=1; z-1, если z,1
2. определить являетчся ли треугольник со сторонами а, b, c равносторонним.
Спасибо.

[SidzuAme]

В первой задаче какие входные данные, точка z1 и z2?

Program zadanie1;
Uses crt;
Var
      F,z1,z2,k: real;
Begin
clrscr;
z1:= -5;
z2:= 5;
k:=0.5;
while z1<=z2 do
begin
  If z1<1 then F:= z1-1
          else F:= sqr(z1);
  writeln(z1:5:2, F:10:2);
  z1:=z1+k;
  end;
repeat until keypressed;
End.

Во второй даны стороны a,b и c или координаты вершин?

Program zadanie2;
Uses crt;
Var
      a,b,c: integer;
Begin
clrscr;
writeln('Введите длины сторон треугольника');
readln(a,b,c);
If (a=b) and (b=c) then writeln('Равносторонний')
                   else writeln('Обычный');
repeat until keypressed;
End.