Решить через pascal.б)задан массив p(10) (элементы его выбрать самостоятельно построить новый массив b, элементы которого вычисляется по формуле: pb=0, 5sin(p) + 0, 1. отобрать в новом массиве все положительные значения и если их количество будет больше 5, то массив b отпечатать печатать без изменения, в противном случае, присвоить положительные значения массива в число 1. в)произвести выборку в массиве х=( -1; - 2; 3; 4; 5; - 7; - 12; 1; 0, 8; - 6; 5; 7; - 2; 0, 1; 0; 3; - 8; - 5) то есть формировать 4 массива. первый содержит записанные в подряд положительные элементы массива x, второй - отрицательные элементы массива х. третий - подряд записанные порядковые номера элементов первого массива, которые они имели в массиве x, четвёртый массив содержит подряд записанные индексы элементов второго массива, которые они имели в массиве x.
Ответы
Чтобы прервать ввод в массив нужно ввести число "-1010".
class ArrayNegative{
public static void main(String args[]){
java.util.Scanner in = new java.util.Scanner(System.in); long eArray[] = new long[1];
while((eArray[eArray.length-1] = in.nextLong())!=-1010){
long nArray[] = new long[eArray.length+1];
for(int nCell = 0; nCell<eArray.length; nCell++)nArray[nCell]=eArray[nCell];
eArray = nArray;
} eArrayCell:
for(int cCell = 0; cCell<eArray.length-1; cCell++){
if(eArray[cCell]>0)continue;
else for(int eCell = cCell+1; eCell<eArray.length-1; eCell++)
if(eArray[eCell]>0){
eArray[eArray.length-1]=eArray[cCell];
eArray[cCell]=eArray[eCell];
eArray[eCell]=eArray[eArray.length-1];
continue eArrayCell;
}
break;
}
for(int cCell = 0; cCell<eArray.length-1; cCell++)System.out.print(eArray[cCell]+" ");
}
}
class ArrayNegative{
public static void main(String args[]){
java.util.Scanner in = new java.util.Scanner(System.in); long eArray[] = new long[1];
while((eArray[eArray.length-1] = in.nextLong())!=-1010){
long nArray[] = new long[eArray.length+1];
for(int nCell = 0; nCell<eArray.length; nCell++)nArray[nCell]=eArray[nCell];
eArray = nArray;
} eArrayCell:
for(int cCell = 0; cCell<eArray.length-1; cCell++){
if(eArray[cCell]>0)continue;
else for(int eCell = cCell+1; eCell<eArray.length-1; eCell++)
if(eArray[eCell]>0){
eArray[eArray.length-1]=eArray[cCell];
eArray[cCell]=eArray[eCell];
eArray[eCell]=eArray[eArray.length-1];
continue eArrayCell;
}
break;
}
for(int cCell = 0; cCell<eArray.length-1; cCell++)System.out.print(eArray[cCell]+" ");
}
}
Вроде должна работать это 1 задача
uses crt;
var a,i,j,n:integer;
begin
writeln('ВВедите кол. конфет в (кг)');
read(a);
n:=0;
if a>=10 then begin n:=n+ a div 10; a:=a-(a div 10*10); end;
if (a>=5) and (a<10) then begin n:=n+ a div 5; a:=a-(a div 5*5); end;
if (a>=1) and (a<5) and (a<10) then begin n:=n+ a div 1; a:=a-(a div 1*1); end;
writeln('Общее количество коробок = ',n);
end.
2 задача
uses crt;
var a,i,j,n:integer;
begin
writeln('Введите кол. суток');
read(a);
writeln('Количество часов в ',a,' сутках = ',a*24);
writeln('Количество минут в ',a,' сутках = ',a*24*60);
writeln('Количество секунд в ',a,' сутках = ',a*24*60*60);
end.
uses crt;
var a,i,j,n:integer;
begin
writeln('ВВедите кол. конфет в (кг)');
read(a);
n:=0;
if a>=10 then begin n:=n+ a div 10; a:=a-(a div 10*10); end;
if (a>=5) and (a<10) then begin n:=n+ a div 5; a:=a-(a div 5*5); end;
if (a>=1) and (a<5) and (a<10) then begin n:=n+ a div 1; a:=a-(a div 1*1); end;
writeln('Общее количество коробок = ',n);
end.
2 задача
uses crt;
var a,i,j,n:integer;
begin
writeln('Введите кол. суток');
read(a);
writeln('Количество часов в ',a,' сутках = ',a*24);
writeln('Количество минут в ',a,' сутках = ',a*24*60);
writeln('Количество секунд в ',a,' сутках = ',a*24*60*60);
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Решите 11100011²+1110²=х² 111011²*²=х² ²- это двоичная система счисления
Автор: Сергей_Евгеньевич1255
Знайти середнє арифметичне всіх натуральних двохзначних чисел, кратних 13.
Автор: silicon-films3375
===== PascalABC.NET =====
- Б) -
begin
var p := ArrRandom(10, -10, 10);
Print('P:');
p.Println;
var B := p.Select(q -> 0.5 * Sin(q) + 0.1).ToArray;
Print('B:');
if B.Count(p -> p > 0) <= 5 then
B.Transform(q -> q > 0 ? 1.0 : q);
B.Println
end.
- В) -
begin
var x: array of real := (-1, -2, 3, 4, 5, -7, -12, 1,
0.8, -6, 5, 7, -2, 0.1, 0, 3, -8, -5);
x.Println;
var x1 := x.Where(p -> p > 0).Println.ToArray;
var x2 := x.Where(p -> p < 0).Println.ToArray;
var x3 := x.Indices(p -> p > 0).Select(p -> p + 1).Println.ToArray;
var x4 := x.Indices(p -> p < 0).Select(p -> p + 1).Println.ToArray
end.