program z1;
var a:array [1..6] of integer;
i,s:integer;
begin
s:=0;
randomize;
write ('Массив: ');
for i:= 1 to 6 do
begin
a[i]:=random(18);
write(a[i],' ');
s:=s+a[i]
end;
writeln;
writeln ('Сумма элементов массива: ',s);
writeln ('Среднее арифметическое элементов массива: ',s/6:0:1)
end.
Объяснение:
Цикл:
1) присваиваем значение текущему элементу массива
2) выводим текущий элемент массива на экран
3) считаем сумму элементов массива
Выводим сумму элементов массива на экран
Выводим среднее арифметическое элементов массива на экран (делим сумму на количество элементов), используя форматированный вывод (указываем после второго двоеточия количество знаков после запятой при выводе числа)
Поделитесь своими знаниями, ответьте на вопрос:
Задана форма. как вписать проверку параметров? то есть, например, диаметр отверстия не должен быть больше самой плиты. using system; using system.windows.forms; namespace form1namespace { public partial class form1 { public form1() { initializecomponent(); } private void form1_load(object sender, system.eventargs e) { } private void button1_click(object sender, system.eventargs e) { //начальные параметры плиты textbox1.text = "35"; textbox2.text = "40"; textbox3.text = "22"; textbox4.text = "30"; textbox5.text = "30"; textbox6.text = "10"; textbox7.text = "8"; textbox8.text = "7"; textbox9.text = "18"; textbox10.text = "8"; textbox11.text = "10"; } private void button2_click(object sender, system.eventargs e) { if ((textbox1.text ! = "")& & (textbox2.text ! = "")& & (textbox3.text ! = "") & & (textbox4.text ! = "")& & (textbox5.text ! = "")& & (textbox6.text ! = "") & & (textbox7.text ! = "")& & (textbox8.text ! = "")& & (textbox9.text ! = "") & & (textbox10.text ! = "")& & (textbox11.text ! = "")) { int p1 = int.parse(textbox1.text); int p2 = int.parse(textbox2.text); int p3 = int.parse(textbox3.text); int p4 = int.parse(textbox4.text); int p5 = int.parse(textbox5.text); int p6 = int.parse(textbox6.text); int p7 = int.parse(textbox7.text); int p8 = int.parse(textbox8.text); int p9 = int.parse(textbox9.text); int p10 = int.parse(textbox10.text); int p11 = int.parse(textbox11.text); //метод создания плиты newmacronamespace.newmacroclass.plita(p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11); } else messagebox.show("заполните все поля! ", "внимание", messageboxbuttons.ok, messageboxicon.error); } } }
using System;
using System.Windows.Forms;
namespace Form1Namespace
{
public partial class Form1
{
public Form1()
{
InitializeComponent();
}
private void Form1_Load(object sender, System.EventArgs e)
{
//Начальные параметры плиты
// во первых названия должны быть не textBox1, а tbPlateWidth и тп, а то черт разберешь что куда
textBox1.Text = "35";
textBox2.Text = "40";
textBox3.Text = "22";
textBox4.Text = "30";
textBox5.Text = "30";
textBox6.Text = "10";
textBox7.Text = "8";
textBox8.Text = "7";
textBox9.Text = "18";
textBox10.Text = "8";
textBox11.Text = "10";
}
private void button2_Click(object sender, System.EventArgs e)
{
// лучше писать в виде фильтров , а не многовложенных условий
if ((textBox1.Text = "") || (textBox2.Text = "") || (textBox3.Text = "")
|| (textBox4.Text = "") || (textBox5.Text = "") || (textBox6.Text = "")
|| (textBox7.Text = "") || (textBox8.Text = "") || (textBox9.Text = "")
|| (textBox10.Text = "") || (textBox11.Text = ""))
{
MessageBox.Show("Заполните все поля!", "Внимание", MessageBoxButtons.OK, MessageBoxIcon.Error);
return;
}
var PlateWidth = int.Parse(textBox1.Text);
var PlateDiametr = int.Parse(textBox2.Text);
var p3 = int.Parse(textBox3.Text);
var p4 = int.Parse(textBox4.Text);
var p5 = int.Parse(textBox5.Text);
var p6 = int.Parse(textBox6.Text);
var p7 = int.Parse(textBox7.Text);
var p8 = int.Parse(textBox8.Text);
var p9 = int.Parse(textBox9.Text);
var p10 = int.Parse(textBox10.Text);
var p11 = int.Parse(textBox11.Text);
//пример проверки
if PlateDiametr > PlateWidth {
MessageBox.Show("диаметр отверстия не должен быть больше самой плиты", "Внимание", MessageBoxButtons.OK, MessageBoxIcon.Error);
return;
}
//Метод создания плиты
NewMacroNamespace.NewMacroClass.Plita(PlateWidth, PlateDiametr, p3, p4, p5, p6, p7, p8, p9, p10, p11);
}
}
}