|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Помогите пожалуйста написать 2 программки на Delphi
1. Массивы
Даны действительные числа a1, a2, …an. Требуется домножить все члены последовательности a1, a2, …an на квадрат ее наименьшего члена, если ai<0, и на квадрат ее наибольшего члена, если аi>= 0 (1 < i < n). 2.Строки Составить программу преобразования натуральных чисел, записанных в римской нумерации, в десятичную систему счисления. Задачи нужно решить с использованием подпрограмм Заранее всем большое спасибо!!!!!!!!! |
#2
|
|||
|
|||
1. проход по массиву в 3х процках: поиск макс, поиск мин, умножение.
Код:
var A : Array Of Double; procedure GetMax : Double; var I : Integer; begin Result := 0; For I := Low(A) To High(A) Do If A[i] > Result Then Result := A[i]; end; procedure GetMin : Double; var I : Integer; begin Result := 0; For I := Low(A) To High(A) Do If A[i] < Result Then Result := A[i]; end; procedure Mult; var I : Integer; AMax, AMin : Double; begin AMax := Sqr(GetMax); AMin := Sqr(GetMin); For I := Low(A) To High(A) Do If A[i] > 0 Then A[i] := A[i] * AMax Else A[i] := A[i] * AMin; end; Ну заполнение массива и его вывод сама напишешь. 2. Напиши в каком виде предоставляется число (и какие из символов используются). Ну и соответсвие символов числам, а то, честно говоря, я не помню сколько будет в десятичной M и L. |