М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
qaz160904
qaz160904
04.07.2020 14:46 •  Информатика

Напишите программу на с#, которая будет менять в заданном в программе массиве целых чисел все элементы, которые равны указанному значению, на противоположное по знаку. реализовать программу следует с использованием функции, в которую изменяемое значение передаётся в качестве аргумента. например, все элементы массива, которые равны 2,будут меняться на -2.

👇
Ответ:
alevtinatian
alevtinatian
04.07.2020
Using System;

public class Test
{
public static int change(int x){return -x;}
public static void Main()
{
const int n=5;
int[,] a=new int[n,n];
Random rnd=new Random();
Console.Write("введите число:");
int c=int.Parse(Console.ReadLine());
Console.WriteLine("");
Console.WriteLine("исходный массив:");
for(int i=0;i<n;i++)
{
for(int j=0;j<n;j++)
{
a[i,j]=rnd.Next(1,10);
Console.Write(a[i,j]);
}
Console.WriteLine("");
}
Console.WriteLine("полученный массив:");
for(int i=0;i<n;i++)
{
for(int j=0;j<n;j++)
{
if(a[i,j]==c) a[i,j]=change(c);
Console.Write(a[i,j]);
}
Console.WriteLine("");
}
}
}
4,4(50 оценок)
Открыть все ответы
Ответ:
kirillmajer2007
kirillmajer2007
04.07.2020
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

1. Если надо преобразовать число без знака в число

begin
  var n:=ReadInteger; // исходное число
  n:=n.ToString.Inverse.ToInteger; // полученное число
  n.Println; // вывод результата
end.

2. Если нужно только вывести результат

begin
  var n:=ReadInteger; // исходное число
  n.ToString.Inverse.ToInteger.Println
end.

3. Если надо только поменять местами символы, введенные с клавиатуры (например, два символа, изображающие число)

begin
  ReadlnString.Inverse.Println
end.

4. Если заданное число может быть отрицательным

begin
  var n:=ReadInteger; // исходное число
  var s:=Sign(n); // знак числа
  n:=Abs(n); // модуль числа
  n:=n.ToString.Inverse.ToInteger*s; // полученное число
  n.Println; // вывод результата
end.
4,5(93 оценок)
Ответ:
алка689338
алка689338
04.07.2020

{ Треугольник задан координатами вершин (x1;y1),(x2;y2),(x3;y3).

Найти площадь треугольника (используя формулу Герона) }

uses crt;

var x1,x2,x3,y1,y2,y3,a,b,c,s,p : real;

begin

clrscr;

write('x1=');readln(x1);

write('y1=');readln(y1);

write('x2=');readln(x2);

write('y2=');readln(y2);

write('x3=');readln(x3);

write('y3=');readln(y3);

a:=sqrt(sqr(x1-x2)+sqr(y1-y2));

b:=sqrt(sqr(x2-x3)+sqr(y2-y3));

c:=sqrt(sqr(x3-x1)+sqr(y1-y3));

p:=(a+b+c)/2;

s:=sqrt(p*(p-a)*(p-b)*(p-c));

write('s=',s);

readln;

end.

формула герона!

А так я думаю эти задачки очень даже не сложные, только формулы надо знать!! !

периметр- это сумма всех сторон

например

begin

writteln( 'введите 3 стороны' ) ;

readln(a,b,c);

writeln(' периметр = ',a+b+c);

readln;

end.

Вот и все!! !

Удачи!

4,4(64 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