|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
27.04.2008, 21:41 | #1 |
Пользователь
Регистрация: 27.04.2008
Сообщений: 10
|
Паскаль, 2 задачи на строки, 1 на процедуру
1. Для двух строк найти n символов, таких чтобы в 1 строке-строчная буква, а во второй такая же заглавная.
пример как должно работать: s1:bebпя s2:BCDЯ результат:b=1->B=1 b=3->B=1 я=5->Я=5 2. случайным образом комп загадывает букву алфавита. Пользователь должен ее отгадать с помощью подсказок "Левее" и "Правее". 3.задать пользвателю вопрос требующий онознчного ответа. Дать несколько попыток. Эту задачу нужно сделать применив процедуру и функцию. Я не знаю что на них заменить. Срочно помогите, ко вторнику нужно сдать, а то в армию |
27.04.2008, 22:07 | #2 |
Участник клуба
Регистрация: 26.10.2007
Сообщений: 1,244
|
Читай подпись.
У тебя есть ещё вечер и один день. За это время можно прочитать нужные главы, разобрать пару примеров и решить задачи. Вот когда будет программа хоть както написанна, то тогда и приходи... Мы поможет отладить\исправить. Шагом марш... ать, два, ать , два.........
Умом Россию не понять, пока не выпито ноль пять,
А если выпито ноль пять всё делом кажется не хитрым, Попытка глубже понимать уже попахивает литром... |
28.04.2008, 21:28 | #3 |
Пользователь
Регистрация: 27.04.2008
Сообщений: 10
|
В первой проге я не знаю как сделать поиск. Все время ноль выходит. с Нижнего наверхний ригистр переделал. а дальше не получается.
Во второй даже не знаю как сделать случайную букву. вот третья: writeln('сколько будет 5+5?'); readln(n); repeat writeln('попробуйте еще раз') until n=10; begin writeln('введите ваше имя и фамилию'); readln(d); end; вот что здесь можно заменить на процедуру и функцию? |
28.04.2008, 22:07 | #4 |
Пользователь
Регистрация: 27.04.2008
Сообщений: 10
|
ну кто нибудь напишите код программы
|
28.04.2008, 22:57 | #5 |
Форумчанин
Регистрация: 08.07.2007
Сообщений: 154
|
чем больше в нашей армии дубов.. тем сильнее наша оборона на 2. просто узай перевод с char to integer и наоборот. подскажите ету процедуру ( схар на инт.) - напишу код. сам забыл чето.
Последний раз редактировалось Iceman; 28.04.2008 в 23:00. |
28.04.2008, 23:09 | #6 |
Участник клуба
Регистрация: 26.10.2007
Сообщений: 1,244
|
Вторая вот. Третью не понял.
Код:
Умом Россию не понять, пока не выпито ноль пять,
А если выпито ноль пять всё делом кажется не хитрым, Попытка глубже понимать уже попахивает литром... |
01.05.2008, 21:00 | #7 |
Пользователь
Регистрация: 27.04.2008
Сообщений: 10
|
спасибки. первую почти сделал с преподом на лекции, но она не работает скоро выложу текст
|
01.05.2008, 21:16 | #8 |
Пользователь
Регистрация: 27.04.2008
Сообщений: 10
|
вот она
s1,s2:string; ch1,ch2:char; fl:boolean; i,j:integer; begin readln(s1); readln(s2); for i:=1 to length(s1) do begin fl:=false; ch1:=s1(i); вот здесь уже не работает, но напишу всю if((ch1>='a') and (ch1<='z')) and ((ch1>='a') and (ch1<='п')) then cod:=ord(ch1)-32; if ((ch1>='р') and (ch1<='я')) then cod:=ord(ch1)-80; for j:=1 to length(s2) do begin ch2:=s2(j); if ord(ch2)=cod then begin false:=true; write(ch1,'=',i,'->'); writeln(ch2,'=',j); end; end;end; if fk:=false then writeln('нет совпадений'); end. подскажите почему не работает |
01.05.2008, 21:17 | #9 |
Участник клуба
Регистрация: 26.10.2007
Сообщений: 1,244
|
Что говорит компилятор?
Что значит не работает? АДД: ch1 := s1(i); ======= s1[i] !!!!
Умом Россию не понять, пока не выпито ноль пять,
А если выпито ноль пять всё делом кажется не хитрым, Попытка глубже понимать уже попахивает литром... |
01.05.2008, 22:14 | #10 |
Пользователь
Регистрация: 27.04.2008
Сообщений: 10
|
говорит типа в том месте ошибка,вроде. Я дома еще не набирал. А в той проге что та написал
для eng значения нужно после begin прописывать |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Паскаль. Задачи. (Графика, БД, строки) | Aferist | Помощь студентам | 16 | 19.02.2010 17:48 |
Помогите пожалуйста исправить подправить процедуру (строки) | Rumus | Помощь студентам | 5 | 02.07.2008 16:50 |
Паскаль, строки, помогите | zaraza21 | Помощь студентам | 4 | 23.11.2007 14:01 |
4 задачи, Паскаль | VirtuozZz | Помощь студентам | 9 | 26.04.2007 22:41 |