Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Elena94
0 / 0 / 0
Регистрация: 19.11.2010
Сообщений: 17
1

Составить программы в Pascal

27.11.2010, 18:28. Просмотров 426. Ответов 7
Метки нет (Все метки)

1. Сколько раз в данной строке встречается символ "а"?
2. Если длина строки нечетное число, то удалить среднюю букву.
3. Заменить все вхождения подстроенных "del" на "Insert".
4. Дана строка, состоящая из всевозожных слов, между словами один пробел, в конце предложения - точка. Подсчитать количество слов и вывести на экран только те из них, которые начинаются с буквы "а" (слов не больше 30).
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.11.2010, 18:28
Ответы с готовыми решениями:

Составить две программы на языке Pascal
Составить две программы на языке Pascal (одну с операторами присваивания,...

Составить блок схему для текста программы Pascal
Ввести двумерный массив A2×5. Определить в нём среднее геометрическое модулей...

Составить блок схему для текста программы Pascal
Ввести целочисленный двумерный массив AN×M, вывести его. Найти сумму его...

Составить блок схему для текста программы Pascal
Ввести двумерный массив AN×M. Каждую вторую строку в массиве заменить...

Составить блок схему для текста программы Pascal
Ввести одномерный массив A, вывести его. Найти в массиве минимум и часть до...

7
andrei63
141 / 136 / 67
Регистрация: 15.12.2009
Сообщений: 344
27.11.2010, 18:41 2
Pascal
1
2
3
4
5
6
7
8
var i,k:integer;
s:string;
begin
s:='mama';
for i:=1 to length(s) do
if s[i]='a' then k:=k+1;
write(k);
end.
0
Dekio
Фрилансер
Эксперт С++
5838 / 1219 / 499
Регистрация: 23.11.2010
Сообщений: 3,377
Записей в блоге: 1
27.11.2010, 18:42 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
program try;
var
s :string;
i,k :integer;
begin
k:=0;
readln(s);
for i:=1 to length(s) do
if s[i]='а' then
k:=k+1;
writeln('Количество ',k);
end.
1
andrei63
141 / 136 / 67
Регистрация: 15.12.2009
Сообщений: 344
27.11.2010, 18:44 4
Dekio все таки я раньше
0
Dekio
Фрилансер
Эксперт С++
5838 / 1219 / 499
Регистрация: 23.11.2010
Сообщений: 3,377
Записей в блоге: 1
27.11.2010, 18:54 5
пара секунд... зато у тебя алгоритм, а у меня программа

Добавлено через 7 минут
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
program try;
var
s :string;
k :integer; 
begin
k:=0;
readln(s);
if odd(length(s)) then
k:=(length(s) div 2)+1;
delete(s,k,1);
writeln(s);
end.
1
Elena94
0 / 0 / 0
Регистрация: 19.11.2010
Сообщений: 17
27.11.2010, 19:12  [ТС] 6
А 3 и 4 решите???)))))
0
Dekio
Фрилансер
Эксперт С++
5838 / 1219 / 499
Регистрация: 23.11.2010
Сообщений: 3,377
Записей в блоге: 1
27.11.2010, 19:15 7
у вас наглости на весь форум хватит.
0
Elena94
0 / 0 / 0
Регистрация: 19.11.2010
Сообщений: 17
27.11.2010, 19:41  [ТС] 8
Ах, да!Простите, пожалуйста!)))))
Благодарю, Вас)))

Добавлено через 20 минут
Ну, а все-таки)))))
3 и 4 не можете???
0
27.11.2010, 19:41
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.11.2010, 19:41

программы на pascal
ребят помогите пожалуста а то сёдня уже надо сдать отчёт после обеда а мне надо...

программы на pascal
помогите мне пожалуйста, никак не могу написать последние 4 программы на...

Pascal. Составить бок-схему.
Program Hello; Var Name: String; BEGIN Write('Как тебя зовут ? ');...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru