Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 20.01.2014, 18:18   #1 (permalink)
Andrey7284
Новичок
 
Регистрация: 20.01.2014
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Паскаль. Ручной ввод

Ребят помогите пожалуйста.
Сделал программу, в ней массив из 20 чисел вводится автоматически, как сделать так что бы я его вводил вручную?

вот программа:

program laba1_19;
Uses crt;
const n=20;
type mas=array[1..n]of integer;
var a :mas;
max,min,r,i:integer;
procedure vvod(var a:mas);
var i:integer; {индекс (номер) элемента массива}
ch: char; {переменная для хранения кода символа нажатой клавиши}
begin

TextColor (black); {цвет символов}

ClrScr; {очистка экрана}
gotoxy(20,3); {вывод текста в указанном месте экрана}

Writeln('ВАШЕМУ ВНИМАНИЮ ПРЕДСТАВЛЯЕТСЯ ПРОГРАММА,');
gotoxy(13,4);
Writeln('КОТОРАЯ ОПРЕДЕЛЯЕТ МАКС. И МИН. ЧИСЛА В МАССИВЕ ИЗ 20 ЧИСЕЛ,');
gotoxy(7,5);
Writeln('И ВЫЧИСЛЯЕТ РАЗНОСТЬ МЕЖДУ НИМИ ЗАМЕНЯЯ ЕЮ ЧЕТНЫЕ ЭЛЕМЕНТЫ МАССИВА ');
gotoxy(35,6);
textattr:=green;
Writeln('ВНИМАНИЕ!');
Textattr:=white;
gotoxy(21,7);
Writeln('Размерность данного массива должна быть');
gotoxy(21,8);
Writeln('в интервале от 2 до 100!');
gotoxy(40,12);
textattr:=yellow;
Writeln('');
gotoxy(40,13);
Writeln('');
gotoxy(49,14);
Writeln('');
gotoxy(40,15);
Writeln('.');
gotoxy(20,24);
textattr:=white;
Writeln('Нажмите любую клавишу для продолжения…');
Ch:=readkey; {считывание символа с клавиатуры}
ClrScr;
for i:=1 to n do
a[i]:=random(100);
end;

procedure vivod(var a:mas);
var i:integer;
begin
for i:=1 to n do
write(a[i],' ');
end;

Begin
vvod(a);
Writeln('Исходный массив');
vivod(a);
max:=0;
min:=30;
for i:=1 to n do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
writeln;
writeln('Max= ',max,' Min= ',min);

r:=max-min;
for i:=1 to n do
if (i mod 2)=0 then a[i]:=r;
writeln ('Результат');
vivod(a);
End.
Andrey7284 вне форума   Ответить с цитированием

Старый 20.01.2014, 18:18
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Решение проблемы так же зависит от просмотра аналогичных топиков

Имеется ручной генератор, как сделать, чтобы из него выходил постоянный ток?
Голосовой ввод в Word 2010
Ручной листогиб
Ручной протез, распечатанный на 3D принтере

Старый 20.01.2014, 18:21   #2 (permalink)
nml
Member
 
Аватар для nml
 
Регистрация: 15.08.2013
Адрес: Minsk
Сообщений: 139
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 713
По умолчанию

ClrScr;
for i:=1 to n do
begin
Write('Введите ',i:2, '-й элемент:');
Readln(a[i]);
end;
end;
nml вне форума   Ответить с цитированием
Старый 20.01.2014, 18:23   #3 (permalink)
Andrey7284
Новичок
 
Регистрация: 20.01.2014
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

А куда это вставить и вместо чего?
Andrey7284 вне форума   Ответить с цитированием
Старый 20.01.2014, 18:25   #4 (permalink)
Andrey7284
Новичок
 
Регистрация: 20.01.2014
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

а все понял)
спасибо
Andrey7284 вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 01:19.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.