Дюди добрые помогите по ПАСКАЛЮ. Я полный ноль в нем ))

[Jey_RO]

мне нужно сдать 4 лабы 27го мая для допуска к зачету )) а я эм.....почти ничего не понимаю в паскале )) помогите мне пжл =) все программы легкие и не составят трудности в написании (для вас)..... очень вас прошу помогите мне

Лаба №1 тема:циклы

Задание: Вычислить сумму ряда. Вычисления заканчивать при достижении заданной степени точности (т.е.очередной член ряда становится меньше введенной точности, либо разность между двумя соседними членами ряда становятся меньше введенного значения точности) - П/4 = 1-1/3+1/5-1/7+1/9-...

Лаба №2 тема:одномерные массивы

Вводится длина одномерного массива (вектора) и значения его элементов. Вводится дополнительный массив разрешенных значений. Определить и вывести на экран, сколько элементов исходного массива имеют разрешенные значения.

Лаба №3 тема:двумерные массивы

Ввести размер прямоугольной матрицы и значения ее элементов. Построить вектор В, где В(i)- номер минимального значения в i-ом столбце

Лаба №4 тема:работа со строками

Ввести строку текста. Строка может быть пустая или из одних пробелов. Разделители представляют собой множество - ('/?.,<;>:"!'*%'). Слово - любая последовательность символов, ограниченная с одной или двух сторон разделителями. (примечание: никаких дополн. строк создавать нельзя!) УБРАТЬ ЛИШНИЕ РАЗДЕЛИТЕЛИ ПОСЛЕ СЛОВ С ЧЕТНОЙ ДЛИНОЙ.


уважаемые программисты,очень вас прошу помочь хоть чем нибудь

[hoza_syl]

Я тебе помогу с № 3.

program Massyw_X_2;
 const
   max = 50;    //максимальный размер масива
 var
   w, h   : integer; // размеры матрицы.
   matrix : array [1..max,1..max] of integer;   //сама матрица
   i,j,k : integer;   //переменный щетчики
   B : array[1..max] of integer;  //Вектор

   //функция, которая вычисляет минимальное значиние в столбце col
   function min (col : integer) : integer;
    var i, min : integer;
   begin
     min:=matrix[1,col];
     for I := 1 to h do
         if matrix[i,col]<min then min:=matrix[i,col];
     result:=min;
   end;

     begin                  //начало самой проги.
      writeln('Введите размеры матрицы');
      readln(w,h); //читаем размеры матрицы
      writeln('Введите матрицу');

      for I := 1 to h do   //цыклы заполниния матрицы значениями
      begin
        for j := 1 to w  do
            read(matrix[i,j]);
        writeln;
      end;

      //формуруем вектор
      for k := 1 to w do
      begin
        B[k]:=min(k);
        writeln(B[k]); //и сразу отображаем его.
      end;

readln;  //Останавливаем прогу, пока не нажать  Enter/

   end.

!!!Примичание: Текст в операторах Writeln нужно писать латиницей.

[Jey_RO]

hoza_syl огроменное тебе спасибо ! Ты просто нереально мне помог ))) такого подробного ответа я и не надеялся получить ))) а с помощью коментариев я даже начал понимать какой оператор за что отвечает ))) спасибо тебе огромное

[puporev]

Лаба №1.

uses crt;
var i:integer;
    e,sum,a,ai:real;
//e-погрешность,sum-результат,a,ai-текущий и следующий члены ряда
begin
clrscr; //очищаем экран
Write('Vvedite znachenie pogreshnosyi e=');
readln(e);
sum:=0;i:=1;a:=1/(2*i-1);//начальные значения
while (abs(a-ai)>e) or (a>e)do //пока больше погрешности
    begin
      a:=ai; 
      ai:=1/(2*i-1); //формула члена ряда
      if i mod 2<>0 then//если нечетный номер-прибавляем
      sum:=sum+ai
      else sum:=sum-ai;//если четный-отнимаем
      i:=i+1;  //переход к следующему значению
    end;
writeln('pi/4=',sum:2:4);//вывод на экран
readln  //нажать Enter
end.

Лаба №2.

uses crt;
var a,b:array[1..50]of integer;
    n,m,i,j,k:integer;
begin
clrscr;
write('n=');readln(n);//размерность исходного массива
writeln('Vvedite ',n,' elementov massiva:');
for i:=1 to n do
read(a[i]);//вводим в строчку, через пробел
readln;    //конец ввода-Enter
write('m=');readln(m); //размерность массива разрешенных значений
writeln('Vvedite ',m,' razreshennyh znachenij:');
for i:=1 to m do
read(b[i]);
readln;
k:=0;
for i:=1 to n do
for j:=1 to m do
if a[i]=b[j] then//если элемент совпадает с разрешенным
   begin
     k:=k+1; //прибавляем единичку
   end;
writeln('Kolichestvo razreshennyh=',k);//выводим на экран
readln
end.

[Jey_RO]

puporevСпасибо вам большое за помощь ))))))) очень вам благодарен