Технический форум - Три задачи на Паскале

Страница 1 из 3

Показывать 40 сообщений этой темы на одной странице

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Три задачи на Паскале (http://www.tehnari.ru/f41/t32494/)

GrandLeon

27.01.2010 16:55

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

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

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

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

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

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

DDS	27.01.2010 17:09

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

Код:

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

27.01.2010 17:10

Цитата:

Сообщение от GrandLeon (Сообщение 287427)

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

Код:

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

27.01.2010 17:11

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

Vladimir_S

27.01.2010 17:12

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

GrandLeon

27.01.2010 17:12

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

Vladimir_S

27.01.2010 17:20

Цитата:

Сообщение от GrandLeon (Сообщение 287441)

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

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

DDS	27.01.2010 17:28

Задача 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	27.01.2010 17:32

Задача 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

27.01.2010 17:35

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

Часовой пояс GMT +4, время: 16:14.

Страница 1 из 3

Показывать 40 сообщений этой темы на одной странице