|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
помогите решить лабораторную
1) написать программу, которая введенное с клавиатуры слово напечатает следующим образом:
ш к о л а к______л о______о л______к а л о к ш 2) из заданной символьной строки выбрать те символы, которые встречаются в ней только 1 раз в том порядке, в котором они встречаются в тексте Последний раз редактировалось -happy, 22.12.2010 в 19:06. |
#2
|
|||
|
|||
1
Код:
var s:string; l,i,j:integer; begin write('s=');readln(s); writeln(s); l:=Length(s); j:=l-1; for i:=2 to l-1 do begin write(s[j],' '); writeln(s[i]); Dec(j); end; for i:=l downto 1 do write(s[i]); readln; Последний раз редактировалось stil, 21.12.2010 в 23:10. |
#3
|
|||
|
|||
2
Код:
var s:string; i,j,l:integer; b:boolean; begin write('s=');readln(s); l:=Length(s); for i:=1 to l do begin b:=true; for j:=1 to l do if (s[i]=s[j]) and (i<>j) then b:=false; if b then write(s[i]); end; readln; Последний раз редактировалось stil, 22.12.2010 в 09:18. |
#4
|
|||
|
|||
Интересно откуда во втором варианте взялось с?) И в каком случае, оно становится равняться 0?
Последний раз редактировалось Asinkrit, 22.12.2010 в 03:11. |
#5
|
|||
|
|||
Код:
var s:string; i,j,l:integer; b:boolean; begin write('s=');readln(s); l:=Length(s); for i:=1 to l do begin b:=true; for j:=1 to l do if (s[i]=s[j]) and (i<>j) then b:=false; if b then write(s[i]); end; readln; Было бы проще и j -столбец задать! |
#6
|
||||
|
||||
Объясните мне что требуется сделать в задании поо "школу", а то я никак понять не могу что там за буквы.
Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#7
|
|||
|
|||
Цитата:
|
#8
|
|||
|
|||
надо что бы в поле допустим LAbel1 вывелось это
ш к о л а к______л о______о л______к а л о к ш (без нижних подчеркиваний) |
#9
|
|||
|
|||
2
Код:
var i,j,l:integer; s:string; begin memo1.Font.Name:='Courier'; memo1.Clear; memo1.Lines.Add(Edit1.Text); l:=Length(Edit1.Text); j:=l-1; s:=''; for i:=2 to l-1 do s:=s+' '; for i:=2 to l-1 do begin memo1.Lines.Add(Edit1.Text[i]+s+Edit1.Text[j]); Dec(j); end; for i:=l downto 1 do memo1.Lines.Strings[l-1]:=memo1.Lines.Strings[l-1]+Edit1.Text[i]; |