Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
gvgtffb
0 / 0 / 5
Регистрация: 21.03.2017
Сообщений: 58
#1

Выстроить формулировку задачи - Pascal

27.04.2017, 20:55. Просмотров 149. Ответов 1
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Program Name;
  Const m=50;
  Type Mas = Array [1..m] of Real;
  Var A    : Mas;
      i, N : Byte;
      S    : Real;
BEGIN
 Repeat
   Write('Введите N = ');
   ReadLn(N);
  Until N <= 20;
 For i := 1 to N dо 
    begin
      Write('A [ ',i,' ] =');
      ReadLn(A[i])   
    end;
  S:= 0; 
  For i := 1 to N do S := S+A[i]; 
  WriteLn;
  WriteLn('Вставьте сюда правильный комментарий', S:0:2);
  ReadLn
END.
Добавлено через 41 секунду
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
37
38
Program Name;
 Const m=80;  
 Var N, i, k : Integer;
         X, Y   : Array [1..m] of Real;
BEGIN
  Repeat
    Write('Введите N = ');
    ReadLn(N);
  Until N <= m;
  For i := 1 to N do
    begin
      Write('X[ ', i, ' ] = '); 
      ReadLn(X[i])
    end;
  k:=0;
  For i := 1 to N do
    If X[i]>0 then
      begin 
       k:=k+1; 
       Y[k]:=X[i]
      end;
  For i := 1 to N do
    If X[i]=0 then
      begin 
       k:=k+1; 
       Y[k]:=X[i]
      end;
  For i := 1 to N do
    If X[i]<0 then
      begin 
        k:=k+1;
       Y[k]:=X[i]
      end;
  Write('О т в е т : вставьте нужный текст');
  For i := 1 to N do Write(Y[i] : 0 : 2);
  WriteLn; 
  ReadLn
END.

http://www.cyberforum.ru/pascal/thread106217.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.04.2017, 20:55
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Выстроить формулировку задачи (Pascal):

Компоненты файла выстроить в заданном порядке
Хелп пожалуйста,нужно создать типизированный файл, компоненты которого...

Выстроить слова в предложении по возрастанию длины
посмотрите, пожалуйста. задание было выстроить слова в предложении по...

Отсортировать массив и выстроить его змейкой
Такая вот задача. дан натуральный целочисленный массив матрица(рандом). Нужно...

Выстроить в порядке возрастания и убывания элементы массива
2 задачи, решите пожалуйста. 1)дан линейный массив , выстроить в порядке...

Введенные с клавиатуры слова выстроить по длине от max к min
введенные с клавиатуры слова,выстроить по длине от max к min Добавлено через...

1
Skyer
75 / 59 / 47
Регистрация: 05.05.2013
Сообщений: 188
28.04.2017, 00:11 #2
Вам нужно по коду понять условие задачи? В первой задаче вводится N<=20, при вводе большего числа ввод будет повторяться, затем вводится массив (странно что размер массива 50, а в коде требуется ввести N<=20) и считается сумма элементов массива

Добавлено через 4 минуты
Во второй программе также вводится количество элементов, затем вводится массив, после данный массив копируется в другой по правилу: сначала положительные, затем нулевые и затем отрицательные элементы исходного массива,после чего выводится новый массив
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.04.2017, 00:11
Привет! Вот еще темы с решениями:

Дан массив размера n на m выстроить ряды в порядке возрастания по 2 столбцу
Дан массив размера n на m выстроить ряды в порядке убыванию по 2 столбцу

Дан одномерный массив, выбрать из него все нечётные цифры и выстроить по возростанию
Помогите решить задачи. 2)Дан одномерный массив, выбрать из него все нечётные...

Не понимаю формулировку задачи
Задание. Предыдущее задание с формулировкой суммы. Построить синтаксический...

не понимаю формулировку
Подскажите что надо найти в этой задаче. Мне дали вариант и список задач и мне...


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

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

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