Новые сообщения · Правила  
Страница 25 из 38«1223242526273738»
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Решения задач на Паскале!Срочно нужно!
Решения задач на Паскале!Срочно нужно!
Quote (VadimUps)
1.Найти номер (индекс) минимального элемента а[1],[2]..............a[15]

var
a:array[1..100]of integer;
ind,min,i,n:integer;
begin
read(n);
min:=high(min);
for i:=1 to n do begin
read(a[i]);
if min>a[i] then begin min:=a[i];ind:=i;end;
writeln(Ind);
for i:=1 to n do
if a[i]<>min then write(a[i],' ');
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
481 | Автор: Berestovskiy | 2012-04-17, 17:53   |  Репутация: [ + 211 ]
var
a:array[1..100]of integer;
i,n,q:integer;
begin
read(n);
for i:=1 to n do begin
read(a[i]);
if a[i]=0 then q:=i;
for i:=1 to q-1 do
a[i]:=99;
for i:=1 to n do
write(a[i]);
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
482 | Автор: Berestovskiy | 2012-04-17, 17:58   |  Репутация: [ + 211 ]
Quote (VadimUps)
Задача №4 В матрице A[5,5] в каждом столбце найти максимальнчый

var
a,b:Array[1..5,1..5]of integer;
max,i,j:integer;
begin
max:=low(max);
for i:=1 to 5 do
for j:=1 to 5 do begin
read(a[i,j]);
b[j,i]:=a[i,j];end;
for i:=1 to 5 do begin
for j:=1 to 5 do
if a[i,j]>max then max:=a[i,j];
writeln(max);max:=low(max);end;
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
483 | Автор: Berestovskiy | 2012-04-17, 18:00   |  Репутация: [ + 211 ]


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
483 | Автор: Berestovskiy | 2012-04-17, 18:00   |  Репутация: [ + 211 ]
Помогите пожалуйста решить задачи!!!!!!!! В паскале вообще не шарю! На вас последняя надежда!!!!

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

2) Для приобретения сельхоз техники банк предоставляет колхозам кредит с условием 25% годовых. Какой срок потребуется колхозу на погашение кредита размером R(руб), если величина годовых выплат будет X(руб).

3)Парк сельхоз техники составляют: Трактора, сеялки, грузовики. Сообщить количество тракторов и название всех видов техники выпуска до 2000 года.

4)Определить величину ежемесячной выплаты N займов соответственно в X1...Xn рублей, если они взяты на R месяцев при процентной ставке равной 50%.

Заранее большое спасибо!!!!!!!


Katrin
484 | Автор: Cat | 2012-04-17, 18:55   |  Репутация: [ + 0 ]
Примеры ввода-вывода к каждой задаче в студию)

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
485 | Автор: Berestovskiy | 2012-04-17, 19:08   |  Репутация: [ + 211 ]
Это как?

Katrin
486 | Автор: Cat | 2012-04-17, 19:11   |  Репутация: [ + 0 ]
Здравствуйте, помогите, пожалуйста решить 3 задачки. Очень нужно, у меня ничего не получается, только запуталась. Буду очень благодарна!
1) Написать программу, определяющую среднее арифметическое элементов двух заданных массивов. Ввод массива и подсчёт среднего арифметического каждого массива оформить в виде процедуры. (Для процедур использовать открытый массив).
2) Описать запись со структурой. Написать процедуру ввода и вывода записи. Создать массив из 5 записей и, используя массив, решить задачу. В таблице хранятся следующие данные о учениках: фамилия, имя, отчество, рост, масса. Вычислить средний рост учеников. Сколько учеников могут заниматься в баскетбольеой секции, если рост баскетболистов должен быть больше 170 см.
3) Сохранить вторую задачу в файл. Написать программу, выводящую на экран фамилии и имена учеников, которые проходят отбор в баскетбольную секцию.
487 | Автор: radionovaoa | 2012-04-18, 08:07   |  Репутация: [ + 0 ]
Quote (Cat)
Это как?

Какие данные программа получает при начале работы и какой ответ она должна выдавать
Пример:
Программа суммирующая два числа:
Входные данные:
2 2
Выходные данные:
4


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
488 | Автор: Berestovskiy | 2012-04-18, 09:39   |  Репутация: [ + 211 ]
Здравствуйте, помогите, пожалуйста решить 2 задачки. Очень нужно, у меня ничего не получается, только запуталась. Буду очень благодарна!
1) Описать запись со структурой. Написать процедуру ввода и вывода записи. Создать массив из 5 записей и, используя массив, решить задачу. В таблице хранятся следующие данные о учениках: фамилия, имя, отчество, рост, масса. Вычислить средний рост учеников. Сколько учеников могут заниматься в баскетбольеой секции, если рост баскетболистов должен быть больше 170 см.
2) Сохранить вторую задачу в файл. Написать программу, выводящую на экран фамилии и имена учеников, которые проходят отбор в баскетбольную секцию.
489 | Автор: radionovaoa | 2012-04-18, 10:16   |  Репутация: [ + 0 ]
программа вводит информацию о 10 студентах. фамилию день месяц и год рождения, год поступления в институт, оценки двух последних сессий.распечатать оценки в последнею сессию студентов, фамилии которых начинаются с буквы В и Г

