Дано четыре числа. Определить , сколько из них имеют знак минус - 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. Программа считывает строку из стандартного ввода и выполняет следующие действия:

  1. Переменная s содержит считанную строку.
  2. Переменные c0 и c1 инициализируются нулем. Они используются для подсчета количества единиц и нулей в строке соответственно.
  3. Переменная i инициализируется нулем и используется как счетчик для прохода по символам строки.
  4. В цикле repeat-until происходит проход по всем символам строки.
  5. Если текущий символ равен '0', то увеличивается значение переменной c0.
  6. Если текущий символ равен '1', то увеличивается значение переменной c1.
  7. Если значение переменной c1 равно 10, то выводится сообщение 10 ед. встретятся раньше.
  8. Если значение переменной c0 равно 10, то выводится сообщение 10 нулей встретятся раньше.
  9. Если цикл выполняется 100 итераций (т.е. длина строки равна 100), и значения переменных c0 и c1 меньше 10, то выводится сообщение В последовательности нет ни 10 ед. ни 10 нулей.
  10. Если значение переменной c1 равно 10 или значение переменной c0 равно 10 или количество итераций равно длине строки, то цикл прекращается. Таким образом, этот код подсчитывает количество единиц и нулей в считанной строке и выводит соответствующее сообщение в зависимости от результатов подсчета.

Оцени полезность:

15   голосов , оценка 4.2 из 5
Похожие ответы