|
Решения задач на Паскале!Срочно нужно!
|
|
[color=red] Здравствуйте ПОМОГИТЕ СРОЧНО ПОЖАЛУЙСТА!!!!!!!
1) Ввести произвольную символьную цепочку. Удвоить её символы на четных местах. В полученной цепочке подсчитывается число символов, совпадающих с последним.
2) Составить программу, которая вводит с клавиатуры произвольную числовую матрицу A размером 4х4. Построить по ней матрицу B тех же размеров, используя функцию, согласно которой элементы B[i,j] этой матрицы находятся как суммы элементов матрицы A, схематически изображенных на отрезках, исходящих из элемента A[i,j] рисунка.
(только я незнаю как вам картинку скинуть:))
|
|
|
|
Помогите пожалуйста решить задачу только через процедуру и через рекурсию:
1. Вычислить z=Xmax+Ymin/2, где Xmax- максимальный элемент массива X(n); Ymin - минимальный элемент массива Y(n). Элементы Xmax и Ymin вычислить одной процедурой.
рекурсия:
№1
Вычислить площадь треугольника по координатам его вершины.
№2
найти произведение: (a +1/1!)(a +1/2!)(a +1/3!)...(a -1/n!) для заданных a и n.
|
|
|
|
1.Задано слово – последовательность произвольных символов. Составьте программу для решения следующей задачи:
Удалить все предыдущие вхождения последней буквы.
2.Дана символьная строка. Слово – последовательность символов между пробелами, не содержащая пробелы внутри себя. Составьте программу для решения следующей задачи:
Определить количество и вывести все самые длинные слова.
|
|
|
|
Quote (375298973678) 1. Вычислить z=Xmax+Ymin/2, где Xmax- максимальный элемент массива X(n); Ymin - минимальный элемент массива Y(n). Элементы Xmax и Ymin вычислить одной процедурой.
var
z:real;
procedure maxmin(a:array of integer;n:integer);
var
q,w,i:integer;
begin
q:=high(q);w:=low(w);
for i:=1 to n do begin
if a[i]<q then q:=a[i];
if a[i]>w then w:=a[i];end;
z:=q+w/2;
writeln(z:2:2);
end;
var
mass:array[1..100]of integer;
i,no:integer;
begin
read(no);
for i:=1 to no do
read(mass[i]);
maxmin(mass,no);
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Quote (375298973678) 1.Задано слово – последовательность произвольных символов. Составьте программу для решения следующей задачи: Удалить все предыдущие вхождения последней буквы.
var
s:string;
i:integer;
begin
readln(s);
for i:=1 to length(s) do
if s[i]=s[length(s)] then delete(s,i,1);
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
№1. Задано слово – последовательность произвольных символов.
Составьте программу для решения следующей задачи:
- Удалить среднюю букву, если слово нечетной длины, и вставить посередине пробел в ином случае.
- Подсчитать наибольшее количество идущих подряд одинаковых символов.
|
|
|
|
помогите пожалуйста решить задачи на тему строки.....спасибо
1.Определить количество слов, которые начинаются и оканчиваются одним и тем же символом
2.Получить новую строку, взяв из данной все символы, находящиеся между первой открывающейся скобкой и последней закрывающейся (если какие-либо скобки отсутствуют, то вывести соответствующее сообщение).
|
|
|
|
помогите пожалуйста решить задачи на тему строки.
Дана символьная строка.Слово-последовательность символов между пробелами ,не содержащая пробелы внутри себя. Составьте программу для решения следующей задачи :
Определить длину слова,стоящего на N-ом месте и вывести все слова , состоящие из такого же количества символов ,что и найденное слово.Если N больше количества слов в предложении,то вывести соответствующее сообщение.
Заранее спасибо
|
|
|
|
Задача № 1
Создайте двумерный массив целых чисел размером 4*3, заполненный случайным образом и выведите его на экран. Найдите максимальный элемент, а также укажите номер строки и столбца, содержащие этот элемент.
Описание:
a- массив двумерный, n=4 – число строк, m=3 – число столбцов,
Max – максимальный элемент, Imax – номер строки максимального элемента, Jmax – номер столбца максимального элемента. i,j – соответственно индекс строки и индекс столбца.
[color=red]вот мое решение подскажите пожалуйста где я ошиблась????
Program E2;
Uses CRT;
const n=4; m=3;
type
Mass=array[1..n,1..m] of integer;
var
a:Mass;
I, j, Max, Imax, Jmax: integer;
begin
Clrscr;
Randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=-50+random(101);
write(a[I,j]:4);
end;
writeln;
end;
Max:=a[1,1];
for i:=1 to n do
for j:=1 to m do
if Max:<=a[i,j] then
begin
Max:=a[i,j];
Imax:=i: Jmax:=j:
end;
Writeln(‘Max=’,Max);
Writeln(‘Imax=’,Imax);
Writeln(‘Jmax=’,Jmax);
Readln;
end.
|
|
|
|
Так оно у тебя не компилируется или просто не правильно работает?
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
|
Помогите пожалуйста кто чем может....
тема "Файлы и Модули"
Задание 1. Запишите в файл исходных данных числовой двумерный
массив размерности 6х5.
Задание 2. Напишите программу, изменяющую в файле исходных
данных из задания 1 элементы, элементы (3;2),(1;4) и (5;4); (файл в
оперативную память не читать):
|
|
|
|
Quote (mila) не компилируется!
какую ошибку выдаёт и на какой строчке?
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Quote (Elena04) Помогите пожалуйста кто чем может.... тема "Файлы и Модули" Задание 1. Запишите в файл исходных данных числовой двумерный массив размерности 6х5. Задание 2. Напишите программу, изменяющую в файле исходных данных из задания 1 элементы, элементы (3;2),(1;4) и (5;4); (файл в оперативную память не читать):
По аналогии сделай:
http://primat.org/publ/5-1-0-30
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
уважаемый berestovsliy!
в программе
var
massiv:array[1..45,1..30]of integer;
i,j,kolichestvo:integer;
begin
kolichestvo:=0;
randomize;
for i:=1 to 45 do
for j:=1 to 30 do
massiv[i,j]:=random(41);
for i:=1 to 45 do
for j:=1 to 30 do
if (massiv[i,j]>massiv[i,j-1])and(massiv[i,j]>massiv[i,j+1]) then kolichestvo:=kolichestvo+1;
writeln(kolichestvo);
end.
не компилирует, проверяю F8 и останавливается на строке massiv[i,j]:=random(41); не выдавая ошибки. в чем может быть дело.
2. и в программе что надо переделать чтобы выдавал в итоге не наименьший,а наибольший элемент (не пойму вроде правильно)
var
i,n,chislo,max,nomer:integer;
begin
read(n);
max:=low(max);
for i:=1 to n do begin
read(chislo);
if (chislo>max)and(chislo mod 3=0) then begin max:=chislo;nomer:=i;end;end;
writeln(max,' ',nomer);
end.
спасибо заранее
|
|
|
|
Quote (Ggate) не компилирует, проверяю F8 и останавливается на строке massiv[i,j]:=random(41); не выдавая ошибки. в чем может быть дело.
Странно, я себе в компилятор запилил только что этот код и всё заработало, попробуй ещё раз:
var
massiv:array[1..45,1..30]of integer;
i,j,kolichestvo:integer;
begin
kolichestvo:=0;
randomize;
for i:=1 to 45 do
for j:=1 to 30 do
massiv[i,j]:=random(41);
for i:=1 to 45 do
for j:=1 to 30 do
if (massiv[i,j]>massiv[i,j-1])and(massiv[i,j]>massiv[i,j+1]) then
kolichestvo:=kolichestvo+1;
writeln(kolichestvo);
end.
Quote (Ggate) 2. и в программе что надо переделать чтобы выдавал в итоге не наименьший,а наибольший элемент (не пойму вроде правильно)
попробуй перезаписать только используй массив
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Люди, решите пожалуйста задачи, заранее спасибо большое.
1)Найти наибольшее и наименьшее значение функции у=(sinx/3x)+5 при изменении X от 0,1 до А с шагом H.
2)дана матрица (15,15), сформированная случайным образом из чисел диапазона [-5,5]. Найти и вывести на печать среднее геометрическое элементов, вокруг которых (слева, справа, сверху и снизу) стоят нули.
3) Дана строка символов, состоящая из прописных и строчных латинских букв и пробелов. Группы символов, разделенные пробелами (одним или несколькими) и не содержащие пробелов внутри себя, будем называть словами. Удалить из строки слова, состоящие только из прописных букв. Вывести на печать полученную строку и количество удаленных слов.
|
|
|
|
люди, пожалуйста помогите решить задачу со строками, срочно нужно:
Дана строка символов, состоящая из цифр от 0 до 9 и пробелов. Группы цифр, разделенные пробелами (одним или несколькими) и не содержащие пробелов внутри себя, будем называть словами. Рассматривая эти слова как числа, определить и напечатать сумму чисел, оканчивающихся на цифры 3 или 4.
|
|
|
|
помогите пожалуйста решить задачи на тему строки.....спасибо
1.Определить количество слов, которые начинаются и оканчиваются одним и тем же символом
2.Получить новую строку, взяв из данной все символы, находящиеся между первой открывающейся скобкой и последней закрывающейся (если какие-либо скобки отсутствуют, то вывести соответствующее сообщение).
|
|
|
|
1.Задано слово – последовательность произвольных символов. Составьте программу для решения следующей задачи: Найти сумму цифр, встречающихся в данной последовательности символов.
2.Составьте программу с использованием процедуры –функции. Выполните ее тестирование и отладку: Найти наименьшую сторону треугольника, заданного координатами своих вершин.
|
|
|
|
