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

[Monro]

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

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

 

[Vladimir_S]

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

 

[Monro]

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

 

[Monro]

в латинице.

 

[Vladimir_S]

в паскале.

в латинице.

Пожалуйста:

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]

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

 

[Vladimir_S]

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

Как-то так:

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]

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

 

[Vladimir_S]

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

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

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

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

 

[Monro]

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

 

[Vladimir_S]

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

Вот. Теперь пускай вводит, чего хочет - хоть цифровую строку!

VAR
 St:Array[1..255] of String;
 i,M,j:Byte;
 B_b,B_s:Boolean;
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);
   B_b:=false;
   B_s:=false;
   For j:=1 to Length(St[i]) do
    begin
     If (Ord(St[i][j])>64) and (Ord(St[i][j])<91) then B_b:=true;
     If (Ord(St[i][j])>96) and (Ord(St[i][j])<123) then B_s:=true;
    end;
   If (B_b=true) and (B_s=false) then  Writeln('  Big') else
   If (B_b=false) and (B_s=true) then  Writeln('  Small') else
   If (B_b=true) and (B_s=true) then Writeln('  Small and Big') else
   Writeln('  String contains no letters');
  end;
 Readln;
END.

 

[Monro]

спасибо огромное,вы меня так выручили!!!!!

 

[Monro]

У меня снова к вам просьба решить задачу только уже другую)))
2.Промоделировать деление целого числа А на целое число В для получения целого частного С и целого остатка Р. Например, при делении А=13 на В=5 должно получиться С=2 и Р=3.

 

[Vladimir_S]

У меня снова к вам просьба решить задачу только уже другую)))
2.Промоделировать деление целого числа А на целое число В для получения целого частного С и целого остатка Р. Например, при делении А=13 на В=5 должно получиться С=2 и Р=3.

Ну... это же стандартные функции! Чего тут "моделировать"? Впрочем, пожалуйста:

VAR
 A,B,C,P:Integer;
BEGIN
 Write('A= ');
 ReadLn(A);
 Write('B= ');
 ReadLn(B);
 C:= A div B;
 P:= A mod B;
 WriteLn('C= ',C);
 WriteLn('P= ',P);
 ReadLn
END.

 

[Monro]

и снова проблемы(((
надо чтобы в Р компьютер писал не 1 разряд,а хотя бы 3(если они есть конечно).
а еще когда я ввела 6 разделить на7 то программа даже неправильно сосчитала((

 

[Vladimir_S]

и снова проблемы(((
надо чтобы в Р компьютер писал не 1 разряд,а хотя бы 3(если они есть конечно).
а еще когда я ввела 6 разделить на7 то программа даже неправильно сосчитала((

Ничего не понял!
Подробнее, пожалуйста.
Результатом целочисленного деления шести на семь будет 0 и 6 в остатке, что программа и показывает. А Вы чего ожидали? А про три разряда и вовсе не понял. Или Вам нужно, вопреки Вашей же формулировке, ЦЕЛОЕ частное и ДРОБНЫЙ остаток? Поясните, пожалуйста.

 

[Monro]

ну просто когда на калькуляторе мой препод специально посчитал и 6 разделил на 7,то он показал 0,875,то есть он хочет чтобы было так:
С=0
Р=875.
а разряды это сколько чисел после запятой.

 

[Monro]

вернее 6 на 7 это 0,857.
нмножко сама запуталась от волнения.
С=0
Р=857

 

[Vladimir_S]

вернее 6 на 7 это 0,857.
нмножко сама запуталась от волнения.
С=0
Р=857

Хотел бы я понять, как это согласуется с

Например, при делении А=13 на В=5 должно получиться С=2 и Р=3.

Ведь 13/5 = 2.6. И каким должно быть Р: 3? 6? 600?
Пока я ничего, увы, понять не могу.

 

[Monro]

в данном случае 6.