Помощник
|
Знающим паскаль, помощь требуется.. |
Imperial
|
Сообщение
#1
|
||
|
|
||
|
|||
darkRoma |
29.4.2009, 21:41;
Ответить: darkRoma
Сообщение
#2
|
|
Вот кусок программы, которую я писал. Она немного отличается. она решает такую задачу: "Вводим слово S1. Далее кусок S2 из слова S1. Вводим S3. Программа заменяет в слове с1, кусок с2 на значение введённое в с3".
Может поможет чем-то: program s1replace; var s1,s2,s3,sw:string; l2,k:longint; begin readln(s1); readln(s2); readln(s3); l2:=length(s2); sw:=s1; while pos(s2,sw)>0 do begin k:=pos(s2,sw); delete(sw,k,l2); insert(s3,sw,k); end; writeln(sw); end. -------------------------------------- Составить программу для подсчёта одинаковых букв, стоящих на одних и тех же местах в словах x и y. Всмысле, если буква стоит на второй позиции в слове х и в слове у, уеличиваем счётчик на 1? P.S. Сейчас попробую написать. Сообщение отредактировал darkRoma - 29.4.2009, 21:48 -------------------- |
|
|
Imperial
|
Сообщение
#3
|
|
|
|
|
Boxster |
29.4.2009, 21:52;
Ответить: Boxster
Сообщение
#4
|
|
Сейчас попробую что-нибудь написать
|
|
|
Boxster |
29.4.2009, 22:01;
Ответить: Boxster
Сообщение
#5
|
|
program exe; uses crt; var i,l,k: integer; x,y: string; begin clrscr; writeln('Vvedite X i Y'); readln(x,y); if length(x) < length(y) then l:=length(x) else l:=length(y) for i:=1 to l do if copy(x,i,1)=copy(y,i,1) then k:=k+1; writeln('4islo sovpadayushix bykv=',k); readln; end. Пока не проверил, сейчас скачаю паскаль для проверки... Сообщение отредактировал Boxster - 29.4.2009, 22:07 |
|
|
darkRoma |
29.4.2009, 22:07;
Ответить: darkRoma
Сообщение
#6
|
|
program exe; uses crt; var i,l,k: integer; x,y: string; begin clrscr; writeln('Vvedite X i Y'); readln(x,y); if length(x) > length(y) then l:=length(x) else l:=length(y) for i:=1 to l do if copy(x,i,1)=copy(y,i,1) then k:=k+1; writeln('4islo sovpadayushix bykv=',k); readln; end. Пока не проверил, сейчас скачаю паскаль для проверки... Не работает. Всегда выдаёт 0. За что отвечает комманда copy(x,i,1) ? -------------------- |
|
|
Boxster |
29.4.2009, 22:09;
Ответить: Boxster
Сообщение
#7
|
|
Копирование из строки X, с порядкого номера i 1 символ
|
|
|
darkRoma |
29.4.2009, 22:18;
Ответить: darkRoma
Сообщение
#8
|
|
Копирование из строки X, с порядкого номера i 1 символ Тогда по идее такой код: var i,l,k: integer;
x,y,a,b: string; begin writeln('Vvedite X i Y'); readln(x,y); if (length(x))>=(length(y)) then l:=length(x) else l:=length(y); for i:=1 to l do begin a:=copy(x,i,1); b:=copy(y,i,1); if a=b then inc(k); end; writeln('4islo sovpadayushix bykv=',k); readln; end. -------------------- |
|
|
Boxster |
29.4.2009, 22:21;
Ответить: Boxster
Сообщение
#9
|
|
Хм, у меня при выполнении вообще какая-то фигня, readln(x,y) считает за один как будто, после ввода одного значения идёт сразу же выполнение следующей части, что странно...
|
|
|
Boxster |
29.4.2009, 22:22;
Ответить: Boxster
Сообщение
#10
|
|
Странная фигня с предыдущим моим сообщением, написал тогда отдельно каждый запрос:
program exe; uses crt; var i,l,k: integer; x,y: string; begin clrscr; writeln('Vvedite X i Y'); readln(x); readln(y); if length(x) < length(y) then l:=length(x) else l:=length(y) for i:=1 to l do if copy(x,i,1)=copy(y,i,1) then k:=k+1; writeln('4islo sovpadayushix bykv=',k); readln; end. Так у меня заработало! |
|
|
|
Похожие темы
Тема | Ответов | Автор | Просмотров | Последний ответ | |
---|---|---|---|---|---|
Ищу работу: php+SQL, html, CSS, JavaScript, C++, Делфи, Паскаль... Дёшево, срочно |
3 | WebsProject | 2619 | 6.11.2009, 7:35 автор: viktiv |
|
Ищу работу: php+SQL, html, CSS, JavaScript, C++, Делфи, Паскаль... Дёшево, срочно | 12 | WebSGo | 8203 | 8.2.2009, 0:40 автор: -NikaM- |
|
Ищу работу: php+SQL, html, CSS, JavaScript, C++, Делфи, Паскаль... Дёшево, срочно |
1 | CyberX | 2406 | 30.10.2008, 15:16 автор: CyberX |
Текстовая версия | Сейчас: 19.4.2024, 20:26 |