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

Язык для программирования C# Нужна по написанию программы, которая вычисляет частное двух чисел. Программа должна проверять правильность введенных пользователем данных и, если они неверные (делитель равен нулю), выдавать сообщение об ошибке.

Вид экрана во время выполнения программы (данные, введенные пользователем, выделены жирным шрифтом):

Вычисление частного.



Введите в одной строке делимое и делитель, затем нажмите . -> 12 0 Ошибка! Делитель не должен быть равен нулю.

Показать ответ
Ответ:
Lee35
Lee35
22.03.2020 02:04
#include <iostream>
#include <ctime>
using namespace std;
int main ()
{
setlocale (0,"russian");
srand (time(NULL));
unsigned short N,a=0,b=0;
cout << "Кол-во элементов массива: ";
cin >> N;
short *array=new short [N];
cout << "Случайный массив: ";
for (unsigned short i=0;i<N;i++)
{
array[i]=rand()%201-100;
cout << array[i] << ' ';
if (array[i]>=0) a++;
else b++;
}
cout << endl;
cout << "Кол-во положительных элементов: " << a;
cout << endl << "Отрицательных: " << b << endl;
system ("PAUSE");
return 0;
}
0,0(0 оценок)
Ответ:
ppetrovaa
ppetrovaa
08.08.2020 01:23
1)
program cgt;
var a:array[1..100,1..100]of integer;
s,n,m,i,j:integer;
begin
read(n,m);
s:=0;
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);
for i:=1 to n do
begin
for j:=1 to m do
if(i mod 2=1)then s:=s+a[i,j];
end;
writeln(s);
end.
2)
program cgt;
var a:array[1..100,1..100]of integer;
n,m,i,j:integer;
s,p:real;
begin
read(n,m);
s:=0;
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);
for i:=1 to n do
begin
p:=1;
if(i mod 2=0)then begin
for j:=1 to m do
begin
p:=p*(sin(a[i,j]*pi/180))/(cos(a[i,j]*pi/180));
end;
s:=s+p;
end;
end;
writeln(s);
end.
3)

program cgt;
var a:array[1..100,1..100]of integer;
n,m,i,j,max,x,y:integer;
begin
read(n,m);
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);
max:=a[1,1];
for i:=1 to n do
if(i mod 2=1)then begin
for j:=1 to m do
if(a[i,j]>=max)then  begin
max:=a[i,j];
x:=i;
y:=j;
end;
end;
writeln(x,' ',y);
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота