616

Теория и практика использования одномерных массивов. Строки

Конспект

Информатика, кибернетика и программирование

Описать одномерный массив размерностью 10. Заполнить массив случайными значениями из диапазона от 1 до 10. Вывести массив на экран. Вывести массив задом наперед. Отсортировать массив по возрастанию методом пузырька.

Русский

2013-01-06

84.5 KB

8 чел.

Теория и практика использования одномерных массивов.

Общее задание №1: Описать одномерный массив размерностью 10. Заполнить массив случайными значениями из диапазона от 1 до 10. Вывести массив на экран. Вывести массив задом наперед

Код Программы:

program one;

const

 m = 10;

var

 a: array[1..m] of integer;

 i: integer;

begin

 randomize;

 for i := 1 to 10 do                                                           //заполняем  

                                                                                            массив случайными значениями

 begin

   a[i] := random(9) + 1;

   write(a[i]);                                                                   //выводим массив

 end;

 writeln;

 for i := 10 downto 1 do

   write(a[i]);                                                                   //выводим массив задом наперед

end.

Результаты выполнения программы:

 


Общее задание №2: Описать одномерный массив размерностью 8. Заполнить массив случайными значениями из диапазона от 1 до 10. Отсортировать массив по возрастанию методом «пузырька».

Код программы:

program two;

const

 m = 8;

var

 a: array[1..m] of integer;

 i, j, k: integer;

begin

 randomize;

 for i := 1 to 8 do                                                             //заполняем  

                                                                                            массив случайными значениями

 begin

   a[i] := random(9) + 1;                         

   write(a[i]);                                                                    //выводим массив

 end;

 writeln;

 for i := 1 to m - 1 do

   for j := 1 to m - i do

     if a[j] > a[j + 1] then begin                                       //сортируем элементы массива

       k := a[j];

       a[j] := a[j + 1];

       a[j + 1] := k;

     end;

 for i := 1 to m do

   write(a[i]);                                                                    //выводим отсортированный

                                                                                            массив

end.

Результаты выполнения программы:

 


Общее задание №3: Описать одномерный массив размерностью 14. Заполнить массив случайными значениями из диапазона от 5 до 20. Каждый элемент, имеющий четный номер, обнулить. Каждый элемент, имеющий четное значение, увеличить в 2 раза.

Код программы:

program three;

var

 a: array[1..14] of integer;

 i: integer;

begin

 randomize;

 for i := 1 to 14 do                                                           //заполняем  

                                                                                            массив случайными значениями

 begin

   a[i] := random(16) + 5;

   write(a[i], ' ');                                                               //выводим массив

 end;

 writeln;

 for i := 1 to 14 do

 begin

   if i mod 2 = 0 then a[i] := 0;                                       //проверяем четность индексов

   if a[i] mod 2 = 0 then a[i] := a[i] * 2;                        //проверяем четность элементов

   write(a[i], ' ');                                                              //выводим измененный массив

 end;

end.

Результаты выполнения программы:

 


Индивидуальное задание №1: Построчно вывести матрицу 5х5, вторую матрицу заполнить случайными числами <100. Сформировать третью матрицу: каждый ее элемент принимает значение «истина», если элемент первой матрицы больше соответствующего элемента второго, иначе «ложь». Код программы:

program one;

uses crt;

var

a,b,c: array[1..5,1..5] of integer;

i,k: integer;

begin

write('Ввод первой матрицы:');

for i:=1 to 5 do begin

for k:=1 to 5 do begin

write('a[',i,',',k,'] = ');

read(a[i,k]);

end;

end;

writeln('Первая матрица:');

for i:=1 to 5 do begin

for k:=1 to 5 do begin

write(a[i,k]:4);

end;

writeln;

end;

writeln('Вторая матрца:');

for i:=1 to 5 do begin

for k:=1 to 5 do begin

b[i,k]:=random(99);

write(b[i,k]:4);

end;

writeln;

end;

for i:=1 to 5 do begin

for k:=1 to 5 do begin

if a[i,k]>b[i,k] then c[i,k]:=1

else c[i,k]:=0;

end;

end;

writeln('Конечная матрица:');

for i:=1 to 5 do begin

for k:=1 to 5 do begin

write(c[i,k]:4);

end;

writeln;

end;

end.

Результаты выполнения программы:

Индивидуальное задание №2: Случайным образом заполнить матрицу символов 6х6. Сформировать вектор: если в строке матрицы строчных латинских букв больше цифр, то его элемент вектора «истина, иначе «ложь».

Код программы:

Program two;

uses crt;

var a: array [1..6,1..6] of char;

   b: array [1..6] of boolean;

   i,j,r,kz,kb: byte;

   c: char;

 

begin

writeln('Дана матрица');

for i:=1 to 6 do

   begin

   kz:=0; kb:=0;

   for j:=1 to 6 do

       begin

       r:=random(2);                                                 //будет цифра или буква

       if r=0 then c:=chr(random(25)+97) else c:=chr(random(10)+48);

       a[i,j]:=c;

       write(a[i,j],' ');

       if a[i,j] in ['0'..'9'] then inc(kz) else inc(kb);

       end;

   b[i]:=kb>kz;

   writeln;

   end;

writeln('Вектор');

for i:=1 to 6 do

   write(b[i],' ');

end.

Результаты выполнения программы:


Строки.

Общее задание №1: Заполнить и вывести на экран массив из всех латинских букв, как прописных, так и строчных.

Код программы:

program one;

var

 ar: array[1..150] of char;

 i: integer;

begin

 for i := 65 to 90 do                                                                     //заполняем массив

                                                                                                        прописными лат. буквами

 begin

   ar[i] := chr(i);

   write(ar[i], ' ');  

 end;

 writeln;

 for i := 97 to 122 do                                                                  //заполняем массив

                                                                                                        строчными лат. буквами

 begin

   ar[i] := chr(i);

   write(ar[i], ' ');

 end;

 readln;

end.

Результаты выполнения программы:


Общее задание №2: Заполнить и вывести на экран массив из латинских букв и случайных чисел. Определить количество гласных букв, количество согласных и количество цифр.

Код программы:

program two;

var

 l: string;

 i, si, ci, gi: integer;

 g, c, s: set of char;

begin;

 c := ['0'..'9'];                                                                                            //множество

                                                                                                                    цифр                                                             

 g := ['a', 'e', 'i', 'o', 'u', 'y', 'q'];                                                                //множество

                                                                                                                    гласных

 s := ['z', 'x', 'c', 'v', 'b', 'n', 'm', 's', 'd', 'f', 'g', 'h', 'k', 'j', 'l', 'w', 'r', 't', 'p']; // множество

                                                                                                                     согласных

 writeln('vvedite stroku');

 readln(l);

 for i := 1 to length(l) do

 begin

   if l[i] in c then inc(ci);                                                                        //если элемент

                                                                                                                  входит в множество,

                                                                                                                  увеличиваем счетчик

   if l[i] in g then inc(gi);

   if l[i] in s then inc(si);

 end;

 writeln('chislo cifr ', ci);

 writeln('chilso glasnih ', gi);                                                                //выводим результаты

 writeln('chislo soglasnih ', si);

 readln;

end.

Результаты выполнения программы:

 


Общее задание №3: Дана строка из нескольких слов, вводимая пользователем с клавиатуры. Удалить в строке все пробелы.

Код программы:

program three;

var

 a, i: integer;

 str: string;

begin

 writeln(‘vvedite stroku’);                                                              //вводим строку

 readln(str);

 while pos(' ', str ) <> 0 do

   delete(str, pos(' ', str), 1);                                                            //удаляем пробелы в

                                                                                                             строке

 writeln(str);                                                                                     //выводим новую строку

end.

Результаты выполнения программы:

 


Индивидуальное задание №1. Дана строка. Вывести строку, содержащую те же символы, но расположенные в обратном порядке.

Код программы:

Program one;

var

 st: string;

 i,l: byte;

 sub: char;

Begin

 Write('Введите строку: ');

 ReadLn(st);

 l:=length(st);

 For i:=1 to l div 2 do

   Begin

     sub:=st[i];

     st[i]:=st[l-i+1];

     st[l-i+1]:=sub;

   End;

 WriteLn('Новая строка: ',st);

 ReadLn

End.

Результат выполнения программы:


Индивидуальное задание №2: Даны строки S, S1 и S2. Заменить в строке S первое вхождение строки S1 на строку S2.

Код программы:]

program str;

Var

 s,s1,s2: string;

 x: byte;

Begin

 Write('введите строку S: ');

 ReadLn(s);

 Write('введите строку S1: ');

 ReadLn(s1);

 Write('введите строку S2: ');

 ReadLn(s2);

 x:=pos(s1,s);

 Delete(st,x,length(s1));

 Insert(s2,s,x);

 WriteLn('новая строка: ',s);

 ReadLn

