Результат
Лабораторна робота № 3
Додати дві матриці розмірності m*n. Видати на екран 1-у, 2-у, 3-ю матриці.
{Текст програми №3}
Program matrix;
uses crt;
const
m=3; n=2;
Var
b,a:array[1..m,1..n] of integer;
i,j:integer;
begin
clrscr;
writeln('введите элементы');
for i:=1 to m do
for j:=1 to n do
begin
writeln('a[',I,'][',j,']'); readln(a[i,j]);
end;
writeln; writeln;
writeln('введите элементы');
for i:=1 to m do
for j:=1 to n do
begin
writeln('b[',I,'][',j,']'); readln(b[i,j]);
end;
writeln; writeln;
for i:=1 to m do
begin
for j:=1 to n do
write(a[i,j]:6);
writeln;
end;
writeln; writeln;
for i:=1 to m do
begin
for j:=1 to n do
write(b[i,j]:6);
writeln;
end;
writeln; writeln;
for i:=1 to m do
begin
for j:=1 to n do
write((a[i,j]*b[I,j]):6);
writeln;
end;
end.
Результат
Лабораторна робота № 4
Програма повинна зчитувати з клавіатури у масив слова до тих пір доки не буде введене слово з чотирьох букв. На екран вивести кількість слів з непарною кількістю букв у слові.
{Текст програми №4}
Uses CRT;
Var
mass_sliv : array [1..25] of string [15];
kilk_bykv, kilk _sliv_neparn,i : Byte;
Begin
clrscr;
kol_sliv_neparn:=0; i:=0;
Repeat
i:=i+1;
Write(‘Введіть слово’); Readln(mass_sliv[i]);
kilk_bykv:=length(mass_sliv[i]);
if (kilk_bykv mod 2 <>0)
then kilk_sliv_neparn:= kilk_sliv_neparn+1;
Until kilk_bykv <> 4;
Writeln(' Kількість слів з непарною кількістю букв ',kilk_sliv_neparn);
End.
Результат роботи програми
5. Зберегти текст програми у файлі.
Натиснути функціональну клавішу F2 – з’явиться діалогове вікно, в яке потрібно ввести ім’я файла, наприклад DS, і натиснути на клавішу Enter.
6. Відкомпілювати програму, тобто перевірити синтаксичні помилки та перевести в машинні коди, натиснувши комбінацію клавіш Alt+F9. Якщо при написанні тексту програми не було допущено синтаксичних помилок, то на екрані з’явиться мигаюче повідомлення Рress any key, після чого ми натискаємо на будь-яку клавішу.
7. Запускаємо програму на виконання – використовуємо комбінацію клавіш Ctrl+F9.
8. Для перегляду виконаної програми потрібно натиснути комбінацію клавіш Ctrl+F5.
9. Для перевірки працездатності будь - якої програми необхідно провести дії, описані в пунктах 3-7, але набирати текст інших програм (по черзі і по одній), наведених вище, а також уводити інші імена.
Майоров С.А. Введение в микроЭВМ. – Л.: Машиностроение, 1988. – 304 с.
Вирт Н. Алгоритмы и структуры данных: Пер. с англ. – М.: Мир, 1989. – 360 с.
Фигурнов Ф.Е. IBM для пользователей. – М.: Финансы и статистика, 1994.
Попов Ю.Д. Апаратні засоби та операційна система персональних комп’ютерів фірми IBM: Навчальний посібник для студентів гуманітарних факультетів. – К.: ВПЦ «Київський університет», 1997. – 52 с.
Баженов В.А. Інформатика. Комп’ютерна техніка. Комп’ютерні технології: Підручник. – К.: Каравела, 2004. – 464 с.
Леонтьев В.П. Новейшая энциклопедия персонального компьютера 2003. – М.: Олмапресс, 2003 – 957с.
Пасько В.И. Word 2000. – K.: ВНV, 1999. – 624 с.
Левченко О.М. Microsoft Word’97: швидше, більше, краще. – Львів: БаК, 1999. – 120 с.
Горлач В.М., Левченко О.М. Табличний процесор Microsoft Excel. – Львів: БаК, 1998. – 120 с.
Ратбон Э. Windows 95 для «чайников»: Пер. с англ. – 2-е изд. – К.: Диалектика, 1997. – 304 с.
Попов Ю.Д. Операційна система Microsoft Windows 95: Навчальний посібник для студентів усіх факультетів. – К.: ВПЦ «Київський унiверситет», 1998. – 28 с.
Кроуфорд Ш., Солкинд Н. Азбука Windows 98: Пер. с англ. – К.: Юниор, М.: ЭНТРОП, 1998. – 352 с.
Богумирский Б. Энциклопедия Windows 98. – СПБ.: Питер, 1998. – 844 с.
Клименко А., Нортон П., Вебер Р. Еффективный самоучитель работы на ПК: Пер. с англ. и нем. – К.: ДиаСофт, 2001. – 672 с.
Коваленко М.М. Комп’ютерні віруси і захист інформації. – К.: Наукова думка, 1999. – 336 с.
Зуев Е.А. Программирование на языке Turbo Pascal 6.0, 7.0. – М.: Радио и связь, 1993.
Фаронов В.В. Турбо Паскаль 7.0. Начальный курс: Учебное пособие. – М.: Нолидж, 1997. – 616 с.
Марченко А.И., Марченко Л.А. Программирование в среде Turbo Pascal 7.0 – М.: Бином Универсал, К.: Юниор, 1997. – 496 с.
Немногин С., Перколаб Л. Изучаем Turbo Pascal. – СПБ.: Питер, 2001. –320 с.
Епанешников А.М., Епанешников В. А. Программирование в среде Тurbo Pascal 7.0. – М.: Диалог Мифи, 2002. – 367с.
Лупин С.Н. Turbo Pascal 7,0. – М.:Диалог Мифи, 1999. – 384 с.
Грызлов В.И., Грызлова Т.П. Турбо Паскаль 7,0. – М.: ДМК, 1999. – 400 с.
Гусева А.И. Pascal 7,0. – М.:Диалог Мифи, 1999. – 256 с.
Хоникатт Дж. Использование Internet. – К. – М. – СПБ.: Вильямс, 1998. – 632 с.