Три задачи на Паскале

[GrandLeon]

Три задачи на Паскале

Помогите пожалуйста нубу в паскале
Нужно до пятницы сделать три задачи.

Развилка
Вводится номер месяца. Программа возвращает его название.

Массивы
Упорядочив целочисленных массив из 15 элементов по возрастанию и вывести на экран положительную часть массива.

Строки
Определить и вывести число слов во введенном предложении.

Уважайте Правила форума, в том числе п.2.1. Тема переименована.
Модератор.

 

[DDS]

Первая задача

Var m:byte;
 Begin
    Readln(m);
    Case m of
       1  :writeln('Январь');
       2  :writeln('Февраль');
       3  :writeln('Март');
       4  :writeln('Апрель');
       5  :writeln('Май');
       6  :writeln('Июнь');
       7  :writeln('Июль);
       8  :writeln('Август');
       9  :writeln('Сентябрь');
      10 :writeln('Октябрь');
      11 :writeln('Ноябрь');
      12 :writeln('Декабрь');
     end;
End.

 

[Vladimir_S]

Развилка
Вводится номер месяца. Программа возвращает его название.

CONST
 Month:ARRAY[1..12] of STRING=('January',
                               'February',
                               'March',
                               'April',
                               'May',
                               'June',
                               'July',
                               'August',
                               'September',
                               'October',
                               'November',
                               'December');
Var
 n:BYTE;
Begin
 Write('Enter the number of month ');
 ReadLn(n);
 WriteLn(Month[n]);
 ReadLn;
End.

 

[GrandLeon]

Очень на вас рассчитываю, ибо препод злойстный гад с проблемами в личной жизни... объясняет словно мы должны читать его мысли наперед... вообщем .. =( я ни чего не шарю в турбопаскале. Пожалуйста помогите. (((

 

[Vladimir_S]

Вот - два гениальных решения задачи века.

 

[GrandLeon]

Vladimir_S оуу... спасибо огромное!!!

 

[Vladimir_S]

Vladimir_S оуу... спасибо огромное!!!

А чего же только мне? У DDS тоже правильно, хоть и несколько по-другому.

 

[DDS]

Задача 2

Uses crt;
Const n=15;
Var i,j:byte;
     a:array[1..n]of integer;
     p:integer;
Begin
Clrscr;
Randomize;
  For i:=1 to n do
  A[i]:=random(100)-50;

  For i:=1 to n do
  Write(a[i]:5);
 Writeln;
 For i := n downto 2 do
        For j := 2 to i do
          if A[j] < A[j-1] then
            begin
              p := A[j];
              A[j] := A[j-1];
              A[j-1] := p;
            end;

  For i:=1 to n do 
  If a[i]>0 then write(a[i]:5);
 End.

 

[DDS]

Задача 3

Var 
       text:string;
       i,k:byte;
       s:char;
 Begin
      s:=' ';
      k:=1;
      ReadLn(text);
      For i:=1 to length(text) do
        If text[i]=s then k:=k+1;
      Writeln(k);
End.

 

[Long Cat]

DDS, у вас ошибка в решении задачи 3, сами найдете?

 

[GrandLeon]

Сори обделил вниманием ^.^
DDS и вам большое спасибо!!! ))))

 

[DDS]

Long Cat
Просмотрел программу - вродк работает правильно...
Сдаюсь, не знаю где ошибка...

 

[Long Cat]

Переменная k не инициализируется после запуска программы. Это означает, что есть ненулевая вероятность того, что в ней сразу после запуска программы будет не 0, а неизвестно что.
Так что нужно добавить строчку k:=1 и убрать добавление 1 после подсчета.

 

[DDS]

Long Cat
Спасибо за подсказку!

 

[GrandLeon]

Спасибо всем большое!!! =)

Если вам не сложно, могли бы еще пару заданий сделать. Я сделал но мало ли, может у меня есть ошибки, хотелось бы для сравнения еще примеров... пожалуйста ))

 

[GrandLeon]

Линейные
Вычислите периметр и площадь прямоугольного треугольника по длинам двух его катетов.

Цикл
Программа выводит квадраты всех натуральных чисел от 1 до заданного N

 

[AlexZir]

program triang;
var a, b, c, p, s: real;
begin
writeln('Input a >');
readln(a);
writeln('Input b >');
readln(b);
c:=sqrt(sqr(a)+sqr(b));
p:=a+b+c;
s:=(a*b)/2;
writeln('S=',s);
writeln('P=',p);
readln
end.

 

[AlexZir]

program kvadr_nat;
var i, n: integer;
begin
write('Input N >');
readln(n);
for i:=1 to n do
writeln(i,'^2=',sqr(i));
readln
end.

 

[GrandLeon]

AlexZir клёва )) спасибо...

Всем большое спасибо! Выручили! ^.^

 

[GrandLeon]

Что то программа №2 не работает =(
долго мучился так и не понял почемуСсылка удалена
подскажите в чем проблема ((