Помогите сделать программу в паскале

димка67 · 10.11.2011, 20:43

помогите сделать программу в паскале.....дана таблица из 11 элементов.составить подпрограмму вычесления среднего арифметического положительных элементов участка.обращаясь к подпрограмме вычеслить среднее арифметическое положительных элементов на участке 3 -7 5 -11

Vladimir_S · 11.11.2011, 12:24

Цитата:

Сообщение от димка67

помогите сделать программу в паскале.....дана таблица из 11 элементов.составить подпрограмму вычесления среднего арифметического положительных элементов участка.обращаясь к подпрограмме вычеслить среднее арифметическое положительных элементов на участке 3 -7 5 -11

Извольте:

Код:

VAR
 A:Array [1..11] of Real;
 i:Byte;
 SrAr:Real;
 B:Boolean;

Procedure Sred(N_min,N_max:Byte; var SA:Real; var BS:boolean);
var
 j,N_pos:Byte;
begin
 SA:=0;
 N_pos:=0;
 for j:=N_min to N_max do
  If A[j]>0 then
   begin
    Inc(N_pos);
    SA:=SA+A[j];
   end;
 If N_pos>0 then
  begin
   SA:=SA/N_pos;
   BS:=true;
  end
  else BS:=false;
end;

BEGIN
 Randomize;
 For i:=1 to 11 do
  begin
   A[i]:=(random-0.5)*100;
   write(A[i]:8:2);
  end;
 writeln;
 writeln;

 Sred(3,7,SrAr,B);
 If B then
  Writeln('Arithmetic mean in 3..7 is ',SrAr:0:2)
 else
  Writeln('No positive values in 3..7 interval');

 Sred(5,11,SrAr,B);
 If B then
  Writeln('Arithmetic mean in 5..11 is ',SrAr:0:2)
 else
  Writeln('No positive values in 5..11 interval');

 Readln
END.

димка67 · 15.12.2011, 19:19

1) работа со строковыми переменными!!!
составить программу которая читает текст, считает число ключевых слов 'begin' и число ключевых слов 'end' сравнивает их и выводит на печать сообщение об ошибке если они не равны между собой)

2) работа с множеством
даны три множества x1={1,2,3..20} x2={10,12,13..30} x3={1,3,5..19,21}
сформировать множество y=(x1-x2)+(x1-x3) их которого выделить родмножество у1 чисел, делящихся на 4. на экран вывести множество у и множество у1.

10.11.2011, 20:43	#1 (permalink)
димка67 Новичок Регистрация: 10.11.2011 Сообщений: 6 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	помогите сделать программу в паскале помогите сделать программу в паскале.....дана таблица из 11 элементов.составить подпрограмму вычесления среднего арифметического положительных элементов участка.обращаясь к подпрограмме вычеслить среднее арифметическое положительных элементов на участке 3 -7 5 -11

15.12.2011, 19:19	#3 (permalink)
димка67 Новичок Регистрация: 10.11.2011 Сообщений: 6 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	погмогите сделать программу в паскале))пожалуйста) 1) работа со строковыми переменными!!! составить программу которая читает текст, считает число ключевых слов 'begin' и число ключевых слов 'end' сравнивает их и выводит на печать сообщение об ошибке если они не равны между собой) 2) работа с множеством даны три множества x1={1,2,3..20} x2={10,12,13..30} x3={1,3,5..19,21} сформировать множество y=(x1-x2)+(x1-x3) их которого выделить родмножество у1 чисел, делящихся на 4. на экран вывести множество у и множество у1.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070