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

Написать функцию определяющую кол-во букв а и a в строке

12.06.2013, 19:15. Просмотров 439. Ответов 5
Метки нет (Все метки)

Доброго времени суток всем! Вот озадачили меня таким вот заданием :

1. Написать функцию, определяющую количество букв а и ф в строке.
2. Написать процедуру, обменивающую местами в двумерном массиве максимальный и минимальный элементы.
3. Объединить функцию (из п.1) и процедуру (из п.2) в модуль и написать головную программу иллюстрирующую работу функции и процедуры.


Для первого пункта я уже сделал основу, надо её только в функцию запихнуть, а вот с массивом я так и не смог разобраться

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
 str: string;
 i,k,g:integer;
begin
 write ('введите строку');
  readln(str);
   for i:=1 to length(str) do
 if str[i] in[' ']
  then inc(k);
 for i:=1 to length(str) do
  if str[i] in['д']
   then inc(g);
 writeln('в строке ',k,' букв   а и ',g,' букв ф');
 readln;
 end.

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.06.2013, 19:15
Ответы с готовыми решениями:

Написать программу определяющую кол-во дней в месяце
такая задачка месяц=1..12 Написать программу определяющую колличество дней в...

Помогите найти кол-во букв в строке
Пользователь вводит предложение, посчитать количество букв, вычислить сумму...

подсчитать кол-во разных пар букв в строке
помогите пожалуйста, нужно написать программу в паскале и максимально(как...

Написать функцию, определяющую, есть ли заданная компонента в стеке
Доброго времени суток... Задача: Создать стек. Написать функцию,...

Написать функцию, определяющую количество жителей первого этажа
Доброй ночи,подскажите как правильно описать функцию: Написать функцию,...

5
Soniyagfto
60 / 67 / 37
Регистрация: 29.01.2013
Сообщений: 374
Записей в блоге: 1
12.06.2013, 22:51 2
Первая задача:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Program abcd;
var s:string;
function stringpro (var x:string):integer;
var i,k,m:integer;
begin
for i:=1 to length(s) do begin
IF (s[i]='а') then inc(k);
IF (s[i]='ф') then inc(m);
end;
writeln ('Кол-во букв а-',' ',k);
writeln ('Кол-во букв Ф-',' ',m);
end;
begin
Writeln ('введите строку');
readln (s);
stringpro (s);
end.
Добавлено через 1 час 42 минуты
2. Написать процедуру, обменивающую местами в двумерном массиве максимальный и минимальный элементы.
Напишите обычную программу, без процедуры.
Я ее вам реализую в процедуре.
Просто лень задавать двумерные массивы
1
SHRIKUL
0 / 0 / 0
Регистрация: 01.06.2013
Сообщений: 10
12.06.2013, 23:33  [ТС] 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
program change;
var
A : Array [1..10,1..10] of integer;
i,j, mini, minj, maxi, maxj, min,max, temp: integer;
begin
for i := 1 to 10 do
begin
writeln();
for j := 1 to 10 do
begin
A[i,j] := random(100);
write(A[i,j], ' ');
end;
end;
min := A[1,1];
max := A[1,1];
for i := 1 to 10 do
for j := 1 to 10 do
begin
if A[i,j] < min then
begin
min := A[i,j];
mini := i;
minj := j;
end;
if A[i,j] > max then
begin
max := A[i,j];
maxi := i;
maxj := j;
end;
end;
temp:= max;
A[maxi,maxj] := A[mini,minj];
A[mini,minj] := temp;
 
writeln();
for i := 1 to 10 do
begin
writeln();
for j := 1 to 10 do
begin
write(A[i,j], ' ');
end;
end;
readln();
end.
А объединить сможете?)
0
Soniyagfto
60 / 67 / 37
Регистрация: 29.01.2013
Сообщений: 374
Записей в блоге: 1
12.06.2013, 23:54 4
В общем у тебя что-то странное программа делает
Держи:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
program abcd;
type mass=array[1..255,1..255] of integer;
var a:mass;
i,j,n,m,max,min:integer;
procedure obmen (var a:mass; max,min:integer);
var k:integer;
begin
k:=min;
min:=max;
max:=k;
writeln ('После обмена');
writeln ('max=',max); writeln ('min=',min);
end;
begin
writeln ('Введите размер массива [nxm]');
read (n,m);
writeln ('введите массив');
for j:=1 to m do
for i:=1 to n do begin
readln (a[i,j]);
end;
max:=a[1,1];
min:=a[1,1];
for j:=1 to m do
for i:=1 to n do begin
IF a[i,j]>max then max:=a[i,j];
IF a[i,j]<min then min:=a[i,j];
end;
writeln ('до обмена');
writeln ('max=',max); writeln ('min=',min);
obmen (a,max,min);
end.
Добавлено через 5 минут
Объединишь уже сам
В модуль суешь процедуру и функцию, в осн программе часть первой задачи и второй.
Только помним, если 'unit test' то и название сохраняемого файла test.
В осн. программе после слова 'program' пишем 'uses test'
1
SHRIKUL
0 / 0 / 0
Регистрация: 01.06.2013
Сообщений: 10
13.06.2013, 08:09  [ТС] 5
Спасибо. Я конечно не хочу показаться ленивой задницей, который не может включить мозг, но все же, я реально пока не понимаю как это все сложить) Так что если у вас есть ещё немного времени, то прошу вас помочь мне с этим)
0
Soniyagfto
60 / 67 / 37
Регистрация: 29.01.2013
Сообщений: 374
Записей в блоге: 1
13.06.2013, 19:58 6
Цитата Сообщение от SHRIKUL Посмотреть сообщение
Спасибо. Я конечно не хочу показаться ленивой задницей, который не может включить мозг, но все же, я реально пока не понимаю как это все сложить) Так что если у вас есть ещё немного времени, то прошу вас помочь мне с этим)
Сейчас не дома, когда приду напишу

