Технический форум - Задача о символьных строках

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

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

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

- Помощь студентам (http://www.tehnari.ru/forumdisplay.php?f=41)

- - Задача о символьных строках (http://www.tehnari.ru/showthread.php?t=52202)

Monro

25.05.2011 13:31

Задача о символьных строках

помогите,пожалуйста решить задачу))
1.Заданы М строк символов, которые вводятся с клавиатуры. Каждая строка представляет собой последовательность больших или маленьких букв. Определить тип каждой строки: большие или маленькие буквы.

Vladimir_S

25.05.2011 13:51

Во-первых, не клонируйте топики - это запрещено, во-вторых, не цепляйтесь к чужим темам - здесь это не принято, а в-третьих, соблаговолите указать:
1. Язык программирования (Госсс-поди, до чего надоело каждого второго в это носом тыкать!).
2. Какой алфавит - латиница или кириллица. Если устроит латиница - помогу, с кириллицей заморачиваться не буду.

Monro

25.05.2011 13:56

извините,просто первый раз на форуме,сначало не очень поняла где и как свое сообщение оставить((
в паскале.

Monro

25.05.2011 13:56

в латинице.

Vladimir_S

25.05.2011 14:15

Цитата:

Сообщение от Monro (Сообщение 526463)

в паскале.

Цитата:

Сообщение от Monro (Сообщение 526464)

в латинице.

Пожалуйста:

Код:

CONST

 M=10;

VAR

 St:Array[1..M] of String;

 i:Byte;

BEGIN

 For i:=1 to M do

  begin

   Writeln(i:2,' string:');

   Readln(St[i]);

  end;

 Writeln;

 For i:=1 to M do

  begin

   Write(i:2);

   If (Ord(St[i][1])>64) and (Ord(St[i][1])<91)

    then Writeln('  Big') else Writeln('  Small');

  end;

 Readln;

END.

Monro

25.05.2011 16:26

Скажите,пожалуйста,а можно сделать так чтобы я сама вводила количество строк?)
просто программа пишет сразу первую строку,а мне надо самой их задать)

Vladimir_S

25.05.2011 16:42

Цитата:

Сообщение от Monro (Сообщение 526554)

Как-то так:

Код:

VAR  

 St:Array[1..255] of String;  

 i,M:Byte; 

BEGIN

 Write('Number of strings (<256)= ');

 Readln(M);

 For i:=1 to M do   

  begin    

   Writeln(i:2,' string:');    

   Readln(St[i]);   

  end;  

 Writeln;  

 For i:=1 to M do   

  begin    

   Write(i:2);    

   If (Ord(St[i][1])>64) and (Ord(St[i][1])<91) then 

    Writeln('  Big') else Writeln('  Small');   

  end;  

 Readln; 

END.

Monro

25.05.2011 22:11

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

Vladimir_S

25.05.2011 22:45

Цитата:

Сообщение от Monro (Сообщение 526741)

М-да... Вы же пишете

Цитата:

Каждая строка представляет собой последовательность больших или маленьких букв.

Поэтому я и проверял только первую букву.
Если проверять все буквы, то задачка существенно усложняется. Ладно, сейчас сделаю.

Monro

25.05.2011 22:58

Спасибо большое)))

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

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

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