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

Задачу в Delphi переделать под C#

21.12.2014, 13:28. Показов 1206. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здравствуйте. Дельфи я не изучал, а задание нам препод дал сделать под с#.
В общем дано
Delphi
1
2
3
4
5
6
7
8
const
  MaxN = 30;
type
  ВещТип = record
             Знак : boolean;
             Мантисса, Порядок : real;
           end;
  список = array[1..MaxN] of вещтип;
Описать:
4.1 функцию MaxNeg(C) для нахождения минимального отрицательного числа из списка чисел С;
4.2 функцию MaxDi(C) для нахождения максимального порядка числа из списка вещественных чисел С;


Написать надо с использованием структур. Помогите пожалуйста, желательно, с комментариями
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
21.12.2014, 13:28
Ответы с готовыми решениями:

Готовую задачу, сделаную в Pascal нужно переделать под Delphi
Program dip; uses graph,crt,dos; label r1,r2,r3,r4,rm; var tim,pl,i:integer; key:char; ...

возможно ли переделать код алгоритма под Borland C переделать под Borland Delphi?
Подскажите возможно ли переделать код алгоритма под Borland C переделать под Borland Delphi? У меня есть исходник алгоритма шифрования SEAL...

Переделать задачу под С++ с рекурсией
Здравствуйте,нужно переделать данную задачу с паскаля на С++ с использованием рекурсии.Нужна помощь. Вот условие к ней Вычислить...

1
763 / 270 / 57
Регистрация: 13.12.2009
Сообщений: 1,110
21.12.2014, 14:28
Лучший ответ Сообщение было отмечено JaktensTid как решение

Решение

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
37
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
 
namespace MaxMin
{
    class Program
    {
        static void Main(string[] args)
        {
            int f = 0;
            int g = 0;
            double MaxNeg = 999999999.9;
            double MaxDi = -999999999.9;
            int MaxN = 30;
            double[] C = new Double[MaxN];
            Random r = new Random();
 
            Console.WriteLine("Массив случайных чисел");
            for (int i = 0; i < MaxN; i++)
            {
                int rint = r.Next(-50,50);
                C[i] = r.NextDouble() * rint;
                Console.WriteLine(i + " " +  " {0:F8} ", C[i] );
                if (C[i] < MaxNeg) { MaxNeg = C[i]; f = i; }
                if (C[i] > MaxDi) { MaxDi = C[i]; g = i; }
            }
            Console.WriteLine(" ");
            Console.WriteLine("MaxNed = " + MaxNeg + " порядковый № = " + f);
            Console.WriteLine("MaxDi = " + MaxDi + " порядковый № = " + g);
            Console.Read();
        }
    }
    
}
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
21.12.2014, 14:28
Помогаю со студенческими работами здесь

Переделать задачу под указатели
Здравствуйте! Никак не могу понять, каким образом данную задачу переделать под указатели так как напрямую к элементам не обращаюсь, если...

Переделать задачу с Pascal на Delphi
вот листинг, все работает, только необходимо перевести (7 элеметнов, ручной ввод, в строку, разделяя ++, сумма отрицательных эл-в, поменять...

Переделать задачу под бинарные файлы
Дан файл, компонентами которого являются массивы действительных чисел. Вычислить для каждого массива число отрицательных элементов....

Переделать задачу под другой тип данных
Нужно переделать задачу под тип string Программа заменяет букву в начале каждого слова на букву верхнего регистра ...

Переделать задачу под множества - поиск различных букв текста
Слова в тексте разделены пробелами. Сколько разных букв встречается в тексте? var m : set of char; s : string; i, k : byte; begin ...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Переходник USB-CAN-GPIO
Eddy_Em 20.03.2026
Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого
Argus19 18.03.2026
Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++
8Observer8 17.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip
Символические и жёсткие ссылки в Linux.
algri14 15.03.2026
Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора
ФедосеевПавел 14.03.2026
Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию
anaschu 13.03.2026
прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++
8Observer8 10.03.2026
Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE
8Observer8 10.03.2026
Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru