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

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

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

 
 Ответить  Открыть новую тему 
> 2 похожие задаи, строки
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 12
Пол: Женский

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


1.Ввести с клавиатуры строку. Вывести на экран первую половину этой строки
2.Ввести с клавиатуры строку. Вывести на экран вторую половину этой строки

Вот такой вопрос: а если в строке нечётное кол-во элементов, что делать?
1)uses crt;
var a,b,c:string;
r,q:integer;
begin clrscr;
writeln('Vvedite stroky');readln (a);
writeln('Dlina stroki:',length(a));
q:=length(a);
if length(a) mod 2=0 then r:=q/2 ; {нашли длину половины строки }
{for i:=1 to r do begin}
{затем вывод первой половины строки}

writeln('Первая половина строки:',);
else
{а дальше как?}


readkey;clrscr;
end.



Вопрос: как всё это прописать в паскале грамтно??? и правильно ли я поняла ход решения программы???



Сообщение отредактировано: -Даша- -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Профи
****

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

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


uses crt;
var
s:string;
i,k:byte;
begin
clrscr;
readln(s);
if odd(length(s)) then k:=length(s) div 2+1
else k:=length(s) div 2;
for i:=1 to k do write(s[i]);
writeln;
for i:=k+1 to length(s) do write(s[i]);
readkey
end.
Цитата
Вот такой вопрос: а если в строке нечётное кол-во элементов, что делать?
Это уж как ты захочешь
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 12
Пол: Женский

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


Client
Спасибо за помощь!

Сообщение отредактировано: -Даша- -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 





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