Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
dima248
0 / 0 / 0
Регистрация: 02.10.2013
Сообщений: 12
#1

Задан текст, нужно узнать, стоят между ,буквами "a" и "z" цифры - Pascal ABC

03.10.2013, 17:11. Просмотров 411. Ответов 7
Метки нет (Все метки)

Вот полное задание, помогите пожалуйста написать текст программы:

Задан текст, состоящий из цифр и букв. Логической переменной b придать значение true, если между буквами - "a" и - "z" нет других символов, кроме строчных латинских букв, и значение false в противном случае.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.10.2013, 17:11
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Задан текст, нужно узнать, стоят между ,буквами "a" и "z" цифры (Pascal ABC):

Вывести текст файла, заменив цифры от 0 до 9 на слова "ноль", "один"..."девять", начиная каждое предложение с новой строки - Pascal ABC
Написать программу, которая считывает текст из файла и выводит его на экран, заменив цифры от 0 до 9 на слова "ноль", "один"..."девять",...

Удвоить в строке буквы "ю", "ъ", "ф", "э", а между словами оставить только по одному пробелу - Pascal ABC
Пользователь заполняет символьную строку русскими буквами. Буквы ю, ъ, ф, э в ней нужно удвоить, а между словами оставить только по одному...

Из слова "клоун" путем "вырезок" и "склеек" его букв получить слова "уклон","кулон" и "колун" - Pascal ABC
Из слова "клоун" путем "вырезок" и "склеек" его букв получить слова "уклон","кулон" и...

Даны текстовый файл "F" и строка "S". Получить все строки файла "F", содержащие в качестве фрагмента строку "S". - Pascal ABC
Плиз помогите написать прогу: Даны текстовый файл "F" и строка "S". Получить все строки файла "F", содержащие в качестве фрагмента строку...

Пожалуйста, составьте программу, которая из слов"СТРАХ","БЕЛКА","ЦЫПЛЁНОК" получает слово "СТОЛБЕЦ" - Pascal ABC
Пожалуйста, составьте программу, которая из слов"СТРАХ","БЕЛКА","ЦЫПЛЁНОК" получает слово "СТОЛБЕЦ".

Изобразить стрелку и осуществить движение по клавишам "вверх", "вниз", "вправо", "влево" - Pascal ABC
Необходимо изобразить стрелку и осуществить движение по клавишам "вверх", "вниз", "вправо", "влево".

7
ermolay
3419 / 2358 / 685
Регистрация: 04.12.2011
Сообщений: 3,961
03.10.2013, 18:03 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
var
  s: string;
  i,p,q: byte;
  b: boolean;
begin
  write('Ââåäèòå ГІГҐГЄГ±ГІ: ');
  readln(s);
  p:=pos('a',s); q:=pos('z',s);
  if (p=0) or (q=0) then  // åñëè Г*ГҐГІ ñèìâîëГ* 'a' èëè 'z'
  writeln('ГЌГҐГўГҐГ°Г*Г® Г§Г*Г¤Г*Г* ГІГҐГЄГ±ГІ') else
  begin
    b:=true;
    // åñëè 'a' ñòîèò äî 'z'
    if p<q then
    begin
      for i:=p to q do
        if not (s[i] in ['a'..'z']) then b:=false
    end else
    // åñëè 'z' ñòîèò äî 'a'
    if p>q then
    begin
      for i:=p downto q do
        if not (s[i] in ['a'..'z']) then b:=false
    end;
    writeln('b=',b);
  end;
  readln;
end.
1
Turbal
94 / 94 / 15
Регистрация: 29.06.2013
Сообщений: 252
03.10.2013, 18:06 #3
Вот еще вариант:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Program strokaz;
var S: String;
    i: Integer;
    b: Boolean;
begin
b := True;
Write('Ââåäèòå ñòðîêó: ');
ReadLn(S);
for i:=1 to Length(S) do
    if S[i]='a' then
       repeat
       if not (S[i] in ['a'..'z']) then b:=False;
       Inc(i);
       until (S[i]='z') or (i=Length(S));
