![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
}0pa |
![]() ![]()
Сообщение
#1
|
|||
![]() Пионер ![]() ![]() Группа: Пользователи Сообщений: 75 Пол: Мужской Репутация: ![]() ![]() ![]() |
Помогите доработать: Использовав ТОЛЬКО тип Char, заменить многоточие точкой (в смысле больше одной точки точкой).
Моя идея: Вводим букву, если она и предыдущая не точка, то выводим на экран эту букву ниже в другой строке... Помогите, запутался совсем! ![]()
uses crt;
var
n,i,x,y,k: integer;
ch,next: char;
first: boolean;
begin
clrscr;
write('DLuHA CTPOKu: ');
readln(n);
write('CTPOKA: ');
first := true; next := #0;
k:=0;
for i := 1 to n do
begin
ch := readkey;
{write(ch);}
x:=WhereX;y:=WhereY;
if (next='.') and (ch='.') then
begin
gotoXY(10,10);
write(ch);
gotoXy(x+k,y);
end
else
begin
write(ch);
k:=k+1;
end;
next := ch;
end;
writeln;
readkey
end.
-------------------- Ну, а почему бы в свободное время не позаниматься программированием?
|
|||
![]() ![]() |
![]() |
Текстовая версия | 28.07.2025 10:52 |