natalia-shelkovich
?>

Написать программу на языке паскаль. даны три действительные числа. сложить те из них, значения которых не отрицательны.

Информатика

Ответы

krikatiy
Program chislo; var a,b,c,d: integer; begin write('введите a = ' ); readln(a); if a> =0 then d: =d+a; write('введите b = ' ); readln(b); if b> =0 then d: =d+b; write('введите c = ' ); readln(c); if c> =0 then d: =d+c; writeln(d); write('сумма положительных чисел равна ',d) end.
ti2107

1)

first_side = int(input())

second_side = int(input())

def perimeter(first_side, second_side):

perimeter = (2 * first_side) + (2 * second_side)

return print(perimeter)

perimeter(first_side, second_side)

2) не понятно, что значит "иначе увеличьте". сделал так -

first_side = int(input())

second_side = int(input())

def perimeter(first_side, second_side):

perimeter = (2 * first_side) + (2 * second_side)

if perimeter > 50:

perimeter = perimeter / 2

else:

perimeter = perimeter * 2

return print(perimeter)

perimeter(first_side, second_side)

ayanrsadykov

Что это за дикий п***ец? Даже названия классов, функций непонятно какие, про ввод значений вообще молчу.

А ответ программа не выводит потому что нарушена логика вызова функций. А нарушена по нескольким причинам. Первая - полное непонимания того, что автор пишет, непонимания ООП, что куда возвращается и т.д. Вторая - несоответствие возвращаемых значений назначению функции. Почему функция Vvod() возвращает сумму введенных чисел? Это создает путаницу, она должна возвращать сами числа. Стоит почитать книги про написанию кода, например "Совершенный код", что бы понимать базовые правила. Одна функция - одна задача.

Конкретно в данном случае нужно в мейне вызвать только Console.WriteLine(Vivod()), т.е. отображение возвращаемого значения функции Vivod(), т.к. к ней уже будет вызвана Summa(), а в ней и Vvod().

Ну а вообще - надо по полной переделывать, а то проверяющему будет больно(ментально), тем более сумма 5 веденных чисел находится за 4 строчки кода:

int sum = 0;

for (int i = 1; i < 6; i++){

   Console.WriteLine($"Введите {i}-ий эмемент:");

   sum += int.Parse(Console.ReadLine()); }

Console.WriteLine($"Сумма равна {sum}");

P.S. Это лабораторная по массивам? Но ты массивы даже в своем решении не используешь.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Написать программу на языке паскаль. даны три действительные числа. сложить те из них, значения которых не отрицательны.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Dmitrievna405
smileystyle
artem-whitenoise142
Валуева
ТигранКалмыкова
orantus3
polikarpov-70
maryshecka
iivanov54
galinazajceva781
Irina_Nikolai
Кирилл-Анна1023
Ubuleeva826
Gennadievna bessonov
snab54