Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.69/13: Рейтинг темы: голосов - 13, средняя оценка - 4.69
0 / 0 / 0
Регистрация: 25.05.2009
Сообщений: 5
1

В одномерном массиве поменять местами максимальный и минимальный элементы

25.05.2009, 00:25. Показов 2535. Ответов 5
Метки нет (Все метки)

Здраствуйте, помогите мне пожалуйста, нужно решить 3 задачки.

1) В одномерном массиве поменять местами максимальный и минимальный элементы.

2) Вывести статистику вхождения игласных букв в строку.

3) Слова в строке отделены пробелами. Подсчитать кол-во слов, в которых буква 'a' встречается хотя бы 3 раз.


ЗАРАНЕЕ ОГРОМНОЕ СПАСИБО!!!
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.05.2009, 00:25
Ответы с готовыми решениями:

Найти минимальный и максимальный элементы в одномерном массиве и переставить их местами
1Найти минимальный и максимальный элементы и переставить их местами.

Поменять местами максимальный и минимальный элементы в массиве.
Поменять местами максимальный и минимальный элементы в массиве.

В массиве поменять местами максимальный и минимальный элементы
1) Дан текст, содержащий от 1 до 70 букв, за которым следует точка. Напечатать этот текст в...

Найти в массиве максимальный и минимальный элементы и поменять их местами
uses crt; var min,max,z:integer; procedure minmax(var min,max:integer); var a:array of integer;...

5
4116 / 991 / 191
Регистрация: 09.04.2009
Сообщений: 4,225
25.05.2009, 10:31 2
как же ж всем лень полазить по форуму и найти ответы самостоятельно(
1:
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
program p1;
uses crt;
var
a:array[1..10] of integer;
i,max,min,maxi,mini:integer;
begin
min:=100;
max:=-1;
for i:=1 to 10 do begin
a[i]:=random(100);
write(a[i]:3);
if a[i]>max then begin
max:=a[i];
maxi:=i;
end;
if a[i]<min then begin
min:=a[i];
mini:=i;
end;
end;
i:=a[maxi];
a[maxi]:=a[mini];
a[mini]:=i;
writeln;
for i:=1 to 10 do begin
write(a[i]:3);
end;
readln;
end.
Добавлено через 12 минут 38 секунд
2:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program p2;
uses crt;
var
i,n:integer;
rez:extended;
s:string;
begin
n:=0 ;
writeln('vvedite stroky');
readln(s);
for i:=1 to length(s) do begin
if (s[i]='*') or (s[i]='г') or (s[i]='Ґ') or (s[i]='®') or (s[i]='Ё') then begin
n:=n+1;
end;
end;
rez:=100*n/length(s);
writeln(rez:3:1,'%');
readln;
end.
1
0 / 0 / 0
Регистрация: 25.05.2009
Сообщений: 5
25.05.2009, 11:17  [ТС] 3
Jazon_deenAlt спасибо огромное!!!!

Добавлено через 43 минуты 26 секунд
может еще кто с третьей задачей помочь?
0
701 / 572 / 59
Регистрация: 18.11.2008
Сообщений: 2,147
25.05.2009, 11:38 4
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
program prog;
var len, count_a, count_word, i : integer;
    s : string;
begin
writeln('Введите строку:');
readln(s);
 
len := length(s);
count_a := 0;
count_word := 0;
 
for i:=1 to len do begin
    if (s[i] = ' ') then begin
        if (count_a > 2) then inc(count_word);
        count_a := 0;
    end else begin
        if (s[i] = 'а') then inc(count_a);
    end;
end;
 
write('Кол-во слов в которых буква ''а''(кириллица) встречается более двух раз: ', count_a);
readln;
end.
1
0 / 0 / 0
Регистрация: 25.05.2009
Сообщений: 5
28.05.2009, 15:38  [ТС] 5
Извините конечно, может не сюда, но не могли бы помочь с блокк-схемами к этим задачам
0
0 / 0 / 0
Регистрация: 25.05.2009
Сообщений: 5
29.05.2009, 16:01  [ТС] 6
или куда написать?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.05.2009, 16:01

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

В двумерном массиве поменять местами максимальный и минимальный элементы
Помогите пожалуйста это реализовать В двумерном массиве поменять местами максимальный и...

В двумерном массиве поменять местами строки, содержащие максимальный и минимальный элементы.
Помогите пожалуйста с 2-мя задачами на массив. 1.Одномерный массив, содержащий N элементов,...

В матрице найти минимальный и максимальный элементы и их координаты, поменять местами минимальный и максимальный элементы
В матрице размером n на m (1&lt;n, m&lt;10) (ввод n, m и матрицы с клавиатуры) найти минимальный и...

Найти минимальный и максимальный элементы и их координаты, поменять местами минимальный и максимальный элемент
3) В матрице размером n на m (1&lt;n, m&lt;10) (ввод n, m и матрицы с клавиатуры) найти минимальный и...


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

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

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