Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ 2 похожие задаи

Автор: -Даша- 22.06.2008 21:14

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.



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


Автор: Client 22.06.2008 21:26

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.
Цитата
Вот такой вопрос: а если в строке нечётное кол-во элементов, что делать?
Это уж как ты захочешь

Автор: -Даша- 22.06.2008 21:29

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