End.

Результат выполнения программы:


 

А также другие работы, которые могут Вас заинтересовать

31714. Загальні поняття про особистість 49 KB
  В особистості немовби концентруються особливості суспільства основні його риси. Тому зрозуміти життя особистості можна тільки розглядаючи її у конкретних суспільних умовах в діяльності та стосунках з іншими людьми аналізуючи її соціальний статус та місце в суспільних відносинах. Усі особистості індивіди але не кожен індивід особистість. Паригіна модель особистості котра повинна зайняти місце в системі психології припускає поєднання двох підходів: соціологічного й загальнопсихолоігчного.
31715. ХАРАКТЕРИСТИКА МЕТОДІВ СОЦІАЛЬНОЇ ПСИХОЛОГІЇ 105 KB
  Метод спостереження може використатися як один із центральних самостійних методів дослідження. Метод спостереження здійснюється також з метою збору первинного матеріалу дослідження а також для контролю отриманих емпіричних даних. Класифікація спостереження виконується на різних підставах.
31716. Соціалізація старшокласників у школі 89.5 KB
  Ціннісні орієнтації референтної групи істотною мірою визначають соціальнопсихологічне обличчя підлітка. Оскільки група єдина площина соціальнопсихологічного досвіду в якій може проявити себе підліток яку він може засвоїти й через яку пізнати сукупність суспільних відносин то саме група стає формівною силою в соціалізації підлітка. Тут надзвичайно суттєвим є питання про те що визначає референтну значущість тієї чи іншої групи в очах підлітка або навпаки сприяє її зниженню.
31717. Структура педагогічної психології 35.5 KB
  До кожної теми подано список літератури щоб читач міг поперше більш докладно вивчити певний аспект теми яка його зацікавила подруге мав уявлення та добре орієнтувався у працях авторів які займаються проблемами та дослідженнями в галузі психології навчання та виховання. Предмет і задачі педагогічної психології Предметом педагогічної психології є психологія навчання психологія виховання психологія вчителя та педагогічної діяльності. Основний зміст педагогічної психології складають психологічні закономірності процесів навчання та...
31718. Загальна характеристика процесу виховання 43.5 KB
  Соціальня ситуація розвитку особистості Становлення людини як індивіда та особистості за Л. Виготським передбачає діалектичну взаємодію двох відносно автономних однак нерозривно пов'язаних процесів розвитку природного і соціального. Кожному віку притаманна певна специфічна соціольна сипгуаціярозвитку тобто особливе співвідношення внутрішніх процесів розвитку і зовнішніх умов яке є типовим для кожного вікового етапу зумовлює динаміку психічного розвитку протягом відповідного вікового періоду і нові якісно своєрідні психологічні утворення...
31719. Формування моральної свідомості 39 KB
  Для періоду дитинства взагалі характерне засвоєння моральних норм і перетворення останніх на регулятори поведінки та діяльності дитини через наслідування відповідних дій дорослих. 3 погляду педагогіки це орієнтація на максимальне усвідомлення у межах вікових психологічних можливостей дитиною моральних вимог що їх постійно висуває перед нею життя орієнтація на природну творчість дитини. У моральній свідомості учнів розрізняють два взаємопов'язаних рівні: теоретичний система моральних знань того чи іншого рівня узагальненості та рівень...
31720. Соціально-психологічні аспекти виховання 37 KB
  Такі групи називають референтними. Референтні групи можуть бути як реальними так і уявними але особистість завжди орієнтується на їх цінності і стандарти як на еталонні зразки своєї поведінки завжди прагне до визнання з їх боку. Якщо індивід реально входить до складу референтної групи то це створює психологічно сприятливі умови для успішного розвитку особистості в певному напрямку останній зовсім не обовязково має співпадати зі загальною стратегією виховання особливо коли референтній групі притаманна асоціальна спрямованість.
31721. Загальна характеристика процесу учіння 23.5 KB
  Загальна характеристика процесу учіння Учіння виявляється там де дії людини скеровуються свідомою метою засвоїти певні знання навички вміння форми поведінки і діяльності коли субєкт діє з метою засвоєння нового досвіду. Зміст учіння гностична пізнавальна діяльність на основі пізнавальних психічних процесів за допомогою перцептивних мнемічних інтелектуальних імажинативних дій. Існує 3 основних групи мотивів учіння за їх джерелом: Внутрішні зумовлені структурою потреб людини.