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

напишите алгоритм в паскале по данной блок-схеме


напишите алгоритм в паскале по данной блок-схеме

👇
Ответ:
alenabovkun
alenabovkun
19.03.2022

program z1;

var k,a,b:integer;

begin

k:=0;

if(a>=0) then k:=k+1;

if(b>=0) then k:=k+1;

write(k);

end.

Объяснение:

Данный алгоритм неполный, т.к. у нас нигде не объявляется A и B

Если необходимо вводить эти данные с клавиатуры, то необходимо между k:=0 и if... добавить:

read(a);

read(b);

Если вы их объявляете сами, то между теми же строками добавьте значение (ниже указал пример):

a:=1;

b:=-1;

4,6(42 оценок)
Открыть все ответы
Ответ:
lisasmirnova26
lisasmirnova26
19.03.2022

#include <iostream>

int n, k, sum;  {n - количество чисел, k - считываемое значение, sum - сумма чисел}

using namespace std;

int main()

{

cout << "Введите количество элементов: ";

cin >> n;

for (int i = 0; i < n; i++) {

 cin >> k;

{пока вводимое число не будет натуральным,выводится сообщение об ошибке и ввод значения с клавиатуры}

 while (k <= 0){

  cout << "Число должно быть натуральным [1...n]" << endl;

  cin >> k;

 }

 sum = sum + k;  //суммируем натуральные числа

}

cout << sum;  //выводим сумму

   return 0;

}

4,8(89 оценок)
Ответ:
Cyndyma
Cyndyma
19.03.2022
Программу надо сформатировать и тогда её структура будет видна лучше.
А чтобы понять, как идет выполнение, в нужных точках ставим промежуточную выдачу - это называется "трассировкой".

var
  s, k: integer;
label
  met;
begin
  s:=-12;
  k:=90;
  Writeln('s=',s,', k=',k);
  s:=s+10;
  Writeln('s=',s);
met:
  Writeln('Метка met:');
  k:=k+10; Write('k=',k);
  if k<200 then s:=50 else s:=s+k;
  Writeln(', s=',s);
  if k<200 then goto met;
  Writeln('Результат: s=',s)
end.

Результат выполнения программы:
s=-12, k=90
s=-2
Метка met:
k=100, s=50
Метка met:
k=110, s=50
Метка met:
k=120, s=50
Метка met:
k=130, s=50
Метка met:
k=140, s=50
Метка met:
k=150, s=50
Метка met:
k=160, s=50
Метка met:
k=170, s=50
Метка met:
k=180, s=50
Метка met:
k=190, s=50
Метка met:
k=200, s=250
Результат: s=250
4,4(22 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