Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Кирилл1000
1 / 1 / 0
Регистрация: 05.05.2015
Сообщений: 60
#1

Убрать последний проход цикла WHILE - Pascal

01.10.2015, 15:28. Просмотров 235. Ответов 5
Метки нет (Все метки)

Сделал задачу, но она суммирует ненужный последний элемент. Как убрать этот элемент?
Для теста введите:
3
3 4 5
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
program Project1;
 
{$APPTYPE CONSOLE}
 
{$R *.res}
 
uses
  System.SysUtils;
var
 arr: array[1..10000] of integer;
 i,j,s,n: integer;
 k,q,s1,w:integer;
begin
 s:=0;
 s1:=0;
 writeln('Введите кол-во элементов элементов');
 readln(n);
 Writeln('Введите элементы массива');
  for i:=1 to n do
   read(arr[i]);
 writeln;
       Randomize;
 
  while  s <= 100 do
    begin
     j:= 1 + Random(N);
     write(Arr[j], ' ');
     s:=s+arr[j];
    end;
 
    writeln;
  writeLn('Длина  =  ', s);
 
    readln;
    readln;
end.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.10.2015, 15:28
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Убрать последний проход цикла WHILE (Pascal):

Вывод результата в теле цикла и за пределами цикла??? - Pascal
Вывод результата в теле цикла и за его пределами: 1. как это влияет на результат? 2. где про это можна почитать? Спасибо:)

Zc.pas(16) : Параметр цикла for в PascalABC.NET должен описываться в заголовке цикла - PascalABC.NET
program Zc; uses crt; const c=100; var a:array of integer; n,i,k,s:integer; begin clrscr; randomize; repeat ...

Нельзя изменять значение переменной цикла внутри этого цикла - PascalABC.NET
function factorial(x:integer):integer; begin var i,var1:integer; for i:=1 to x do begin var1:=1; var1:=var1*i; i:=i+1; end; ...

Показать, что любой оператор цикла while можно записать с помощью цикла repeat - PascalABC.NET
Показать, что любой оператор цикла с предусловием можно записать с помощью условного оператора и оператора цикла с постусловием.

Создание программы, отыскивающей проход по лабиринту - PascalABC.NET
Создать программу, отыскивающую проход по лабиринту. Лабиринт представляется в виде матрицы, состоящей из квадратов. Каждый квадрат либо...

За один проход цикла найти два максимальных значения среди всех данных и удалить их - Turbo Pascal
Задача: За один проход цикла найти два максимальных значения среди всех данных и удалить их. Затем добавить в начало данных число, равное...

5
tigerKR
Заблокирован
01.10.2015, 15:35 #2
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
если последний элемент не нужен, то после цикла сделай
Pascal
1
s:=s-arr[j];
0
Кирилл1000
1 / 1 / 0
Регистрация: 05.05.2015
Сообщений: 60
01.10.2015, 15:38  [ТС] #3
Спасибо!
1
Puporev
Модератор
54027 / 41660 / 14737
Регистрация: 18.05.2008
Сообщений: 97,944
01.10.2015, 17:31 #4
Pascal
1
while  s < 100 do
0
Кирилл1000
1 / 1 / 0
Регистрация: 05.05.2015
Сообщений: 60
02.10.2015, 06:44  [ТС] #5
Нет, не выполняются нужные условия. В первую очередь это делал.
0
Puporev
Модератор
54027 / 41660 / 14737
Регистрация: 18.05.2008
Сообщений: 97,944
02.10.2015, 07:11 #6
А что Вы вообще хотите получить?
0
02.10.2015, 07:11
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.10.2015, 07:11
Привет! Вот еще темы с ответами:

Поменять местами в каждом столбце матрицы последний положительный и последний отрицательный элементы. - Turbo Pascal
нужно составить программу по заданию: Поменять местами в каждом столбце матрицы последний положительный и последний отрицательный элементы....

Поменять местами в каждом столбце матрицы последний положительный и последний отрицательный элементы - Turbo Pascal
Поменять местами в каждом столбце матрицы последний положительный и последний отрицательный элементы.

Циклы. Вычисление факториала f=n! описать с помощью цикла с предусловием и цикла с постусловием. - Turbo Pascal
1) Вычисление факториала f=n! описать с помощью цикла с предусловием и цикла с постусловием; сделать проверку на отрицательность n ...

Первый проход цикла пустой - PHP БД
Есть некоторый код do { if ( $i == 4 ) { echo '&lt;/tr&gt;&lt;tr&gt;'; $i = 0; } ?&gt; &lt;td align=&quot;center&quot;...


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

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru