|
Нужна помощь по строкам в TP.
|
|
Привет. Вообщем необычная наверно такая просьба) есть 4 готовые задачи и мне нужно обьяснить каждую задачу, т.е. рассказать что означает каждое действие, я сам в этом не шарю, поэтому кому не сложно, напишите пожалуйста)
вот ссылка на задачи: http://ifolder.ru/23688721
|
|
|
|
Привет:)
Не знаю кто их делал - но бред жесточайший:) Лучше будет что бы ты дал задания, я бы код написал бы и объяснил бы каждую строчку
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Quote (Berestovskiy) Привет:) Не знаю кто их делал - но бред жесточайший:)
беда( все задания напишу попозже, пока на память одно - посчитать количество пробелов в строке.
|
|
|
|
var {Объявляем переменные}
a:string;
i,b:byte;
begin {начало}
readln(a); {Читаем строку}
for i:=1 to length(a) do {Включаем цикл}
if a[i]=' ' then b:=b+1; {Проверяем, если элемент строки равен пробелу - переменной Б присваиваем Б+1}
writeln('Колво пробелов - ',b); {Выводим количество пробелов}
end. {конец} "Спасибо" принимается повышением репутации ( Зелёный плюсик:) ). Спасибо
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
№ 4 | Автор: Berestovskiy |
2011-05-22, 19:37 | Изменено: Berestovskiy - Вс, 2011-05-22, 19:41
|
Репутация: [ + 211 ]
|
|
|
|
Спасибо) блин, условия никак не могу найти((
там вот такая еще была: Дано 3-х значное число, необходимо записать его в обратном порядке.
|
|
|
|
|
На здоровье:) var
a:integer;
i:byte;
begin
read(a);
if a<0 then writeln('Введите положительное число') else
for i:=1 to 3 do begin
write(a mod 10);a:=a div 10;end;
end. "Спасибо" принимается повышением репутации ( Зелёный плюсик:) ). Спасибо
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
№ 6 | Автор: Berestovskiy |
2011-05-22, 21:08 | Изменено: Berestovskiy - Вс, 2011-05-22, 22:00
|
Репутация: [ + 211 ]
|
|
|
|
|
Berestovskiy, а если ввести отрицательное число? может сделать так, чтобы если число отрицательное, то появлялась надпись введите положительное число.?
|
|
|
|
Готово:)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
Спасибо еще раз, выручил ты меня сегодня))
|
|
|
|
На здоровье:)
Обращайся ещё:)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Quote (Berestovskiy) Обращайся ещё:)
не прошло и дня) Вобщем нашел я условия задач, тоже, если можно то с обьяснением, как в той первой задаче)) Вот задачи:
1. Найти сумму цифр, входящих в строку.
2. ПОдсчитать количетсво слов в строке(связано с пробелами)
3. Вывести из строки все слова, в которых буква "а" встречается не менее 5 раз - независимо от регистра.
4. Заменить все буквы, стоящие после "__" на такие же, но заглавные.
|
|
|
|
1.
var {Объявляем переменные}
a:string;
i,n,s,c:integer;
begin
readln(a); {Считываем строку}
for i:=1 to length(a) do begin {Включаем цикл}
c:=ord(a[i]);
if (c>=48)and(c<=57)then begin {Проверяем: является ли символ числом}
val(a[i],n,n);s:=s+n;end;end; {Переводим символ(число) в число и приплюсовываем к сумме}
writeln(s); {Выводим сумму}
end. {конец} "Спасибо" принимается повышением репутации ( Зелёный плюсик:) ). Спасибо
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
3.
var
a,b:string;
i,p,c:byte;
begin
readln(a);a:=a+' ';
for i:=1 to length(a) do begin
c:=pos(' ',a);
b:=copy(a,1,c-1);
delete(a,1,c);
for i:=1 to length(b) do
if b[i]='a' then p:=p+1;
if p>=5 then write(b,' ');
p:=0;
end;
end.
"Спасибо" принимается повышением репутации ( Зелёный плюсик:) ). Спасибо
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
4.
var
a:string;
i:byte;
begin
readln(a);
for i:=1 to length(a) do
if (a[i]='_')and(a[i+1]='_') then a[i+2]:=upcase(a[i+2]);
writeln(a);
end.
"Спасибо" принимается повышением репутации ( Зелёный плюсик:) ). Спасибо
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