Добавлено через 9 часов 7 минут
Модуль:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
unit yourmodul;
interface
type mass=array[1..255,1..255] of integer;
procedure obmen (var a:mass; max,min:integer);
function stringpro (var s:string):integer;
implementation
procedure obmen (var a:mass; max,min:integer);
var k:integer;
begin
k:=min;
min:=max;
max:=k;
writeln ('После обмена');
writeln ('max=',max); writeln ('min=',min);
end;
function stringpro (var s:string):integer;
var i,r1,r2:integer;
begin
for i:=1 to length(s) do begin
IF (s[i]='а') then inc(r1);
IF (s[i]='ф') then inc(r2);
end;
writeln ('Кол-во букв а-',' ',r1);
writeln ('Кол-во букв Ф-',' ',r2);
end;
begin
end.
Программа:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
program abcd;
uses yourmodul;
type mass=array[1..255,1..255] of integer;
var a:mass;
i,j,n,m,max,min:integer;
s:string;
procedure obmen (var a:mass; max,min:integer);
var k:integer;
begin
k:=min;
min:=max;
max:=k;
writeln ('После обмена');
writeln ('max=',max); writeln ('min=',min);
end;
begin
writeln ('Введите размер массива [nxm]');
read (n,m);
writeln ('введите массив');
for j:=1 to m do
for i:=1 to n do begin
readln (a[i,j]);
end;
max:=a[1,1];
min:=a[1,1];
for j:=1 to m do
for i:=1 to n do begin
IF a[i,j]>max then max:=a[i,j];
IF a[i,j]<min then min:=a[i,j];
end;
writeln ('до обмена');
writeln ('max=',max); writeln ('min=',min);
obmen (a,max,min);
Writeln ('введите строку');
readln (s);
stringpro (s);
end.
0
13.06.2013, 19:58
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.06.2013, 19:58

Написать функцию булевского(целого) типа, определяющую упорядоченность массива
Написать функцию булевского(целого) типа, определяющую упорядоченность массива...

Пересортировать массив используя подпрограммы и Написать подпрограмму функцию определяющую число элементов массива.
Здравствуйте. Если это возможно,хотелось бы попросить помощи в рещении...

Описать функцию, которая возвращает количество гласных латинских букв в строке.
Привет всем!!Ребят нужна ваша помощь...помогите с лабораторками пожалуйста,буду...


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

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

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