Форум программистов, компьютерный форум, киберфорум
C# для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.82/11: Рейтинг темы: голосов - 11, средняя оценка - 4.82
0 / 0 / 1
Регистрация: 24.10.2012
Сообщений: 252

Определить, последовательность - возрастает или убывает

23.04.2014, 09:19. Показов 2030. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Помогите перевести код из Pascal в С# для консольного приложения
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
uses TpCrt;
  type
    pPosl = ^Posl;
    Posl = record
      R    : Real;
      Next : pPosl;
    end;
 
  var
   B,C : pPosl;
    k,t : Real;
    i   : Byte;
 
  Begin
    Write('Введите коэффициент последовательности p=p+k :'); Readln(k);
    New(B); C:=B; B^.R:=0; t:=7;
    Writeln('Последовательность :');
    for i:=1 to 100 do begin
      New(C^.Next); C:=C^.Next; C^.R:=t+k; t:=C^.R;
      write(t:8:3);
    end;
    c^.Next:=nil;
    if B^.Next^.R<C^.R then Writeln('последовательность возрастает')
                       else Writeln('последовательность убывает');
    repeat
      c:=b^.Next;
      Dispose(b); b:=c;
    until b=nil;
    Readln;
  End.
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
23.04.2014, 09:19
Ответы с готовыми решениями:

Проверить убывает или возрастает последовательность (не через массив)
Всем привет. Помогите, пожалуйста, изменить программу. Суть такая: Дана СЛУЧАЙНАЯ последовательность из 10 чисел - числа вводить...

Проверить возрастает/убывает последовательность чисел и вывести начала/конец и саму последовательность
Условие в коментариях кода. Суть я понимаю, набросок кода сделал, но вот как сделать, чтобы определялось все нормально, а не так криво ,...

Определить, возрастает ли последовательность
Определить является ли заданная последовательность (данная в файле input.txt) возрастающей. Я решала эту задачу, переписав эту...

1
7804 / 6568 / 2988
Регистрация: 14.04.2014
Сообщений: 28,705
23.04.2014, 10:53
Лучший ответ Сообщение было отмечено SpartanecLexa как решение

Решение

C#
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
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
 
namespace ConsoleApplication_C_sharp
{
    class Program
    {
        static void Main(string[] args)
        {
            LinkedList<float> lst = new LinkedList<float>();
 
            float k, t;
            int i;
 
            Console.Write("Введите коэффициент последовательности p=p+k : ");
            k = Convert.ToInt32(Console.ReadLine());
            lst.AddLast(0);
            t = 7;
            Console.WriteLine("Последовательность");
            for (i = 1; i <= 100; i++)
            {
                lst.AddLast(t + k);
                t += k;
                Console.Write(t); Console.Write("  ");
            }
            LinkedListNode<float> node = lst.First;
            LinkedListNode<float> lastnode = lst.Last;
            if (node.Next.Value < lastnode.Value) Console.WriteLine("последовательность возрастает");
            else Console.WriteLine("последовательность убывает");
            Console.ReadLine();
        }
    }
}
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
23.04.2014, 10:53
Помогаю со студенческими работами здесь

Возрастает ли последовательность введенных чисел?
Дана последовательность действительных чисел a1,a2,a3,… an Выяснить, будет ли она возрастающей.

Цикл с параметром. Возрастает ли последовательность?
Буду благодарна тем, кто поможет. Программа запрашивает N целых чисел и сообщает, образуют ли они возрастающую последовательность.

Доказать что последовательность возрастает
Доказать что посл-ть возрастает x_n= ^^7 sqrt(n^2+2n+3) x_n+1 &gt; x_n Как это сделать? 1 курс. мат.анализ

Возастает или убывает h в точке x=1?
Пусть h(x) -- решение уравнения y'=x-y2 с начальными условиями x=1, y=2. Возастает или убывает h в точке x=1? Добавлено через 50...

Указать участки, в которых температура газа растёт или убывает
Нужно указать участки, в которых температура газа: а) растёт; б) убывает Не могу понять, ответ: а) 2-3 ; б) 4-1 или а) 1-2, 2-3 ;...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Реалии.
Hrethgir 01.03.2026
Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .
Реалии.
Hrethgir 01.03.2026
Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .
Ритм жизни
kumehtar 27.02.2026
Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка SDL3 и Box2D из исходников с помощью CMake и Emscripten
8Observer8 27.02.2026
Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru