Дано четыре числа. Определить , сколько из них имеют знак минус - Pascal
Формулировка задачи:
Привет всем! Я студент 1-го курса радиотехнической специальности , что не связанно с программированием и ясное дело я в нём не селен , информатика идёт у меня как общеобразовательный предмет на пол семестра.И поэтому прошу помощи у тех кто в программировании в Pascal разбирается.Помогите пожалуйста в создании программки по таким задачкам :
1.Дано три стороны треугольника a , b , c . Нужно найти сумму синусов углов треугольника. ( формула : sin(x+y)=sinx*cosy + cosx*siny ) Предвидеть введение значений a,b,c с клавиатуры и вывод результатов на экран.
2.Дано четыре числа.Определить , сколько из них имеют знак минус.
3.Дано последованость с нулей и единиц .Определить , количество каких цифр раньше достигнет 10.
Вроде бы задачки не занимают много времени , но это не мой профиль) помогите пожалуйста. Буду премного благодарен. ( если эти задачки особого труда не занимают там ещё несколько есть могу выложить если сможете помочь)
Решение задачи: «Дано четыре числа. Определить , сколько из них имеют знак минус»
textual
Листинг программы
var s:string; i,c0,c1:integer; begin readln(s); c0:=0; c1:=0; i:=0; repeat inc(i); if s[i]='0' then inc(c0); if s[i]='1' then inc(c1); if c1=10 then writeln('10 ед. встретяться раньше'); if c0=10 then writeln('10 нулей встретятся раньше'); if (i=length(s)) and (c0<10) and (c1<10) then writeln('В последовательности нет ни 10 ед. ни 10 нулей') until (c1=10) or (c0=10) or (i=length(s)) end.
Объяснение кода листинга программы
В этом коде используется язык программирования Pascal. Программа считывает строку из стандартного ввода и выполняет следующие действия:
- Переменная
s
содержит считанную строку. - Переменные
c0
иc1
инициализируются нулем. Они используются для подсчета количества единиц и нулей в строке соответственно. - Переменная
i
инициализируется нулем и используется как счетчик для прохода по символам строки. - В цикле
repeat-until
происходит проход по всем символам строки. - Если текущий символ равен '0', то увеличивается значение переменной
c0
. - Если текущий символ равен '1', то увеличивается значение переменной
c1
. - Если значение переменной
c1
равно 10, то выводится сообщение10 ед. встретятся раньше
. - Если значение переменной
c0
равно 10, то выводится сообщение10 нулей встретятся раньше
. - Если цикл выполняется 100 итераций (т.е. длина строки равна 100), и значения переменных
c0
иc1
меньше 10, то выводится сообщениеВ последовательности нет ни 10 ед. ни 10 нулей
. - Если значение переменной
c1
равно 10 или значение переменнойc0
равно 10 или количество итераций равно длине строки, то цикл прекращается. Таким образом, этот код подсчитывает количество единиц и нулей в считанной строке и выводит соответствующее сообщение в зависимости от результатов подсчета.