хелп 3 задачки на паскале

[Ksuha]

Помогите пажалуста глупой девушке которая зачем то поступила фивт. Надо сдать 3 лабы, как написать хз, одногрупники бесчуственные жывотные помочь не хотят (
1. Нужно найти среднее арифметическое элементов двумерного массива
2. Прога должна запрашивать слово, а потом выбирать из него только гласные буквы и выводить их
3. Прога должна запрашивать дату в формате хх.хх.хххх и после ввода говорить какой это день недели причем с учетом високосных годов

кто поможет буду очень вери признательна

[Maslan]

{
Будет два варианта - один для Delphi, второй - для TurboPascal т.к.
не понятно на чём вы там пишите.
Основное различие - в "чистом" паскале нет массивов переменной длины.
}
(* Это часть для Delphi *)
program Srednee;
{$APPTYPE CONSOLE}
uses
  SysUtils;
 (*начало программы для Delphi закончено *)
 (*Начало прогдаммы для Pascal
Program Srednee;
 (*начало программы для Pascal закончено *)

{Переменные для Delphi-варианта}
Var A:Array of array of extended; Lines,Columns,I,J:Integer; e:Extended;

{Перменные для TurboPascal-варианта}
Var B:Array[1..10] of array[1..20] of extended;k,l:integer;sred:extended;

begin
{Вариант для Delphi}
Write('Kolichestvo strok>');
ReadLn(Lines);
Write('Kolichestvo stolbcov>');
ReadLn(Columns);
SetLength(A,Lines);
For i:= 0 to Lines -1 do
SetLength(A[i],Columns);
For i:= 0 to Lines -1 do
  For j:= 0 to Columns -1 do
   begin
   Write('Element [',i,',',j,'] =?  >');
   Readln(A[i][j]);
   end;
e:=0;
For i:= 0 to Lines -1 do//Перебираем все строки
  For j:= 0 to Columns -1 do// в каждой строке - каждый столбец
   e:=e+A[i][j];
e:=e/(i*j);
WriteLn('Srednee=',e);
ReadLn;
{Вариант для Delphi закончен}

{Вариант для Turbo Pascal}
Sred:=0;
For i:= 1 to 10 do//Перебираем все строки
  For j:= 1 to 20 do// в каждой строке - каждый столбец
   Sred:=Sred+A[i][j];
Sred:=Sred/(i*j);
WriteLn('Srednee=',Sred);
ReadLn;
{Вариант для Turbo Pascal закончен}
end.

[Maslan]

В самом начале массив определяющий гласные. Т.к. я писал на Delphi "консольное приложение" (типа как паскаль делает), то пришлось использовать буквы DOS в программе Win - поэтому там не букву, а крякозяблы. Если нужно - поправь. Порядок букв не важен, просто все большие и маленькие гласные перечисли.

Var Glasnie:Array[1..20] of char=('Ђ','…','?','Ћ','“','ќ','ћ','џ','р','›',
'*','Ґ','Ё','®','г','л','н','о','п','с');
Slovo:String;
i:Integer;
Bukva:Char;
begin
  Write('Vvedite Stroku:');
  readLn(Slovo);
  Write('Glasnie:');
  For i:=1 to Length(Slovo) do
   begin
    Bukva:=Slovo[i];
    if    (Bukva=Glasnie[1])OR(Bukva=Glasnie[2])OR(Bukva=Glasnie[3])OR      
         (Bukva=Glasnie[4])OR(Bukva=Glasnie[5])OR(Bukva=Glasnie[6])OR        
         (Bukva=Glasnie[7])OR(Bukva=Glasnie[8])OR(Bukva=Glasnie[9])OR 
         (Bukva=Glasnie[10])OR(Bukva=Glasnie[11])OR(Bukva=Glasnie[12])OR
         (Bukva=Glasnie[13])OR (Bukva=Glasnie[14])OR (Bukva=Glasnie[15])OR
         (Bukva=Glasnie[16])OR(Bukva=Glasnie[17])OR (Bukva=Glasnie[18])OR
         (Bukva=Glasnie[19])OR(Bukva=Glasnie[20])
   then write(Bukva)
   else write('*');
 end;
ReadLn;
end.

В результате будет что-то такое:

Vvedite Stroku:Мама мыла раму.
Glasnie:*а*а**ы*а**а*у*

[Maslan]

А вот тут не всё так просто...

program DayOf;
{$APPTYPE CONSOLE}
Uses SysUtils;
const
  YEARS  : array[0.. 3] of byte = (0, 2, 3, 4);
  MONTHS : array[1..12] of byte = (0, 3, 3, 6, 1, 4, 6, 2, 5, 0, 3, 5);
  DAYOFWEEKS  : array[0..6] of string =
    ('Voskresenie', 'Poned', 'Vtor', 'Sred', 'Chet','Pjat', 'Sub');

var
  a,b,c,d,e,f,tmp : byte;
  day,month,year: word;
  s:String;
begin
Write('Vvedite datu v formate dd.mm.yyyy >');
ReadLn(s);
day:=StrToInt(s[1]+s[2]);
month:=StrToInt(s[4]+s[5]);
year:=StrToInt(s[7]+s[8]+s[9]+s[10]);                                 
    tmp := year - 1996;
    a := tmp and 3;
    b := (tmp shr 2) + (tmp and $FC);                                     
    c := MONTHS[month];
    if (a = 0) and (month > 2) then inc(c);                             
    a := YEARS[a];
    e := (a + b + c + day) mod 7;                                      
    writeln('Vvedennij denj: ', DAYOFWEEKS[e]);
    writeln;                                                           
Readln;
end.

Код практически не мой. Работает по григорианскому календарю - то есть после 1583 года.

Беда вот в чём: Если ты не училась весь семестр, то доказать преподу, что сама додумалась и сама написала задачи 1 и 2 хоть как-то можно. Но вот с этой, третьей, хоть землю ешь - не поверит.

[Stilet]

Маслан, ты со второй задачкой перебрал.
Ксюша вот вариант проще для второй :

[I]uses crt;
var s:string;i:integer;
begin
readln(s);writeln;
for i:=1 to length(s) do
if pos(s[i],'йуеыаоэиюя')<>0 then write(s);
end.

Да и еще, Маслан, Ксюша просила на ПАСКАЛЕ

[Ksuha]

Всем огромное спасибо за помощь =)

Беда вот в чём: Если ты не училась весь семестр, то доказать преподу, что сама додумалась и сама написала задачи 1 и 2 хоть как-то можно. Но вот с этой, третьей, хоть землю ешь - не поверит.

Не ну я все таки что то знаю, до этого же 5 лаб сама написала Обьяснить думаю смогу, а что касается 3 проги я нашла подробное описание о том как она пишется, с примером http://ruseti.ru/book14/gl2/gl2_7_1.html

но все равно еще раз всем ОГРОМНОЕ спасибо

[vit_galina]

1. Нужно найти среднее арифметическое элементов двумерного массива
2. Прога должна запрашивать слово, а потом выбирать из него только гласные буквы и выводить их
3. Прога должна запрашивать дату в формате хх.хх.хххх и после ввода говорить какой это день недели причем с учетом високосных годов
Есл это лаб. рабы, то нужно не просто какой-либо алгоритм использовать, а в соответствии с темой Лабы. Сами по себе темы не очень сложные.
1) среднее арифметическое элементов двумерного массива - это сумма элементов этого массива, деленная на К- количество элементов (для 2-х мерного это К=m x n, где m - кол-во строк, n- кол-во столбцов).
2) Вторая задача скорее всего на множества. Задать множество из всех гласных букв. При переборе очередной буквы слова, просто проверять принадлежит она множеству или нет, если принадлежит, т.е. содержит гласные буквы, то формировать из них подстроку или просто сразу выводить на экран.
Если Вы уже сдавали много лабрабов, то не составит труда реализовать алгоритмы. Успехов.

[Stilet]

Вторая задача скорее всего на множества

В посте №5 замени условие на
if s[i] in ['й','у'... и так далее остальные буквы] then Вывести на экран
Впиши в [] нужные тебе буквы.

[Maslan]

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

В посте №5 замени условие на
if s[i] in ['й','у'... и так далее остальные буквы] then Вывести на экран
Впиши в [] нужные тебе буквы.

А родной паскаль поддерживает in ?

[Stilet]

А в хелп заглянуть? )