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

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

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

> Простейшая задача на String, и маааленький вопрос по n!
сообщение
Сообщение #1


snoWolf
**

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

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


Задача такая: Слова в исходной строке разделены пробелами. Сформировать строку в которой будут все слова из первой строки начинающиеся на гласную букву.

program abc;
const glasn=['а','е','и','о','у','ы','э','ю','я'];
Var
S, S1: string;
a, n, l: byte;
i: char; {Первая буква слова}
begin
writeln ('Ввод текста: '); readln(S);
S:= S + '_';
a:=0; {Количество слов в тексте начинающихся с гласной буквы}
n:= pos('_', s);
while n<>0 do begin
l:=length(S);
i:= copy(S,1,l);
If i=glasn then a:= a + 1;
insert(a, S1, n); writeln(S1); readln;
end;
end;


Выдает ошибку после
Цитата
i:= copy(S,1,l);
- Несоответствие типов.
Ну и в правильности остальной программы я сомневаюсь. Посмотрите пожалуйста.

И еще хотел спросить:
Я написал прогу для вычисления n!
Var f, m: longint;
function fact (n: integer): longint;
begin
if n=0 then fact:= 1
else fact:= fact (n - 1)*n;
end;
begin
writeln('Ввод m: ');
readln(m);
f:=fact(m);
writeln('m= ', f); readln;
end.


Как сделать чтобы она вычисляла факториал (n>100)?

Сообщение отредактировано: volvo -


--------------------
Нас десять братьев на тропе, идем мы быстро, на легке ...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Art87   Простейшая задача на String   12.01.2006 13:49
Гость   Как сделать чтобы она вычисляла факториал (n>10…   12.01.2006 14:24
Студентик13   Можно попробовать Вещественный тип данных EXTENDED   12.01.2006 15:09
Гость   Студентик13, факториал по определению - целое числ…   12.01.2006 15:12
Art87   А если так: var p, r, d: longint; i, j, n: integ…   12.01.2006 15:18
Студентик13   а ты Read(n); Забыл дописать Гость Длиннта EXTEN…   12.01.2006 15:30
Art87   Студентик13 Спасибо. Я не только это забыл дописат…   12.01.2006 15:30
volvo   Студентик13, хорошо, я могу и авторизоваться. Дава…   12.01.2006 15:55
Art87   volvo А программа на string почему не работает? По…   12.01.2006 15:59
Студентик13   Твоя первая программа не работает поэтому(смотри P…   12.01.2006 17:27
klem4   Студентик13, я думаю эту строчку он смог и без теб…   12.01.2006 17:40
Гость   klem4 Спасибо огромное. У меня только один дуратск…   12.01.2006 21:16
klem4   пробел   12.01.2006 21:32
Art87   klem4 Еще вопрос: А зачем столько циклов while? Та…   13.01.2006 14:14
volvo   Нет... Каждый цикл здесь необходим... Это одна из …   13.01.2006 14:23
mdcool   И еще хотел спросить: Я написал прогу для вычисле…   26.04.2007 0:20


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

 





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