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

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

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

1. Сколько раз в данной строке встречается символ "а"?
2. Если длина строки нечетное число, то удалить среднюю букву.
http://www.cyberforum.ru/pascal/thread141212.html
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, вывести его. Найти в массиве минимум и часть до...

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

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
Фрилансер
Эксперт С++
5837 / 1218 / 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
Фрилансер
Эксперт С++
5837 / 1218 / 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 / 1
Регистрация: 19.11.2010
Сообщений: 17
27.11.2010, 19:12  [ТС] #6
А 3 и 4 решите???)))))
0
Dekio
Фрилансер
Эксперт С++
5837 / 1218 / 499
Регистрация: 23.11.2010
Сообщений: 3,377
Записей в блоге: 1
27.11.2010, 19:15 #7
у вас наглости на весь форум хватит.
0
Elena94
0 / 0 / 1
Регистрация: 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
помогите мне пожалуйста, никак не могу написать последние 4 программы на...

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

Перевод программы из C++ на Pascal
Народ прошу помощи. Нужно перевести прогу из C++ на Pascal. Помогите...

3 программы на Borland Pascal
Они у меня решены но мне необходимо сделать переходы внутри каждой из программ...


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

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

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