Две задачи на PascalABC

lopido · 26.01.2013, 12:14

Помогите пожалуйста составить программы в pascalABC.
1.

2. Случайным образом сгенерировать 4 цулых числа из промежутка [-10,15] и вывести на печать сумму модулей максимального и минимального из этих чисел.

Vladimir_S · 26.01.2013, 12:48

Цитата:

Сообщение от lopido

Помогите пожалуйста составить программы в pascalABC.

Во-первых, названия тем типа "Помогите!", "Help!!!", "Нужна помощь" и т.п. у нас, в соответствии с п.2.1 Правил, под запретом. Тема переименована.
Во-вторых, цель форума и, в частности, программистского раздела - помощь в затруднительных ситуациях, а не выполнение упражнений ясельно-детсадовского уровня за не желающих учиться товарищей.
В-третьих, ладно, так и быть, на первый раз выложу (написано и протестировано на FreePascal, за возможные глюки лже-Паскаля АВС не отвечаю).

Код:

Const
 n=10;
Var
 a0,a1:Array[1..n] of real;
 i:Integer;
 P:real;
Begin
 Randomize;
 Writeln('Initial array:');
 For i:=1 to n do
  begin
   a0[i]:=Random*10;
   write(a0[i]:8:2);
  end;
 Writeln;
 Writeln;
 Writeln('Smoothed array:');
 a1[1]:=a0[1];
 a1[n]:=a0[n];
 P:=a1[1];
 Write(a1[1]:8:2);
 For i:=2 to n-1 do
  begin
   a1[i]:=(a1[i-1]+a0[i]+a0[i+1])/3;
   write(a1[i]:8:2);
   P:=P*a1[i];
  end;
 Writeln(a1[n]:8:2);
 P:=P*a1[n];
 Writeln;
 Writeln('P= ',P:0:2);
 Readln
End.

Код:

Var
 Max,Min,a,i:Integer;
Begin
 Randomize;
 Min:=30;
 Max:=-15;
 For i:=1 to 4 do
  begin
   a:=-10+Random(26);
   if a<Min then Min:=a;
   if a>Max then Max:=a;
   write(a:6);
  end;
 Writeln;
 Writeln;
 Writeln('Result: ',Abs(Min)+Abs(Max));
 Readln
End.

lopido · 26.01.2013, 12:51

Прошу прощения за нарушения правил. И огромное спасибо за помощь, завал сейчас полный, не знаю что бы без вас делала.

26.01.2013, 12:14	#1 (permalink)
lopido Новичок Регистрация: 26.01.2013 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Две задачи на PascalABC Помогите пожалуйста составить программы в pascalABC. 1. 2. Случайным образом сгенерировать 4 цулых числа из промежутка [-10,15] и вывести на печать сумму модулей максимального и минимального из этих чисел.

26.01.2013, 12:14
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Скорее всего проблему будет решать намного легче, если набраться информации отсюда Задачи Помогите с программой в PascalABC.NET для Wi-Fi Еще задачи в QBasic

26.01.2013, 12:51	#3 (permalink)
lopido Новичок Регистрация: 26.01.2013 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Прошу прощения за нарушения правил. И огромное спасибо за помощь, завал сейчас полный, не знаю что бы без вас делала.

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