|
Решения задач на Паскале!Срочно нужно!
|
|
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
|
|
|
|
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
|
|
|
|
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
|
|
|
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Помогите пожалуйста решить задачи!!!!!!!! В паскале вообще не шарю! На вас последняя надежда!!!!
1) Имея информацию о годовых показателях фирмы по продажам автомобилей за 10 лет, сообщить года, в которые количество продаж автомобилей превышало продажи предыдущего года.
2) Для приобретения сельхоз техники банк предоставляет колхозам кредит с условием 25% годовых. Какой срок потребуется колхозу на погашение кредита размером R(руб), если величина годовых выплат будет X(руб).
3)Парк сельхоз техники составляют: Трактора, сеялки, грузовики. Сообщить количество тракторов и название всех видов техники выпуска до 2000 года.
4)Определить величину ежемесячной выплаты N займов соответственно в X1...Xn рублей, если они взяты на R месяцев при процентной ставке равной 50%.
Заранее большое спасибо!!!!!!!
Katrin
|
|
|
|
Примеры ввода-вывода к каждой задаче в студию)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
|
Здравствуйте, помогите, пожалуйста решить 3 задачки. Очень нужно, у меня ничего не получается, только запуталась. Буду очень благодарна!
1) Написать программу, определяющую среднее арифметическое элементов двух заданных массивов. Ввод массива и подсчёт среднего арифметического каждого массива оформить в виде процедуры. (Для процедур использовать открытый массив).
2) Описать запись со структурой. Написать процедуру ввода и вывода записи. Создать массив из 5 записей и, используя массив, решить задачу. В таблице хранятся следующие данные о учениках: фамилия, имя, отчество, рост, масса. Вычислить средний рост учеников. Сколько учеников могут заниматься в баскетбольеой секции, если рост баскетболистов должен быть больше 170 см.
3) Сохранить вторую задачу в файл. Написать программу, выводящую на экран фамилии и имена учеников, которые проходят отбор в баскетбольную секцию.
|
|
|
|
Какие данные программа получает при начале работы и какой ответ она должна выдавать
Пример:
Программа суммирующая два числа:
Входные данные:
2 2
Выходные данные:
4
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Здравствуйте, помогите, пожалуйста решить 2 задачки. Очень нужно, у меня ничего не получается, только запуталась. Буду очень благодарна!
1) Описать запись со структурой. Написать процедуру ввода и вывода записи. Создать массив из 5 записей и, используя массив, решить задачу. В таблице хранятся следующие данные о учениках: фамилия, имя, отчество, рост, масса. Вычислить средний рост учеников. Сколько учеников могут заниматься в баскетбольеой секции, если рост баскетболистов должен быть больше 170 см.
2) Сохранить вторую задачу в файл. Написать программу, выводящую на экран фамилии и имена учеников, которые проходят отбор в баскетбольную секцию.
|
|
|
|
|
программа вводит информацию о 10 студентах. фамилию день месяц и год рождения, год поступления в институт, оценки двух последних сессий.распечатать оценки в последнею сессию студентов, фамилии которых начинаются с буквы В и Г Добавлено (19.04.12, 08:21)
---------------------------------------------
помогите решить срочно надо..программа вводит информацию о 10 студентах. фамилию день месяц и год рождения, год поступления в институт, оценки двух последних сессий.распечатать оценки в последнею сессию студентов, фамилии которых начинаются с буквы В и Г
дан файл, содержащийся текст на русском языке. в предложениях некотгрые из слов записаны подряд несколько раз
ПРЕДЛОЖЕНИЕ ЗАКАНЧИВАЕТСЯ ТОЧКОЙ ИЛИ ВОСКЛИЦАТЕЛЬНЫМ ЗНАКОМ). ПОЛУЧИТЬ В НОВОМ ФАЙЛЕ ОТРЕДАКТИРОВАННЫЙ ТЕКСТ, В КОТОРОМ УДАЛЕНЫ ПОВТОРНЫЕ ВХОЖДЕНИЯ СЛОВ В ПРЕДЛОЖЕНИЯ Добавлено (19.04.12, 11:19)
---------------------------------------------
помогите решить))))) программа вводит информацию о 10 студентах. фамилию день месяц и год рождения, год поступления в институт, оценки двух последних сессий.распечатать оценки в последнею сессию студентов, фамилии которых начинаются с буквы В и Г
г.у
|
|
|
|
[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
|
|
|
|
