Developing.ru

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

3. составить процедуру нахождения максимального из 2-ух действительных чисел, вводимых с клавиатуры. использовать процедуру для нахождения максимального значения для 4-х чисел.
4. составить программу. которая будет находить а в степени в, где а и в-целые числа.
5. написать функцию, подсчитывающую кол-во цифр целого числа, используя ее определить в каком из 2-ух данных чисел больше цифр.

НА чем задачи? Delphi. Pascal ?

................

4. составить программу. которая будет находить а в степени в, где а и в-целые числа.

var
a,b:real;
begin ClrScr;
writeln('Введите число: ');readln(a);
writeln('Введите степень: ');readln(b);
b:=exp(b*ln(a));
writeln('Выражение= ',b:0:0);
readln;
end.

Начинающая писал(а): 1.Составить алгоритм, подсчитывающий для заданного текста частоту нахлждения в нем всех букв русского алфавита.

Немного не ясно задание, я так понял подсчитать кол-во букв в строке?
На делфе работать будет, а вот на Паскале не знаю будет ли работать паскаль с рус символами, если что изменишь на ['a'...'z','A'..'Z']
ВОт набросал, не проверял но должно работать:

type
C1 = set of char;
var
C:C1;
s:string;
n,i:integer;
begin ClrScr;
C:=['а'..'я','А'..'Я'];
writeln('Введите строку: ');
readln(s);
for i:= 1 to length(s) do
begin
if s in c then inc(n);
end;
writeln('Кол-во букв рус. алфавита= ',n);
readln;
end.

3. составить процедуру нахождения максимального из 2-ух действительных чисел, вводимых с клавиатуры. использовать процедуру для нахождения максимального значения для 4-х чисел.

Не знаю что там за способ сравнения для 4-х чисел, но я так понял использовать не просто сравнение 2-х чисел т.е.: 'if a > b then max:=a else max:=b' - это было бы слишком просто.
ВОт написал алгоритм можешь сравнивать не только 2 числа а более. Но т.к. тебе нужно только для двух поэтому без поддержки ввода кол-ва сравниваемых чисел.
Если преподователь попросит сравнить не 2 числа, а более, просто изменишь параметр: 'for i:=1 to 2 [на тебе необходимый]'

var
max,i,j:integer;
a:array [1..20] of integer;
begin ClrScr;
j:=1;
max:=a[1];
for i:=1 to 2 do
begin
writeln('Введите ',j,' число: ');
readln(a);
j:=j+1;
if a>=max then max:=a;
end;
writeln('Максимальное из чисел= ',max);
readln;
end.

задачки на паскале))) спасибо за помощь!!!))))

задачка номер 3-работает верно;
в 4-ой задаче какая-то ерунда с точкой с запятой,
а в 1-ой задачке про алфавит почему-то выводит ноль на любую строку.

Начинающая писал(а): в 4-ой задаче какая-то ерунда с точкой с запятой,

Сдесь всё правильно! (попробуй Подпиши в начале кода uses crt] или убери из кода строку ClrScr;.
И ещё: writeln('Выражение= ',b:0:0); = write('Выражение=',b);

Начинающая писал(а): а в 1-ой задачке про алфавит почему-то выводит ноль на любую строку.

Здесь уже ошибка Bhy4ok'a.

BHy4ok писал(а):

Код: Выделить всё

if s[i] in c then inc(n)]
[/quote]
Лишний [B]end[/B] и недостающий цикл -); Делай так:
[code]
for i:= 1 to length(s) do if s[i] in c then inc(n);

P.S. и не забудь поменять кодировку (C:=['а'..'я','А'..'Я'];) на DOS.

Задача №5: