Создание сайтов и программирование

Платные услуги → работа на ПАСКАЛЬ и C/C++, решение задач студентам!



АвторСообщение



Сообщение: 1
Зарегистрирован: 16.01.12
Рейтинг: 0
ссылка на сообщение  Отправлено: 16.01.12 15:57. Заголовок: помогите с ошибками


{Даны две последовательности чисел a1, a2, ..., an и b1, b2, ..., bn. Сформируйте новые последовательности, элементы которых вычисляются по следующему правилу:
ai = max(ai, bi), bi = min(ai, bi), i = 1, 2, ..., n.}
unit unit8_18;
interface
procedure vved(var fin:text, var m:integer; var a:mas; filename:string);
procedure vived(var fout:text, m:integer, a:mas, filename:string);
function max(a:integer; b:integer);
function min(a:integer; b:integer);
implementation
procedure vved(var fin:text;var m:integer; var a:mas; filename:string);
var
i:integer;
begin
assign(fin,filename);
reset(fin);
read(fin,m);
for i:=1 to m do
read(fin,a);
close(fin);
end;
procedure vived(var fout:text;m:integer; a:mas; filename:string);
var
i:integer;
begin
assign(fout,filename);
rewrite(fout);
for i:=1 to m do
write(fout,a:5);
writeln(fout);
end;
close(fout);
end;
function max(a: integer; b: integer):integer;
begin
if (a > b) then
max := a
else
max := b;
end;
function min(a: integer; b: integer): integer;
begin
if (a < b) then
min := a
else
min := b;
end;
end.
program l8_18;
uses
crt, unit8_18;
const
n=10;
var
a:array[1..n] of integer;
b:array[1..n] of integer;
i,m:integer;
begin
clrscr;
vved(f,m,a,'l8_18in.txt');
min(a,b);
max(a,b);
vived(g,m,a,'l8_18out.txt');
readkey;
end.

Спасибо: 0 
ПрофильЦитата Ответить
Новых ответов нет


Ответ:
1 2 3 4 5 6 7 8 9
большой шрифт малый шрифт надстрочный подстрочный заголовок большой заголовок видео с youtube.com картинка из интернета картинка с компьютера ссылка файл с компьютера русская клавиатура транслитератор  цитата  кавычки моноширинный шрифт моноширинный шрифт горизонтальная линия отступ точка LI бегущая строка оффтопик свернутый текст

показывать это сообщение только модераторам
не делать ссылки активными
Имя, пароль:      зарегистрироваться    
Тему читают:
- участник сейчас на форуме
- участник вне форума
Все даты в формате GMT  3 час. Хитов сегодня: 1
Права: смайлы да, картинки да, шрифты да, голосования нет
аватары да, автозамена ссылок вкл, премодерация откл, правка нет



Форум открыт для решения вопросов, возникающих при попытке создать свой первый сайт. Обсуждаются вопросы, связанные с кодированием, дизайном и размещением сайтов в интернете (hosting).

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

Дополнительный раздел по программированию для PC ориентирован на школьников и студентов.

Поиск работы - база резюме и вакансий.

Форум

Форум помощи студентам - решение задач по начертательной геометрии, курсовые работы studentka.borda.ru


2007.06.11