Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Другие темы раздела
Неправильно находит МАХ Pascal ABC Нужно вывести максимальный элемент для 3 матриц и его порядковый номер. Читать с файла. uses crt; const m=3; n=4; type mas=array of integer; var i,j,maxi,maxj,mini,minj:integer; var...	Pascal ABC Определить количество положительных и отрицательных элементов матрицы Дана матрица А, содержащая положительные и отрицательные элементы. 1) Определить в какой строке более одного отрицательного элемента и заменить элементы этой строки числом 5. Затем вывести матрицу.... program mas; var i,j,t,p:integer; x:arrayof integer; K:array of integer; begin K:=0; K:=0; Randomize; For i:=1 to 5 do
Pascal ABC Определить, принадлежит ли точка с координатами (х,у) заштрихованной области uses crt; var x,y:real; begin writeln('Введите координаты точки'); read(x,y); if(xx+yy<=1)and(x*y>=0)then write('Попадает') else write('Не попадает') end. https://www.cyberforum.ru/ pascalabc/ thread697212.html	Pascal ABC Подсчет суммы всех элементов в массиве помогите плииззз не могу разобраться дано масивa A составить программу подсчета суммы всех Элементов, находящийся между элементами A и A Неверно понял условие, сейчас переделаю Добавлено через 18 минут Вот как-то так: var a : array of integer; i, S, n: integer; begin writeln ('Введите размер массива '); read (n);
Ошибка в коде Pascal ABC Всем привет. нужна помощь. не могу в коде найти ошибку.. Задача: Дан двумерный массив,удалить из него первую из строк,сумма элементов которых не превышает некоторое заданное число Код: program...	Pascal ABC Даны три числа, вывести на экран те, которые не принадлежат диапазону (-3,8;1,8) Помогите сделать 3 задачи по Паскалю с блок-схемами. 3.Даны три вещественных числа, вывести на экран те из них, которые не принадлежат диапазону (-3,8;1,8). https://www.cyberforum.ru/ pascalabc/ thread697164.html
Pascal ABC Составить программу, печатающую строку: «ABBCDD…Z» https://www.cyberforum.ru/ pascalabc/ thread697137.html Помогите пожалуйста составить программу, печатающую строку: «ABBCDD…Z». var c:char; begin for c:='A' to 'Z' do write(c); end.	Сумма квадратов всех чисел от 1 до N Pascal ABC 1. Составьте программу, вычисляющую сумму квадратов всех чисел от 1 до N. var n,i,s:integer; begin write('n='); read(n); s:=0; for i:=1 to n do s:=s+i*i; write('S=',s); end.
Pascal ABC Дано трехзначное число. Найти число, полученное при прочтении его цифр справа налево https://www.cyberforum.ru/ pascalabc/ thread697165.html Помогите сделать 3 задачи по Паскалю с блок-схемами. 2.Дано трехзначное число.Найти число, полученное при прочтении его цифр справа налево.	Pascal ABC Определить плотность население в государстве. Помогите сделать 3 задачи по Паскалю с блок-схемами. 1. Известно количество жителей в государстве и площадь его территории. Определить плотность население в этом государстве. илья17, в следующий... https://www.cyberforum.ru/ pascalabc/ thread697159.html
Pascal ABC Определить, можно ли, переставив члены данной последовательности, получить геометрическую прогрессию https://www.cyberforum.ru/ pascalabc/ thread697246.html определить можно ли переставив члены данной последовательности получить геометрическую прогрессию Отсортируйте например по возрастанию и проверьте везде ли равен знаменатель.	Алгоритм нахождения квадратного корня из положительного числа x Pascal ABC можно представить следующей рекуррентной последовательностью: y0 = (x+1)/2 yi = (yi-1 + x/yi-1) (формула Герона Александрийского). При заданном x определить n-ое приближение его квадратного... Что-то ты не то наколбасил... Вот например. http://festival.1september.ru/articles/615075/ или http://www.cyberguru.ru/pascal/pascal-introduction-page21.htm uses crt; var x,y0,y:real; ...

ermolay

3451 / 2389 / 2135

Регистрация: 04.12.2011

Сообщений: 3,966

14.11.2012, 13:42

Выяснить, что получится в результате выполнения программы - Pascal ABC - Ответ 3697008

14.11.2012, 13:42. Показов 2070. Ответов 3

Метки (Все метки)

Сообщение было отмечено Памирыч как решение

Решение

Если в 9-й строке не C[i] , а B[i], и программа выглядит так:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program Variant3; 
 
const
  n = 17;
 
var
  B: Array[1..n] Of Integer;
  i: Byte; p: Integer;
 
