Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Овсянникова Е.А

помогите решить.1. Разработать словесные алгоритмы вычитания из некоторого числа А последовательности n чисел b1, b2, ..., bn:

23.11.2011, 19:31. Показов 3590. Ответов 0
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
1. Разработать словесные алгоритмы вычитания из некоторого числа А
последовательности n чисел b1, b2, ..., bn:
а) алгоритм вычисления по формуле:
C=(...((A-b1)-b2)-...-bn)
б) алгоритм вычисления по формуле:
https://www.cyberforum.ru/cgi-bin/latex.cgi?C=A-\sum_{i-1}^{n}bi
2. Разработать алгоритм вычисления по формуле:
https://www.cyberforum.ru/cgi-bin/latex.cgi?Ck=\sum_{i-1}^{n}ai-bk(1\leq i\leq n,1\leq k\leq m)
3. Разработать алгоритм вычисления по формуле:
https://www.cyberforum.ru/cgi-bin/latex.cgi?Ci=\prod_{k-1}^{m}ak*bi(1\leq i\leq m,1\leq k\leq m)

1) Есть ли в следующих текстах пустые операторы? (Если есть, то отметьте в тетради под какими буквами.)
а) if x>0 then x:=2 else; y:=x+1;
б) if odd(k) then else k:=0;
в) begin x:=2; y:=5; end;
г) begin a:=true; ; b:=b or a end;
д) begin if x=0 then goto 1; y:=x; 1:end
2) Если n=3, то какое значение будет иметь переменная f после выполнения следующего составного оператора? Запишите в тетрадь.
begin f:=1; i:=2;
1: if i>n then goto 9;
f:=f*i; i:=i+1; goto 1;
9: end
3) Найдите ошибки в программе, записав уже исправленную программу в тетрадь:
Program Errors;
Const L=18;
Label 18,8;
Var x, y:integer;
Begin y:=0;
8: read(x); if x<0 then goto L;
y:=y+x; goto 18;
L:writeln(y)
End.
4) Найти ошибки в следующих операторах, запишите исправленные операторы в тетрадь:
а) begin 77: if |x|<1 then goto 5
begin x:=x/2; goto 77; 5: y:=sin(x) end
end;
б) 34:if 0<x<2 then if y<1 then goto 34 else goto 15 else 15: y:=sqr(y)
в) if 1<x<2 then x:=x+1; y:=0; else x:=0; y:=y+1;
г) if 1<x and x<2 then begin x:=x+1; y:=0 end; else begin x:=0; y:=y+1 end
5) Запишите в тетрадь, какое значение будет иметь переменная z после выполнения операторов
z:=0
if x>0 then if y>0 then z:=1 else z:=2
при следующих значениях переменных х и у:
а) х=у=1; б) х=1, у=-1; в) х=-1,
уду очень благодарна хотя бы за первые 4 решения.
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
23.11.2011, 19:31
Ответы с готовыми решениями:

Составить программу вычитания от числа 100 последовательности чисел от 0 до 9
Помогите пожалуйста с задачей по курсовой работе! Очень прошу! Составить программу вычитания от числа 100 последовательности чисел от 0...

Определить среднее арифметическое тех чисел заданной последовательности, которые больше некоторого числа n
Даны натуральное число 'x' и целые числа 'a1,a2, ..., ax'. Определить среднее арифметическое тех чисел ai, которые больше некоторого числа...

Определить, сколько чисел последовательности содержит в своей записи все цифры больше некоторого числа N
помогите пожалуйста написать программу Процедуры и функции в паскаль: Дана последовательность К чисел. определить, сколько чисел...

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
23.11.2011, 19:31
Помогаю со студенческими работами здесь

Подсчитать сумму элементов, больших по модулю некоторого заданного С, в последовательности чисел, используя одну переменную-указатель для след. числа
Подсчитать сумму элементов, больших по модулю некоторого заданного С, в последовательности вещественных чисел, используя одну...

Разработать класс, представляющий комплексное число, с методами сложения и вычитания двух комплексных чисел
Добый день, спасите душу бедного программиста экзамен не как не могу составить в BlueJ. Разработать класс, представляющий комплексное...

Разработать прог¬рамму, которая заменяет все словесные записи денежных сумм числами
В исходном файле содержится некоторый текст. Разработать прог¬рамму, которая заменяет все словесные записи денежных сумм числами. При этом...

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

Разработать рекурсивную функцию, возвращающий целый результат целочисленного деления натуральных чисел без остатка только с помощью функции вычитания
Помогите пожалуйста с решением. Разработать рекурсивную функцию, возвращающий целый результат целочисленного деления натуральных...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Новые блоги и статьи
Вывод данных через динамический список в справочнике
Maks 01.04.2026
Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Функция заполнения текстового поля в реквизите формы документа
Maks 01.04.2026
Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .
К слову об оптимизации
kumehtar 01.04.2026
Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр).
Hrethgir 31.03.2026
Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда
anaschu 31.03.2026
В прикрепленном документе раздумья о том, как можно поменять модель в будущем
10 пpимет, которые всегда сбываются
Maks 31.03.2026
1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .
Перемещение выделенных строк ТЧ из одного документа в другой
Maks 31.03.2026
Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave
DevAlt 30.03.2026
Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru