IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> подсчет буквенных символов в выражении, не соображу....
сообщение
Сообщение #1


Гость






задание
составить программу подсчета количества буквенных символов в выражении


дело состоит в том - не могу понять как организовать сам подсчет символов ..


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

...
for i:=1 to length(str) do
for x:='A' to 'Z' do

if k[x] in ['A','Z']
then n:=n+1
... итд

или вот буквенные символы( заглавные латинские) находятся в кодировке от 35 до 90....
здесь совсем темный лес...

for x:='A' to 'Z' do
if x>=35 and x<=90 {здесь мне при полной прогрмме выдавал ошибку[x<=90]. хотя даж не понимаю как
можноприсвоить так сказать символьной переменной Х число...не используя при этом
подпрограмм, хотя при х=> 35 прокатило...).


...
одним словом - ужас..

думаю.что здесь полный бред написан, но все же,надеюсь на помощь....
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Студент 3-к группы (ИГТК)
*

Группа: Пользователи
Сообщений: 32
Пол: Мужской
Реальное имя: Артём

Репутация: -  1  +


Может всё таки так будет правильнее:
If k[x] in ['A'..'Z','a'..'z'] then
begin
{
Выполняем нужные нам операции
}
end;



--------------------
Жизнь - это лестница. Когда одна ступень проваливается, 2-ая нога находиться на второй ступеньке, а значит есть и второй шанс... ©
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3





Группа: Пользователи
Сообщений: 6
Пол: Мужской

Репутация: -  0  +


помогите исправить ошибку....
смысл вот он!... а тут ошибка((..туго с исправлением...


type
letters='A'..'Z';
var
k:array[letters] of string;
i,n:integer;
x:letters;
str:string;
begin
for i:=1 to length(str) do
begin
for x:='A' to 'Z' do
if k[x] in ['A','Z']
then
begin
n:=0;
for i:=1 to length(str) do
n:=n+1;
end;
end;
writeln('в выражении',n,'букв');
readln;
end.


выводит 41 ошибку....

Сообщение отредактировано: Dimanez -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Новичок
*

Группа: Пользователи
Сообщений: 15
Пол: Мужской
Реальное имя: Максим

Репутация: -  0  +


Функция ord возращает порядковый номер символа в таблице кодов аски.
Символы A..Z идут под номерами от 65 до 90, a..z от 97 до 122
var s: string;
k,i: integer;
begin
readln(s);
K:=0;
for i:=1 to length(s) do
if (ord(s[i])>=65) and (ord(s[i])<=90) or
(ord(s[i])>=97) and (ord(s[i])<=122) then k:=k+1;
writeln(k);
readln;
end.


Сообщение отредактировано: nopsrer -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5





Группа: Пользователи
Сообщений: 7
Пол: Мужской

Репутация: -  -1  +


i:=1;
while (i<=length (str)) do
begin
if (S[i] in ['a'..'z','A'..'Z']) then
inc (count);
inc (i);
end;
WriteLn ('count=',count)

Если не ошибся, то типо чото того должно быть.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Гость






Буквы могут, кстати, быть не только латинскими... rolleyes.gif
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7





Группа: Пользователи
Сообщений: 6
Пол: Мужской

Репутация: -  0  +


угу....препод говрил...таблицу показывала с символами....там вопщем,не только буквы,а и символы...
было бы не плохо в FAQ'e такую таблицу вставить)

Сообщение отредактировано: Dimanez -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Гуру
*****

Группа: Пользователи
Сообщений: 1 168
Пол: Мужской
Реальное имя: Сергей Андрианов

Репутация: -  28  +


Трудно, конечно, что-то говорить, не зная, о какой таблице идет речь, но, вероятно, эта таблица может быть получена простейшей программой:
var
i,j,k : integer;
f : file;
begin
assign(f,'ascii.cod');
rewrite(f,1);
for j := 0 to 15 do begin
for i := 0 to 15 do begin
k := i + j*16;
blockwrite(f,k,1);
end;
k := 13;
blockwrite(f,k,1);
k := 10;
blockwrite(f,k,1);
end;
close(f);
end.
(кстати, совсем недавно я ее где-то уже приводил. Возможно и на этом форуме)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Новичок
*

Группа: Пользователи
Сообщений: 15
Пол: Мужской
Реальное имя: Максим

Репутация: -  0  +


Таблица кодов ASCII


Эскизы прикрепленных изображений
Прикрепленное изображение Прикрепленное изображение
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #10


Гуру
*****

Группа: Пользователи
Сообщений: 1 168
Пол: Мужской
Реальное имя: Сергей Андрианов

Репутация: -  28  +


Это не ASCII, это сканкоды клавиатуры.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 21.09.2020 20:52
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name