begin
  p := 0;
  for i := 1 To n Do 
  begin
    B[i] := -35 + Random(121);
    if B[i] Mod 10 = 0 Then p := p + 1;
  end;
  Writeln(p); 
end.

то она выводит количество элементов, заканчивающихся нулем
ключевая строчка эта

Pascal
1
if B[i] Mod 10 = 0 Then p := p + 1;

Вернуться к обсуждению:
Выяснить, что получится в результате выполнения программы Pascal ABC

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

14.11.2012, 13:42

Готовые ответы и решения:

Что получится в результате выполнения программы?
Что получится в результате выполнения программы? Program Variant2; Const n=10; Type myarray=Array Of Integer; Var D: myarray; ...

Определить, какая числовая последовательность получится в результате выполнения 3 итерации во внутреннем цикле
1. Какая числовая последовательность получится в результате выполнения 3 итерации во внутреннем цикле при первом проходе во внешнем цикле,...

Матрица и циклы: Что будет выведено на экран, в результате выполнения программы?
Здравствуйте. Подскажите, пожвлуйста, мне в чем я не прав. Задание заключается в следующем: Что будет выведено на экран, в результате...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

14.11.2012, 13:42

Помогаю со студенческими работами здесь

Алгоритм и алгоритмизация: Определите, что будет напечатано в результате выполнения фрагмента программы
Помогитее решить Определите, что будет напечатано в результате выполнения фрагмента программы: ar s,k: integer; begin s:=1; for...

Определить, что будет напечатано в результате выполнения программы
var s, k; integer; begin s:=40 for k:=1 to 7 do s:=s-3 write(s); end.

Что будет напечатано на экране в результате выполнения программы?
помогите пожалуйста .что будет напечатано на экране в результате выполнения программы ? так же задание в низу

Что будет напечатано в результате выполнения следующего фрагмента программы?
x := -3.1; y := 1; If (x < 0) And (y < 0) Then begin x := -x; y := -y; end Else If Not ((x >= 0.5) And (x <= 2)) And Not ((y...

Укажите, что будет напечатано в результате выполнения следующей программы
Укажите, что будет напечатано в результате выполнения следующей программы: Var a:array of integer; i,j: integer; Begin For...

Новые блоги и статьи Все статьи Все блоги /
Исследование байт-кода Python: подключаем дизассемблер stackOverflow 19.02.2025 Многие знают, что Python - интерпретируемый язык, но мало кто задумывается о том, что происходит между написанием кода и его выполнением. На самом деле Python использует промежуточное представление. . .	Исследование байт-кода Python: компиляторы против интерпретаторов stackOverflow 19.02.2025 Понимание байт-кода Python - основополагающий аспект для разработчиков, стремящихся глубже понять внутренние механизмы языка и оптимизировать производительность своих программ. Байт-код представляет. . .	Comprehensions в Python - что это такое? stackOverflow 19.02.2025 Когда речь заходит о Python, одной из его самых красивых и мощных возможностей являются списковые включения или comprehensions. Это особые синтаксические конструкции, позволяющие создавать новые. . .	Python правда такой медленный? Развенчиваем миф о медлительности stackOverflow 19.02.2025 Когда речь заходит о выборе языка программирования для нового проекта, вопрос производительности часто становится одним из ключевых факторов. Python, несмотря на свою популярность и простоту. . .	Динамические формы в Flask stackOverflow 19.02.2025 Работа с веб-формами часто требует гибкости в отношении количества полей, которые пользователь может заполнить. Представьте ситуацию, когда вам нужно создать форму для ввода контактных данных, где у. . .
Обнаружение объектов в реальном времени на Raspberry Pi с OpenCV и Movidius NCS stackOverflow 19.02.2025 Технология обнаружения объектов в реальном времени становится все более востребованной в различных областях - от систем безопасности до автономных транспортных средств. Особый интерес представляет. . .	где chromium хранит пароли и как их обнулить в пожарном варианте jigi33 19.02.2025 Where is the chromium browser stores passwords for a sites где chromium-подобный браузер хранит пароли и как их обнулить в пожарном варианте (see screenshot)	howto get access to external internet resources with kinit jigi33 19.02.2025 Решение проблемы с необходимостью доп. авторизации по Керберос для автоотработки аутентификации на прокси-сервер (see screenshot)	Отслеживание автомобилей и определение скорости с OpenCV и Python на Raspberry Pi stackOverflow 19.02.2025 В этой статье мы рассмотрим создание системы отслеживания транспортных средств и определения их скорости с использованием компьютерного зрения и библиотеки OpenCV. Наше решение основано на принципе. . .	ENV (environments) valid paths in linux jigi33 19.02.2025 Environments paths (see screenshot)

Наверх