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

@SHRIKUL · Регистрация: 01.06.2013

Author24 — интернет-сервис помощи студентам

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

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

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

Pascal

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.

@Soniyagfto · 12.06.2013, 22:51

Первая задача:

Pascal

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. Написать процедуру, обменивающую местами в двумерном массиве максимальный и минимальный элементы.

Напишите обычную программу, без процедуры.
Я ее вам реализую в процедуре.
Просто лень задавать двумерные массивы

@SHRIKUL · 12.06.2013, 23:33 **[ТС]**

Pascal

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.

А объединить сможете?)

@Soniyagfto · 12.06.2013, 23:54

В общем у тебя что-то странное программа делает

Держи:

Pascal

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'

@SHRIKUL · 13.06.2013, 08:09 **[ТС]**

Спасибо. Я конечно не хочу показаться ленивой задницей, который не может включить мозг, но все же, я реально пока не понимаю как это все сложить) Так что если у вас есть ещё немного времени, то прошу вас помочь мне с этим)

@Soniyagfto · 13.06.2013, 19:58

Сообщение от SHRIKUL

Спасибо. Я конечно не хочу показаться ленивой задницей, который не может включить мозг, но все же, я реально пока не понимаю как это все сложить) Так что если у вас есть ещё немного времени, то прошу вас помочь мне с этим)

Сейчас не дома, когда приду напишу

Добавлено через 9 часов 7 минут
Модуль:

Pascal

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

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.

@SHRIKUL 0 / 0 / 0 Регистрация: 01.06.2013 Сообщений: 10
	13.06.2013, 08:09 [ТС]	5
	Спасибо. Я конечно не хочу показаться ленивой задницей, который не может включить мозг, но все же, я реально пока не понимаю как это все сложить) Так что если у вас есть ещё немного времени, то прошу вас помочь мне с этим) 0

	13.06.2013, 19:58