Получить новую последовательность Xi, выбросив из исходной все числа, большие заданного числа R.

Ddv122 · Регистрация: 23.12.2010

Author24 — интернет-сервис помощи студентам

Здравствуете, уважаемые программисты. Очень надо решить несколько задач на паскале. Были только наброски к нескольким задачам, но по стечению обстоятельств утерялись
1. Дана последовательность Рi, i=1,2…n. (n 30). Получить новую последовательность Xi, выбросив из исходной все числа, большие заданного числа R.
2. Дан массив А из 40 элементов. Найти наименьшее значение. Учесть возможные повторения минимума, т.е. получить массив из позиций минимальных элементов.

1. Дана целочисленная матрица X размером 10х10. Среди элементов, расположенных выше главной диагонали найти наибольшее значе-ние.
2. Дана вещественная матрица А 6х8. Добавить к матрице столбец, со-стоящий из средних арифметических положительных значений строк матрицы.

1. Найти меньшие корни квадратных уравнений: x2-2x+a=0 и ax2-bx+2=0 (считать, что все корни действительные).
2. В заданной вещественной матрице В размером 7х8 обнулить столбцы, в которых имеются нулевые элементы (все элементы таких столб-цов сделать нулевыми).

5. Дан массив, содержащий сведения о туристических компаниях: название фирмы, место отдыха, стоимость путевки, длительность поездки. Вывести сведения о самой дешевой путевке.

1. Дана строка символов, заканчивающаяся точкой. Вывести ее на экран в обратном порядке без пробелов и знаков препинания.
2. Дана строка символов. Определить, входят ли в состав заданной строки числа. Если да, то найти их сумму. Будем считать, что числа в строке могут быть только целые.

Буду премного благодарен за помощь. Спасибо

@MegaAce · 15.02.2011, 15:39

Первые две

Pascal

var arr:array[1..30] of integer;
    arr2:array[1..30]of integer;
    R,i,k:integer;
begin
for i:=1 to 30 do
begin
 arr[i]:=random(10);
 write(arr[i]:2);
end;
writeln;
 
readln(R);
 
k:=1;
for i:=1 to 30 do
if arr[i]<=R then begin arr2[k]:=arr[i]; k:=k+1; end;
 
for i:=1 to k-1 do
 write(arr2[i]:2);
writeln;
end.

Pascal

const n=40;
var arr:array[1..n] of integer;
    arr2:array[1..n]of integer;
    min,i,k:integer;
begin
for i:=1 to n do
begin
 arr[i]:=random(10);
 write(arr[i]:2);
end;
writeln;
 
min:=arr[1];
for i:=2 to n do
if arr[i]<min then min:=arr[i];
 
k:=1;
for i:=1 to n do
if arr[i]=min then begin arr2[k]:=i; k:=k+1; end;
 
for i:=1 to k-1 do
 write(arr2[i]:3);
writeln;
end.

Добавлено через 22 минуты
Еще две

Pascal

const n=10;
var arr:array[1..n,1..n] of integer;
    i,j,max:integer;
begin
 for i:=1 to n do
 begin
  for j:=1 to n do
  begin
   arr[i,j]:=random(100);
   write(arr[i,j]:3);
  end;
  writeln;
 end;
 
 max:=arr[1,1];
 for i:=1 to n do
 begin
  for j:=1 to n do
  begin
   if i>=j then
    if max<arr[i,j] then max:=arr[i,j];
  end;
 end;
 
 writeln(max);
end.

Pascal

const n=6;
      m=8;
var arr:array[1..n,1..m+1] of integer;
    i,j:integer;
begin
 for i:=1 to n do
 begin
  for j:=1 to m do
  begin
   arr[i,j]:=random(100);
   write(arr[i,j]:3);
  end;
  writeln;
 end;
 
 for i:=1 to n do
 begin
  arr[i,m+1]:=0;
  for j:=2 to m do
  begin
   if arr[i,j]>0 then inc(arr[i,m+1],arr[i,j])
  end;
 end;
 
 for i:=1 to n do
 begin
  for j:=1 to m do
   write(arr[i,j]:3);
  writeln(arr[i,m+1]:4);
 end;
end.

Ddv122 · 15.02.2011, 18:43 **[ТС]**

Больше спасибо. Если не трудно, то еще задачу 5. Две последние не обязательны.

Ddv122 Почемучка) 1244 / 304 / 30 Регистрация: 23.12.2010 Сообщений: 2,001 Записей в блоге: 1
		1
	Получить новую последовательность Xi, выбросив из исходной все числа, большие заданного числа R. 15.02.2011, 11:28. Показов 2956. Ответов 2 Метки нет (Все метки) Здравствуете, уважаемые программисты. Очень надо решить несколько задач на паскале. Были только наброски к нескольким задачам, но по стечению обстоятельств утерялись 1. Дана последовательность Рi, i=1,2…n. (n 30). Получить новую последовательность Xi, выбросив из исходной все числа, большие заданного числа R. 2. Дан массив А из 40 элементов. Найти наименьшее значение. Учесть возможные повторения минимума, т.е. получить массив из позиций минимальных элементов. 1. Дана целочисленная матрица X размером 10х10. Среди элементов, расположенных выше главной диагонали найти наибольшее значе-ние. 2. Дана вещественная матрица А 6х8. Добавить к матрице столбец, со-стоящий из средних арифметических положительных значений строк матрицы. 1. Найти меньшие корни квадратных уравнений: x2-2x+a=0 и ax2-bx+2=0 (считать, что все корни действительные). 2. В заданной вещественной матрице В размером 7х8 обнулить столбцы, в которых имеются нулевые элементы (все элементы таких столб-цов сделать нулевыми). 5. Дан массив, содержащий сведения о туристических компаниях: название фирмы, место отдыха, стоимость путевки, длительность поездки. Вывести сведения о самой дешевой путевке. 1. Дана строка символов, заканчивающаяся точкой. Вывести ее на экран в обратном порядке без пробелов и знаков препинания. 2. Дана строка символов. Определить, входят ли в состав заданной строки числа. Если да, то найти их сумму. Будем считать, что числа в строке могут быть только целые. Буду премного благодарен за помощь. Спасибо 0

Ddv122 Почемучка) 1244 / 304 / 30 Регистрация: 23.12.2010 Сообщений: 2,001 Записей в блоге: 1
	15.02.2011, 18:43 [ТС]	3
	Больше спасибо. Если не трудно, то еще задачу 5. Две последние не обязательны. 0

Опции темы

Получить новую последовательность Xi, выбросив из исходной все числа, большие заданного числа R.

Решение