WriteLn('b = ',b);
end.
2
dima248
0 / 0 / 0
Регистрация: 02.10.2013
Сообщений: 12
03.10.2013, 19:15  [ТС] #4
Спасибо огромное, только я забыл предупредить, тип string использовать нельзя. Я понимаю что вас напрягаю, но напиши еще вариант используя только (char,integer,boolean)
0
Turbal
94 / 94 / 15
Регистрация: 29.06.2013
Сообщений: 252
03.10.2013, 19:35 #5
Вот! Но теперь нельзя редактировать текст при вводе. Если это необходимо, пишите...
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Program strokaz;
uses Crt;
var S: Array [1..100] of Char;
    i,n: Integer;
    b: Boolean;
begin
ClrScr;
b := True;
i := 1;
Write('Ââåäèòå ñòðîêó: ');
repeat
    S[i] := ReadKey;
    Write(S[i]);
    Inc(i);
until S[i-1]=#13;
n:=i-1;
for i:=1 to n do
    if S[i]='a' then
       repeat
       if not (S[i] in ['a'..'z']) then b:=False;
       Inc(i);
       until (S[i]='z') or (i=n);
WriteLn;
WriteLn('b = ',b);
end.
1
dima248
0 / 0 / 0
Регистрация: 02.10.2013
Сообщений: 12
03.10.2013, 19:48  [ТС] #6
Это все, все равно чуть не то что я хотел( Мне надо ее написать по примитивному не используя никаких массивов и т.д. И данные должны вводиться через файл.
Вот один из примеров:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program charv6p;
uses crt;
var dig,next:char;
     f1:text;
    begin clrscr;
    assign(f1,'charv4d.pas');
    reset(f1);
   while not eof(f1) do begin
   read(f1,dig);
   if dig='9' then begin next:='0'; write(next) end;
   if ((dig>='0') and (dig<='8')) then begin next:=chr(ord(dig)+1);
    write(next) end ;
    end;
    end.
0
Turbal
94 / 94 / 15
Регистрация: 29.06.2013
Сообщений: 252
03.10.2013, 20:11 #7
Может так?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Program strokaz;
var F: Text;
    c: Char;
    b: Boolean;
begin
b := True;
Assign(F,'Name.txt');
Reset(F);
While not EoF(F) do
    begin
    Read(F,c);
    if c='a' then
       repeat
       Read(F,c);
       if not (c in ['a'..'z']) then b:=False;
       until (c='z') or EoF(F);
    end;
Close(F);
WriteLn('b = ',b);
end.
1
dima248
0 / 0 / 0
Регистрация: 02.10.2013
Сообщений: 12
03.10.2013, 20:44  [ТС] #8
Цитата Сообщение от Turbal Посмотреть сообщение
Program strokaz;
var F: Text;
* * c: Char;
* * b: Boolean;
begin
b := True;
Assign(F,'Name.txt');
Reset(F);
While not EoF(F) do
* * begin
* * Read(F,c);
* * if c='a' then
* * * *repeat
* * * *Read(F,c);
* * * *if not (c in ['a'..'z']) then b:=False;
* * * *until (c='z') or EoF(F);
* * end;
Close(F);
WriteLn('b = ',b);
end.
Спасибо огромное, это то -что нужно!
0
03.10.2013, 20:44
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.10.2013, 20:44
Привет! Вот еще темы с ответами:

Даны строки а="вариант",b= "Высоко", с = "макароны". Получить слово "соковарка" - Pascal ABC
4 .Даны строки а=&quot;вариант&quot;,b= &quot;Высоко&quot;, с = &quot;макароны&quot;. Получить слово &quot;соковарка&quot;.

Определить сколько "5", "4", "3", "2" было выставлено в каждом классе - Pascal ABC
известны оценки за контрольную по физике каждого ученика двух классов. Определить сколько &quot;5&quot;, &quot;4&quot;, &quot;3&quot;, &quot;2&quot; было выставлено в каждом...

Заменить букву "А" на "КО" и подсчитать общее количество букв "Ф" и "В" - Pascal ABC
Заменить букву &quot;А&quot; на &quot;КО&quot; и подсчитать общее кол-во букв &quot;Ф&quot; и &quot;В&quot; . и Последнее слово строки поставить после первого ...

Дано натуральное число. Определить сколько раз в нем встречаются цифры "О" и "5" - Pascal ABC
6.85. Дано натуральное число. Определить:е) сколько раз в нем встречаются цифры &quot;О&quot; и &quot;5&quot;.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru