Дипломная работа

от 20 дней
от 9999 рублей

Заказать

Курсовая работа

от 10 дней
от 1999 рублей

Заказать

Реферат

от 3 дней
от 699 рублей

Заказать

Контрольная работа

от 3 дней
от 99 рублей
за задачу

Заказать

Диссертация

Сроки и стоимость индивидуальные

Заказать

Главная - Информатика, Вычислительная техника, телекоммуникации - Отчет по лабораторным работам в программе Pascal

Отчет по лабораторным работам в программе Pascal Информатика, Вычислительная техника, телекоммуникации. Отчет

  • Тема: Отчет по лабораторным работам в программе Pascal
  • Автор: Фалалеев Артемий Андреевич
  • Тип работы: Отчет
  • Предмет: Информатика, Вычислительная техника, телекоммуникации
  • Страниц: 13
  • Год сдачи: 2009
  • ВУЗ, город: УРФУ
  • Цена(руб.): 200 рублей

Заказать персональную работу

Выдержка

Задача 1 Использование оператора выбора. Организация циклов. Использование массивов, вывод результатов в виде таблицы. Постановка задачи: Создать меню из 3-х задач. Из 3-х предложенных вариантов выбрать один корректный и выполнить задание. При невозможности выполнить задание выдать сообщение о неверном вводе или недопустимых данных. Выход из программы осуществить из меню. Алгоритм. Вывести на экран запрос о выборе задачи Задача №1 Вычислить диагональ квадрата Сделать запрос о количестве вычислений и организовать цикл с помощью оператора For.В цикле (сторона квадрата) сделать запрос о вводе переменной, если она положительна, то сделать вычисления, если нет, то выдать сообщение об ошибке(ввести другие числа). Результаты выводить в виде таблицы. Задача №2 Вычислить среднюю линию трапеции Организовать цикл с помощью оператора WHILE. В цикле сделать запрос о вводе первой переменной (нижнее основание а), если она положительна, то сделать запрос о вводе второй переменной (верхнее основание b), если вторая переменная положительна, то произвести вычисления, в противном случае выдать сообщение об ошибке. В конце цикла запрос о продолжении вычислений. Результат выводить в виде таблицы. Задача №3 Вычислить сторону треугольника Организовать цикл с помощью оператора REPEAT. В цикле сделать запрос о вводе всех 3-х переменных ( 2 стороны и угол между ними), и если они все положительны, то произвести вычисления, в противном случае выдать сообщение об ошибке(ввести другие числа). В конце цикла сделать запрос о продолжении вычислений. Результат выводить в виде таблицы. По окончании вычислений выходить в меню, где предусмотреть выход из программы. Вычисление элементов геометрических фигур Диагональ квадрата - Средняя линия трапеции - Сторона треугольника - Program dz; Const ln='-------------'; var a,b,c,s,d,l,g: array [1..10] of real; n,k,i:integer; Ot:char; Begin While 1=1 do begin writeln('menu'); writeln('1-diagonal kvadrata'); writeln('2-srednia linia trapecii'); writeln('3-storona treugolnika'); writeln('4-vihod'); Readln(n); case n of 1:begin writeln('skolko raz schitat?'); Readln(k); for i:=1 to k do begin Writeln('vvedite storonu kvadrata'); Readln(a[i]); if a[i]>=0 then d[i]:=a[i]*sqrt(2) else begin while a[i]<0 do begin writeln ('vvedite drygoe chislo'); readln(a[i]); end; d[i]:=a[i]*sqrt(2); end; end; Writeln(ln); writeln ('I a I d I'); Writeln(ln); for i:=1 to k do begin writeln ('I ',a[i]:2:1,' I ' , d[i]:2:1,' I'); writeln (ln); end; end;

Содержание

Задача 1 Использование оператора выбора. Организация циклов. Использование массивов, вывод результатов в виде таблицы. Постановка задачи: Создать меню из 3-х задач. Из 3-х предложенных вариантов выбрать один корректный и выполнить задание. При невозможности выполнить задание выдать сообщение о неверном вводе или недопустимых данных. Выход из программы осуществить из меню. Задача 2 Массив Z(15) заполнить целыми случайными числами в диапазоне (0,100). Найти сумму элементов S, расположенных между максимальным MAX и минимальным MIN элементами массива. Вывести S,Z,MAX,MIN. Массив В(20) заполнить целыми случайными числами в диапазоне (0,20). Массив-маску М(20) заполнить нулями и единицами случайным образом. Найти среднее арифметическое SR элементов массива B по нулям массива М. Вывести В,М,SR. Матрицу R(9.5) заполнить целыми случайными числами в диапазоне (-100,100). Заполнить массив С(?) номерами таких строк R, сумма элементов которых S(I)>0. Массив С заполнить плотно. Вывести R,S,C. Задача 5 Матрицу Q(7, 9) заполнить целыми случайными числами в диапазоне (-20, 20). Найти минимальный и максимальный элементы в каждой строке и количества элементов, находящихся между ними. Матрицу Q и результаты счета вывести. Задача 6 Составить подпрограмму – процедуру POISK (A,M,N,R), которая в матрице А, содержащей М строк и N столбцов, находит суммы элементов по столбцам. Суммировать модули элементов. Найти максимальную из полученных сумм и присвоить ей значение переменной R. Использовать процедуру для обработки двух матриц P(5.4) и G(7.5), получая R1 и R2 соответственно. Вычислить Q: R1+0.5*R2. вывести матрицы P, G, а также значения P1, P2 ,Q. Задача 7 Составить подпрограмму – функцию POISK (A,M,N,R), которая в матрице А, содержащей М строк и N столбцов, находит суммы элементов по столбцам. Суммировать модули элементов. Найти максимальную из полученных сумм и присвоить ей значение переменной R. Использовать функцию для обработки двух матриц P(5.4) и G(7.5), получая R1 и R2 соответственно. Вычислить Q: R1+0.5*R2. вывести матрицы P, G, а также значения P1, P2 ,Q. Задача 7 Составить подпрограмму – функцию POISK (A,M,N,R), которая в матрице А, содержащей М строк и N столбцов, находит суммы элементов по столбцам. Суммировать модули элементов. Найти максимальную из полученных сумм и присвоить ей значение переменной R. Использовать функцию для обработки двух матриц P(5.4) и G(7.5), получая R1 и R2 соответственно. Вычислить Q: R1+0.5*R2. вывести матрицы P, G, а также значения P1, P2 ,Q.

Литература

нет

Форма заказа

Заполните, пожалуйста, форму заказа, чтобы менеджер смог оценить вашу работу и сообщил вам цену и сроки. Все ваши контактные данные будут использованы только для связи с вами, и не будут переданы третьим лицам.

Тип работы *
Предмет *
Название *
Дата Сдачи *
Количество Листов*
уточните задание
Ваши Пожелания
Загрузить Файлы

загрузить еще одно дополнение
Страна
Город
Ваше имя *
Эл. Почта *
Телефон *
  

Название Тип Год сдачи Страниц Цена
Сетевые операционные системы Отчет 2010 36 1500
Отчет по производственной практике в фирме ООО "Элар-Т" Отчет 2011 39 150
курсовые, дипломные, контрольные на заказ скидки на курсовые, дипломные, контрольные на заказ

© 2010-2016, Все права защищены. Принимаем заказы по всей России.