IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> программы процедур и функций
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 10
Пол: Мужской
Реальное имя: СТАНИСЛАВ

Репутация: -  0  +


Привет
обращаюсь к вам с просьбой помоч в решении задачи:
Составить программу ввода одномерного массива. Программа выведет 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я. зарание оооооооогггггггррррооооомммммммннннооое СПАСИБО.

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

Сообщение отредактировано: volvo -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гуру
*****

Группа: Пользователи
Сообщений: 1 220
Пол: Мужской

Репутация: -  16  +


Цитата
Подскажите где можно скачать нормальную версию TURBO PASKALя. зарание

http://pascal.sources.ru/museum/bp7.htm
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Смотрю...
*****

Группа: Пользователи
Сообщений: 1 055
Пол: Мужской
Реальное имя: Пшеничный Алексей Анатольевич

Репутация: -  6  +


Цитата(Ozzя @ 17.04.2006 15:47) *

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


--------------------
Если что-то не делает того, что вы запланировали ему делать - это еще не означает, что оно бесполезно.
--------------------
Прежде, чем задать вопрос - Правила :: FAQ :: Поиск
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гуру
*****

Группа: Пользователи
Сообщений: 1 220
Пол: Мужской

Репутация: -  16  +


Цитата(APAL @ 17.04.2006 15:59) *

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

Тьфу ты nea.gif
Цитата
Borland Pascal v7.0 (размер: 1.29 Мб, загрузок: 12587)

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

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

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

СТАНИСЛАВ
var n:intege;

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

Сообщение отредактировано: Ozzя -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гость






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

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.


Цитата(Ozzя @ 17.04.2006 16:00)
У тебя и компиляцию не пройдет.

yes2.gif Причем проблемы начнутся ДО intege ... Уже при попытке одинаково назвать тип и программу будет ошибка...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Новичок
*

Группа: Пользователи
Сообщений: 10
Пол: Мужской
Реальное имя: СТАНИСЛАВ

Репутация: -  0  +


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

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


Ещё раз спосибо за помощ без вашего сайта не знаю что бы и делал.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Гуру
*****

Группа: Пользователи
Сообщений: 1 220
Пол: Мужской

Репутация: -  16  +


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


Цитата
Школа работы на IBM PC. Часть 2. Книга Сидорова М.Е. и Трушина О.В. Предназначена для тех, кто только начинает изучать программирование. Приведено краткое описание алгоритмического языка Турбо-Паскаль и приемы программирования на нем ряда задач по математике и физике.
http://pascal.net.ru/files/books/if2.zip

Цитата
Электронный самоучитель по Турбо Паскалю. Автор - Фаронов и этим всё сказано

http://pascal.net.ru/files/books/TurboPascal.zip
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 28.04.2017 15:13
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"