В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия

Добрый вечер форумчане, нужна с Java.
1)Создать объект класса Текст, используя классы Предложение, Слово. Методы: дополнить текст, вывести на консоль текст, заголовок текста.
2)Создать и заполнить файл случайными целыми числами. Отсортировать содержимое файла по возрастанию.
Нужно хотя бы два рабочих кода разом. +лучший ответ.

Показать ответ
Ответ:
лера2154
лера2154
19.10.2020 01:28
Function V(h,r:real):real;
Begin
result:=1/3*Pi*r*r*h // ABC, ABC.net
// V:=1/3*Pi*r*r*h // Turbo, Free
End;

Function SPP(h,r:real):real;
Begin
result:=Pi*r*(R+Sqrt(r*r+h*h));
End;

Var
   h,r,V0,S,SumS,SumV:real;

Begin
Write('h1 = ');ReadLn(h);
Write('r1 = ');ReadLn(r);
V0:=V(h,r);
SumV:=V0;

S:=SPP(h,r);
SumS:=S;
WriteLn('V1 = ',V0);
WriteLn('S1 = ',S);
WriteLn;

Write('h2 = ');ReadLn(h);
Write('r2 = ');ReadLn(r);
V0:=V(h,r);
SumV:=SumV+V0;

S:=SPP(h,r);
SumS:=SumS+S;
WriteLn('V2 = ',V0);
WriteLn('S2 = ',S);
WriteLn;

Write('h3 = ');ReadLn(h);
Write('r3 = ');ReadLn(r);
V0:=V(h,r);
SumV:=SumV+V0;

S:=SPP(h,r);
SumS:=SumS+S;
WriteLn('V3 = ',V0);
WriteLn('S3 = ',S);
WriteLn;

WriteLn('Sum V = ',SumV);
WriteLn('Sum S = ',SumS);
End.
0,0(0 оценок)
Ответ:
Anna124212
Anna124212
10.12.2020 19:15
// PascalABC.NET 3.2, сборка 1427 от 24.04.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var m:=ArrRandom(ReadInteger('n='),-20,20); m.Println;
  (var k,var s):=(0,0);
  for var i:=1 to m.Length-2 do
    if (m[i]<m[i-1]) and (m[i]<m[i+1]) then (k,s):=(k+1,s+m[i]);
  Writeln('Свойство А: кол-во=',k,', сумма=',s);
  var mb:=m.Where(x->x<0).ToArray;
  Write('Свойство Б: '); mb.Println;
  var z:=ReadInteger('Z1=');
  var mmin:=m.Min;
  m.Transform(x->x=mmin?z:x); Writeln('Свойство B:'); m.Println;
  m.Sort; Writeln('Упорядоченность по неубыванию:'); m.Println;
  var p,q:integer; Write('Введите P Q: '); Read(p,q);
  m:=m.Where(x->(x mod p<>0) and (x mod q<>0)).ToArray;
  Writeln('Свойство Г:'); m.Println;
  z:=ReadInteger('Z2=');
  p:=m.FindIndex(x->x>=z);
  if m[p]<>z then m:=(m[:p]+Arr(z)+m[p:]).ToArray;
  Writeln('После попытки вставки:'); m.Println
end.

Пример
n= 17
3 5 -5 12 -15 6 11 -7 -13 -3 -17 8 -7 8 -5 -15 -7
Свойство А: кол-во=6, сумма=-72
Свойство Б: -5 -15 -7 -13 -3 -17 -7 -5 -15 -7
Z1= -33
Свойство B:
3 5 -5 12 -15 6 11 -7 -13 -3 -33 8 -7 8 -5 -15 -7
Упорядоченность по неубыванию:
-33 -15 -15 -13 -7 -7 -7 -5 -5 -3 3 5 6 8 8 11 12
Введите P Q: 3 7
Свойство Г:
-13 -5 -5 5 8 8 11
Z2= 0
После попытки вставки:
-13 -5 -5 0 5 8 8 11
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота