Определить, в каком массиве больше чисел, попадающих в интервал от –1 до +1.

@Mesher · Регистрация: 16.03.2017

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

Всем здравствуйте, очень нужна Ваша помощь, помогите пожалуйста решить 4 задачки.

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

2.Определить вероятности того, что среди пяти детей одной семьи нет ни одной девочки; одна девочка; две девочки; три девочки; четыре девочки; пять девочек. Выясните, вероятность скольких девочек будет максимальной. Вероятности рождения мальчика и девочки предполагаются одинаковыми. Выявление соответствующей вероятности оформить в виде подпрограммы. Поиск максимального элемента оформить в виде подпрограммы. Указание: Вероятность рождения девочки р=0,5, мальчика – q=1-p. Вероятность того, что в семье, имеющей n детей, будет m девочек, равна C m n pm qn-m. Необходимо составить подпрограмму вычисления приведённой формулы. Далее, найденные с помощью подпрограммы вероятности необходимо поместить в массив и составить подпрограмму поиска максимального элемента массива, причём, необходимо найти все максимальные элементы массива (если их несколько). В программе предусмотреть печать необходимой текстовой информации.

3.Заданы массивы А(5), В(4), С(7). Определить, в каком массиве больше чисел, попадающих в интервал от –1 до +1. Подсчёт количества чисел попадающих в интервал от –1 до +1 оформить в виде подпрограммы.

4.Напечатать из заданного текста слово, содержащее большее число гласных букв. Слова в тексте разделены пробелами.

Очень буду РАД ВАШЕЙ помощи! С НОВЫМ ГОДОМ ВСЕХ И С НАСТУПАЮЩИМ РОЖДЕСТВОМ!!!

@AI\EKCAH^P · 05.01.2010, 22:35

Третья задачка->

Pascal

program zad3;
uses crt;
type massiv=array[1..10] of integer;
var
a,b,c:massiv;
i,ma,mb,mc:integer;
procedure Poisk(mas:massiv;n:integer;var kol:integer);
var j:integer;
begin
 
 for j:=1 to n do
 begin
  if (mas[j]<=1) and (mas[j]>=-1) then
  kol:=kol+1;
 end;
 writeln('колличество чисел в массиве на интервале [-1;1] равно ',kol);
end;
begin
 clrscr;
 randomize;
 for i:=1 to 5 do
 begin
  a[i]:=random(5)-2;
  write(a[i]:3);
 end;
 writeln;
  for i:=1 to 4 do
 begin
  b[i]:=random(5)-2;
  write(b[i]:3);
 end;
 writeln;
  for i:=1 to 7 do
 begin
  c[i]:=random(5)-2;
  write(c[i]:3);
 end;
 writeln;
 ma:=0;mb:=0;mc:=0;
 writeln('массив a');
  Poisk(a,5,ma);
 writeln('массив b');
  Poisk(b,4,mb);
 writeln('массив c');
  Poisk(c,7,mc);
  writeln;
  textcolor(10);
  if (ma>mb) and (ma>mc) then write('в массиве а больше чисел')
  else if (mb>ma) and (mb>mc) then write('в массиве b больше чисел')
  else if (mc>ma) and (mc>mb) then write('в массиве c больше чисел')
  else write('поровну');
 readln;
end.

@Mesher 0 / 0 / 0 Регистрация: 16.03.2017 Сообщений: 1
		1
	Определить, в каком массиве больше чисел, попадающих в интервал от –1 до +1. 05.01.2010, 18:06. Показов 1297. Ответов 1 Метки нет (Все метки) Всем здравствуйте, очень нужна Ваша помощь, помогите пожалуйста решить 4 задачки. 1. Составить программу калькуляции товаров, имеющихся на складе. Файл должен иметь следующую структуру: название товара, название единицы измерения, стоимость единицы измерения, количество единиц измерения, суммарная стоимость товара, которая рассчитывается в программе. Используя сформулированный файл: а)вывести на печать название товара, имеющего наибольшую суммарную стоимость; б)вычислить суммарную стоимость всех товаров. Предусмотреть поступление новых товаров на склад, отпуск товара. 2.Определить вероятности того, что среди пяти детей одной семьи нет ни одной девочки; одна девочка; две девочки; три девочки; четыре девочки; пять девочек. Выясните, вероятность скольких девочек будет максимальной. Вероятности рождения мальчика и девочки предполагаются одинаковыми. Выявление соответствующей вероятности оформить в виде подпрограммы. Поиск максимального элемента оформить в виде подпрограммы. Указание: Вероятность рождения девочки р=0,5, мальчика – q=1-p. Вероятность того, что в семье, имеющей n детей, будет m девочек, равна C m n pm qn-m. Необходимо составить подпрограмму вычисления приведённой формулы. Далее, найденные с помощью подпрограммы вероятности необходимо поместить в массив и составить подпрограмму поиска максимального элемента массива, причём, необходимо найти все максимальные элементы массива (если их несколько). В программе предусмотреть печать необходимой текстовой информации. 3.Заданы массивы А(5), В(4), С(7). Определить, в каком массиве больше чисел, попадающих в интервал от –1 до +1. Подсчёт количества чисел попадающих в интервал от –1 до +1 оформить в виде подпрограммы. 4.Напечатать из заданного текста слово, содержащее большее число гласных букв. Слова в тексте разделены пробелами. Очень буду РАД ВАШЕЙ помощи! С НОВЫМ ГОДОМ ВСЕХ И С НАСТУПАЮЩИМ РОЖДЕСТВОМ!!! 0

	05.01.2010, 22:35

Определить, в каком массиве больше чисел, попадающих в интервал от –1 до +1.

Решение