С Новым годом! Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal ABC Сумма квадратов всех чисел от 1 до N https://www.cyberforum.ru/ pascalabc/ thread697311.html
1. Составьте программу, вычисляющую сумму квадратов всех чисел от 1 до N.
Pascal ABC Определить, можно ли, переставив члены данной последовательности, получить геометрическую прогрессию
определить можно ли переставив члены данной последовательности получить геометрическую прогрессию
Pascal ABC Определить, принадлежит ли точка с координатами (х,у) заштрихованной области https://www.cyberforum.ru/ pascalabc/ thread697212.html Pascal ABC Подсчет суммы всех элементов в массиве помогите плииззз не могу разобраться дано масивa A составить программу подсчета суммы всех Элементов, находящийся между элементами A и A https://www.cyberforum.ru/ pascalabc/ thread697196.html
Дано трехзначное число. Найти число, полученное при прочтении его цифр справа налево Pascal ABC
Помогите сделать 3 задачи по Паскалю с блок-схемами. 2.Дано трехзначное число.Найти число, полученное при прочтении его цифр справа налево.
Pascal ABC Даны три числа, вывести на экран те, которые не принадлежат диапазону (-3,8;1,8) Помогите сделать 3 задачи по Паскалю с блок-схемами. 3.Даны три вещественных числа, вывести на экран те из них, которые не принадлежат диапазону (-3,8;1,8). https://www.cyberforum.ru/ pascalabc/ thread697164.html
Pascal ABC Определить плотность население в государстве. https://www.cyberforum.ru/ pascalabc/ thread697159.html
Помогите сделать 3 задачи по Паскалю с блок-схемами. 1. Известно количество жителей в государстве и площадь его территории. Определить плотность население в этом государстве. илья17, в следующий раз я вашу тему снова разделю, конечно.. Но и карточку выдам - за нарушение правил форума.
Составить программу, печатающую строку: «ABBCDD…Z» Pascal ABC
Помогите пожалуйста составить программу, печатающую строку: «ABBCDD…Z».
Pascal ABC Алгоритм нахождения квадратного корня из положительного числа x https://www.cyberforum.ru/ pascalabc/ thread697129.html
можно представить следующей рекуррентной последовательностью: y0 = (x+1)/2 yi = (yi-1 + x/yi-1) (формула Герона Александрийского). При заданном x определить n-ое приближение его квадратного корня. Помогите пожалуйста, догнать не могу как делается. Заранее благодарен!
Pascal ABC Неправильно находит МАХ https://www.cyberforum.ru/ pascalabc/ thread697075.html
Нужно вывести максимальный элемент для 3 матриц и его порядковый номер. Читать с файла. uses crt; const m=3; n=4; type mas=array of integer; var i,j,maxi,maxj,mini,minj:integer; var maxz,maxv,maxg:mas; var masz,masv,masg,rez:text; max1:integer;
Pascal ABC Определить количество положительных и отрицательных элементов матрицы
Дана матрица А, содержащая положительные и отрицательные элементы. 1) Определить в какой строке более одного отрицательного элемента и заменить элементы этой строки числом 5. Затем вывести матрицу. 2) Определить количество положительных и отрицательных элементов матрицы и записать их в одномерный массив. Вывести массив. как сделать эти условия в паскале.. не получается у меня воще...:cry:...
Pascal ABC Ошибка в коде https://www.cyberforum.ru/ pascalabc/ thread697049.html
Всем привет. нужна помощь. не могу в коде найти ошибку.. Задача: Дан двумерный массив,удалить из него первую из строк,сумма элементов которых не превышает некоторое заданное число Код: program mas1; const SS=123; var a: array of integer; i,j: integer;
3451 / 2389 / 2135
Регистрация: 04.12.2011
Сообщений: 3,966
14.11.2012, 13:42 0

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

14.11.2012, 13:42. Показов 2052. Ответов 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
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.11.2012, 13:42
Готовые ответы и решения:

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

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

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

Алгоритм и алгоритмизация: Определите, что будет напечатано в результате выполнения фрагмента программы
Помогитее решить Определите, что будет напечатано в результате выполнения фрагмента программы: ar...

3
14.11.2012, 13:42
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.11.2012, 13:42
Помогаю со студенческими работами здесь

Определить, что будет напечатано в результате выполнения программы
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...

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

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru