andrey

Путь к Файлу: /Информатика / Лабораторные работы по информатике / Лр 5.doc

Ознакомиться или скачать весь учебный материал данного пользователя
Скачиваний:   4
Пользователь:   andrey
Добавлен:   24.01.2015
Размер:   115.5 КБ
СКАЧАТЬ

Лр 5

Федеральное агентство по образованию РФ

Санкт-Петербургский  государственный горный  институт им. Г.В. Плеханова

(технический университет)

Лр 5

 

 

Отчет по лабораторной работе №5

 

 

По дисциплине:                                           Информатика______________________________

(наименование учебной дисциплины согласно учебному плану)

 

 

Тема:  _                                     Массивы в turbo pascal                               _                

 

 

Самоленков С. В.

 

 ТНГ-06-2

 
Выполнил: студент гр.   _______    ____________________           /_______________/

                                                                            (подпись)                                (Ф.И.О.)

 

 

 

ОЦЕНКА: _____________

 

Дата: __________________

 

Старший преподаватель

 

 
ПРОВЕРИЛ:

Быкова Е. В.

 

 
 


Руководитель:   ________         ________________          /___________________/

                             (должность)                             (подпись)                                                  (Ф.И.О.)

 

 

 

 

 

 

 

 

Санкт-Петербург

2007 год.

 

Массивы. Ввод из файла. Вывод в файл.

Задача 1. Написать программу, которая по заданному одномерному массиву Лр 5создает два новых массива того же размера по формулам Лр 5и Лр 5и записать результаты в файл с указанным именем.

N=5, Лр 5, имя файла 6.res

 

{Работа 5, задание 1, вариант 6}

{Самоленков С ТНГ-06-2}

{}

program Zadacha1;

uses crt;

var

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

 i:integer;

 g:text;

begin

clrscr;

Assign(g,'rez.dat');

Rewrite(g);

writeln('Vvedite massiv A');

read(a[1],a[2],a[3],a[4],a[5]);

for i:=1 to 5 do

 begin

  b[i]:=cos(a[i]);

  c[i]:=ln(abs(a[i]));

 end;

for i:=1 to 5 do

write(g,'a[',i:1,']=',a[i]:3:1,'   ');

writeln(g);           writeln(g);

for i:=1 to 5 do

write(g,'cos(a[',i:1,')]=',b[i]:7:5,'   ');

writeln(g);           writeln(g);

for i:=1 to 5 do

write(g,'ln(abs(a[',i:1,']))=',c[i]:7:5,'   ');

writeln(g);           writeln(g);

  close(g);

End.

 

Результат записан в файл 6.res :

a[1]=6.0   a[2]=4.0   a[3]=5.0   a[4]=8.0   a[5]=3.0

 

cos(a[1)]=0.96017   cos(a[2)]=-0.65364   cos(a[3)]=0.28366   cos(a[4)]=-0.14550  

cos(a[5)]=-0.98999

 

ln(abs(a[1]))=1.79176   ln(abs(a[2]))=1.38629   ln(abs(a[3]))=1.60944   ln(abs(a[4]))=2.07944   ln(abs(a[5]))=1.09861

 

 

 

Проверка в Excel

 

Лр 5

Лр 5

 

Задача 2. Создать два одномерных массива по правилам Лр 5, где Лр 5 и Лр 5, где Лр 5.Образовать из них двумерный массив по правилу Лр 5, где Лр 5;Лр 5.

Лр 5,Лр 5,Лр 5,Лр 5,Лр 5,Лр 5,Лр 5,Лр 5,Лр 5,Лр 5,Лр 5.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

            Задача 3. В одномерном массиве, состоящем из n вещественных элементов, вычислить:

1) Сумму отрицательных элементов массива,

2) Произведение элементов массива, расположенных между максимальными и минимальными элементами.

Наверх страницы

Внимание! Не забудьте ознакомиться с остальными документами данного пользователя!

Соседние файлы в текущем каталоге:

На сайте уже 21970 файлов общим размером 9.9 ГБ.

Наш сайт представляет собой Сервис, где студенты самых различных специальностей могут делиться своей учебой. Для удобства организован онлайн просмотр содержимого самых разных форматов файлов с возможностью их скачивания. У нас можно найти курсовые и лабораторные работы, дипломные работы и диссертации, лекции и шпаргалки, учебники, чертежи, инструкции, пособия и методички - можно найти любые учебные материалы. Наш полезный сервис предназначен прежде всего для помощи студентам в учёбе, ведь разобраться с любым предметом всегда быстрее когда можно посмотреть примеры, ознакомится более углубленно по той или иной теме. Все материалы на сайте представлены для ознакомления и загружены самими пользователями. Учитесь с нами, учитесь на пятерки и становитесь самыми грамотными специалистами своей профессии.

Не нашли нужный документ? Воспользуйтесь поиском по содержимому всех файлов сайта:



Каждый день, проснувшись по утру, заходи на obmendoc.ru

Товарищ, не ленись - делись файлами и новому учись!

Яндекс.Метрика