Добавлено (19.04.12, 08:21)
---------------------------------------------
помогите решить срочно надо..программа вводит информацию о 10 студентах. фамилию день месяц и год рождения, год поступления в институт, оценки двух последних сессий.распечатать оценки в последнею сессию студентов, фамилии которых начинаются с буквы В и Г

дан файл, содержащийся текст на русском языке. в предложениях некотгрые из слов записаны подряд несколько раз
ПРЕДЛОЖЕНИЕ ЗАКАНЧИВАЕТСЯ ТОЧКОЙ ИЛИ ВОСКЛИЦАТЕЛЬНЫМ ЗНАКОМ). ПОЛУЧИТЬ В НОВОМ ФАЙЛЕ ОТРЕДАКТИРОВАННЫЙ ТЕКСТ, В КОТОРОМ УДАЛЕНЫ ПОВТОРНЫЕ ВХОЖДЕНИЯ СЛОВ В ПРЕДЛОЖЕНИЯ

Добавлено (19.04.12, 11:19)
---------------------------------------------
помогите решить))))) программа вводит информацию о 10 студентах. фамилию день месяц и год рождения, год поступления в институт, оценки двух последних сессий.распечатать оценки в последнею сессию студентов, фамилии которых начинаются с буквы В и Г


г.у
490 | Автор: гузель | 2012-04-19, 11:19   |  Репутация: [ + 0 ]


г.у
490 | Автор: гузель | 2012-04-19, 11:19   |  Репутация: [ + 0 ]
[color=red] Здравствуйте ПОМОГИТЕ СРОЧНО ПОЖАЛУЙСТА!!!!!!!

1) Ввести произвольную символьную цепочку. Удвоить её символы на четных местах. В полученной цепочке подсчитывается число символов, совпадающих с последним.

2) Составить программу, которая вводит с клавиатуры произвольную числовую матрицу A размером 4х4. Построить по ней матрицу B тех же размеров, используя функцию, согласно которой элементы B[i,j] этой матрицы находятся как суммы элементов матрицы A, схематически изображенных на отрезках, исходящих из элемента A[i,j] рисунка.
(только я незнаю как вам картинку скинуть:))
491 | Автор: anyka | 2012-04-20, 23:21   |  Репутация: [ + 0 ]
Помогите пожалуйста решить задачу только через процедуру и через рекурсию:
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.
492 | Автор: Elena04 | 2012-04-24, 16:14   |  Репутация: [ + 0 ]
492 | Автор: Elena04 | 2012-04-24, 16:14   |  Репутация: [ + 0 ]
1.Задано слово – последовательность произвольных символов. Составьте программу для решения следующей задачи:
Удалить все предыдущие вхождения последней буквы.

2.Дана символьная строка. Слово – последовательность символов между пробелами, не содержащая пробелы внутри себя. Составьте программу для решения следующей задачи:
Определить количество и вывести все самые длинные слова.
493 | Автор: 375298973678 | 2012-04-25, 15:03   |  Репутация: [ + 0 ]
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
494 | Автор: Berestovskiy | 2012-04-26, 08:50   |  Репутация: [ + 211 ]
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
495 | Автор: Berestovskiy | 2012-04-26, 08:51   |  Репутация: [ + 211 ]
№1. Задано слово – последовательность произвольных символов.
Составьте программу для решения следующей задачи:
- Удалить среднюю букву, если слово нечетной длины, и вставить посередине пробел в ином случае.
- Подсчитать наибольшее количество идущих подряд одинаковых символов.
496 | Автор: Elena04 | 2012-04-26, 14:22   |  Репутация: [ + 0 ]
помогите пожалуйста решить задачи на тему строки.....спасибо

1.Определить количество слов, которые начинаются и оканчиваются одним и тем же символом

2.Получить новую строку, взяв из данной все символы, находящиеся между первой открывающейся скобкой и последней закрывающейся (если какие-либо скобки отсутствуют, то вывести соответствующее сообщение).
497 | Автор: babenok_kseniya | 2012-04-29, 16:30   |  Репутация: [ + 0 ]
помогите пожалуйста решить задачи на тему строки.
Дана символьная строка.Слово-последовательность символов между пробелами ,не содержащая пробелы внутри себя. Составьте программу для решения следующей задачи :
Определить длину слова,стоящего на N-ом месте и вывести все слова , состоящие из такого же количества символов ,что и найденное слово.Если N больше количества слов в предложении,то вывести соответствующее сообщение.

Заранее спасибо
498 | Автор: 375298973678 | 2012-05-01, 16:44   |  Репутация: [ + 0 ]
Задача № 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.
499 | Автор: mila | 2012-05-03, 11:15   |  Репутация: [ + 0 ]
Так оно у тебя не компилируется или просто не правильно работает?

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
500 | Автор: Berestovskiy | 2012-05-03, 14:15   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Решения задач на Паскале!Срочно нужно!
Страница 25 из 38«1223242526273738»
Поиск: