|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
21.05.2008, 14:16 | #1 |
Пользователь
Регистрация: 16.05.2008
Сообщений: 12
|
Ссылочные типы данных. Динамическая память/HELP!!
Составить программы решения задач с применением указателей и динамической памяти (!!!статические переменные не использовать!!!).
1)Напишите программу которая вводит с клавиатуры 20 реальных чисел, организовывает их хранение в одномерном массиве, а затем определяет индекс и значение максимального элемента массива. Результат выдаётся на экран пользователя. 2)Дана матрица целых чисел размером 4x4. Определите сумму элементов расположенных выше главной диагонали. Результат вывести на экран монитора. Вот решение прог без применения динюпамяти и ссылочного типа данных: 1)Uses crt; Var I,s:integer; A:array[1..20] of integer; Begin Clrscr; For i:=1 to 20 do begin Writeln(‘vvedite a[‘,I,’]’); Readln(a[i]); S:=0; End; Fot i:=1 to 20 do begin If a[i]>s then s:=I; End; Writeln(‘maximalniy element’,a[s],’index=’,s); End. 2)Uses crt; Var I,j,s:integer; A:array[1..4,1..4] of integer; Begin Clrscr; Randomize; S:=0; For i:=1 to 4 do For j:=1 to 4 do A[I,j]:=random(10); For i:=1 to 4 do For j:=1 to 4 do Write(a[I,j];writeln; End; For i:=1 to 4 do For j:=1 to 4 do If i<j then s:=s+a[I,j]; Writeln(‘s=’,s); End. исправте пожалуйста |
22.05.2008, 08:42 | #2 |
Пользователь
Регистрация: 16.05.2008
Сообщений: 12
|
Я вознагражу
|
22.05.2008, 09:03 | #3 | |
Участник клуба
Регистрация: 12.10.2007
Сообщений: 1,204
|
Цитата:
Код:
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Исправте программу.Ссылочные типы данных. Динамическая память | ромка) | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 30.05.2008 04:24 |
Текстовый редактор (динамическая память) | quf | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 21.04.2008 16:59 |
Динамическая память | MadDog__ | Помощь студентам | 2 | 22.11.2007 00:05 |
Типы данных??? | Рустам | Общие вопросы Delphi | 10 | 08.11.2007 08:03 |