Версия для печати темы

Автор: СТАНИСЛАВ 17.04.2006 17:48

Привет
обращаюсь к вам с просьбой помоч в решении задачи:
Составить программу ввода одномерного массива. Программа выведет MAX элемент одномерного массива целых чисел в виде процедур и функций, оформить блок операторов выполняющих ввод массива с клавиатуры. А также нужно максимальный элемент поставить на первое место а все остальные в убывающей последовательности.
Я начал решение задачи но доделать не могу. помогите исправить ошибки и построить блок схему

program a;
Type a=array[1...10] of integer;
var x:a;k:integer;
procedure Massik (k:integer);
var n:intege;
begin
for n:=1to k do
begin 
write ('ввести i, элементов массива');
readln (x[n]);
end;
end;
function maxE1 (k:integer ,x:a:integer, var j, max:integer);
begin
max:=x[1];
for j:=2 to k 
begin
if x[j]>max then maxE1:=x[j];
end;
end;
writeln ('укажите количество элементов не более 10');
readln (x);
massiv(k,x);
writeln ('максимал. элемент,' maxE1(k,x));
end.

простите за бред но пожалуйста помогите, или помогите решить другую задачу которую я писал раньше на форуме. Подскажите где можно скачать нормальную версию TURBO PASKALя. зарание оооооооогггггггррррооооомммммммннннооое СПАСИБО.

Тегами пользуемся...

Автор: Ozzя 17.04.2006 18:47

http://pascal.sources.ru/museum/bp7.htm

Автор: APAL 17.04.2006 18:59

Считаю не этично давать ссылку на чужой сайт, когда это же можно найти и на нашем!
http://pascal.dax.ru/?download

Автор: Ozzя 17.04.2006 20:00

Тьфу ты

Вот этот обгрызок, что ли?

Я дал ссылку на полную версию Borland Pascal with Objects v7.0.
Для меня нормальной версией является полная.

Offtop:
Блин, на том сайте наехали за ссылки на этот сайт. Теперь здесь наезд за ссылку на тот сайт.


СТАНИСЛАВ

var n:intege;

Вряд ли ты что-то начинал.
У тебя и компиляцию не пройдет.

Автор: volvo 17.04.2006 20:07

СТАНИСЛАВ, ты бы книжку какую-нибудь по Паскалю прочитал, чтоб хотя бы с синтаксисом разобраться...

type
  a = array[1..10] of integer;

procedure Input(var x: a; n: integer);
var i:integer;
begin
  for i := 1 to n do begin
    write('x[',i:2,'] = '); readln(x[i]);
  end;
end;

function max(var x: a; n: integer): integer;
var j, max_val: integer;
begin
  max_val := x[1];
  for j := 2 to n do
    if x[j] > max_val then max_val := x[j];
  max := max_val
end;

var
  x: a;
  k: integer;

begin
  writeln('n <= 10 : '); readln(k);
  Input(x, k);
  writeln('max = ', max(x, k));
end.

Причем проблемы начнутся ДО intege ... Уже при попытке одинаково назвать тип и программу будет ошибка...

Автор: СТАНИСЛАВ 17.04.2006 20:21

Спасибо что помогли во всём разобраться. У меня проблема с синтаксисом т.к. я ещё не установил Паскаль ну а теперь всё попрёт. А к стати есть и книга под авторством А.П.Шестаковаи и И.Г. Семакина называется "ОСНОВЫ ПРОГРАММИРОВАНИЯ" но в ней я плохо понимаю т.к. примеры там приводятся мудрённые и не понятные покрайней мере мне иещё большей части нашей группы, но теория там не плохо дана только за счёт неё что-то и пытаюсь сделать.

Может помоветуешь какую-нибудь книгу попроще с помощю которой легко можно научиться программировать


Ещё раз спосибо за помощ без вашего сайта не знаю что бы и делал.

Автор: Ozzя 17.04.2006 20:28

http://pascal.dax.ru/files/books/if2.zip


http://pascal.dax.ru/files/books/TurboPascal.zip