Язык программирования Pascal
Задача 1
Циклический язык массив программа
Цель работы
Изучить циклические процессы и реализацию циклических конструкций в языке программирования Pascal.
Постановка задачи
Составить таблицу значений функции Y = f(x) На отрезке от A до B с шагом H. Вид функции, значения A, b, h взять из нижеприведенной таблицы.
Для построения таблицы значений использовать цикл с предусловием.
Таблица должна выводиться на экран в два столбца с заголовками 'X' и 'F(x)'.
Функция |
А |
B |
Шаг |
7 |
0 |
6 |
0.25 |
Блок-схема алгоритма
Текст программы
Uses crt;
Const a=0;
B=6;
H=0.25;
Var x, y: real;
Begin
Clrscr;
Writeln('x ':6,' | f(x)':7);
Writeln('-----------------');
X:=a;
While x<=b do
Begin
Y:=2*sin(x)*cos(x); {=sin(2x)}
Writeln(x:7:2,' |',y:8:4);
X:=x+h;
End;
Readln;
End.
Результаты тестирования программы
Задача 2
Цель работы
Изучить обработку массивов с помощью языка программирования Pascal.
Постановка задачи
Статистическое управление имеет сведения о стоимости некоторого минимального набора из N продуктов по месяцам года (N>=3). Вывести сведения в виде таблицы с заголовками строк и столбцов (во всех задачах).
Продукт |
Стоимость по месяцам | ||||||||||
1 |
2 |
3 |
4 |
5 |
6 |
7 |
8 |
9 |
10 |
11 |
12 |
Колбаса | |||||||||||
Молоко | |||||||||||
. . . . . |
Кроме того, найти процентное изменение стоимости набора продуктов на конец года (( стоимость набора за январь - стоимость набора за декабрь)/ стоимость набора за январь * 100).
Вывод результатов на экран должен проводиться для одномерных массивов в виде столбца (столбцов), для двумерных - в виде матрицы. При необходимости на экран должны выводиться также текстовые пояснения. Для оформления вывода использовать подпрограммы модуля СRT.
Примечание: в задании опечатка - для определения изменения необходимо из стоимости набора за декабрь вычитать стоимость за январь, а не наоборот.
Блок-схема алгоритма
Текст программы
Uses crt;
Const n=4;
Var stat: array[1..n,1..12] of integer;
Spis: array[1..n] of string;
I, j: integer;
Jan, dec: integer;
Izm: real;
Begin
Clrscr;
Randomize;
{zapolnyaem massivy}
{spisok produktov}
Spis[1]:='Kolbasa';
Spis[2]:='Moloko';
Spis[3]:='Hleb';
Spis[4]:='Sahar';
{zapolnyaem ceny sluchainymi chislami}
For j:=1 to 12 do
Begin
Stat[1,j]:=200+random(20); {kolbasa}
Stat[2,j]:=30+random(10); {moloko}
Stat[3,j]:=15+random(10); {hleb}
Stat[4,j]:=20+random(5); {sahar}
End;
{raschet izmenenyay}
Jan:=0; dec:=0;
For i:=1 to N do
Begin
Jan:=jan+stat[i,1];
Dec:=dec+stat[i,12];
End;
Izm:=(dec-jan)/jan*100;
{vyvod zagolovkov}
Textattr:=2; {zelenyi text}
Gotoxy(1,1);
Write('Produkt|');
Gotoxy(35,1);
Writeln('Stoimost po mesyacam');
Writeln('--------------------------------------------------------------------------------');
Gotoxy(8,3);
Write('| 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | ');
Gotoxy(1,4);
Write('--------------------------------------------------------------------------------');
For i:=1 to N do
Begin
Gotoxy(1,2*i+3);
Write(spis[i]);
Gotoxy(8,2*i+3);
Write('|');
Gotoxy(8,2*i+4);
Write('|');
End;
{vyvod samoi matricy}
Textattr:=4;
For i:=1 to N do
For j:=1 to 12 do
Begin
Gotoxy(6*j+3,2*i+3);
Write(stat[i, j]:5,'|');
Gotoxy(6*j+8,2*i+4);
Write('|');
End;
Textattr:=5;
Writeln;
Writeln('Izmenenie ',izm:6:2,'% : jan=',jan,' dec=',dec);
Readln;
End.
Результаты тестирования программы
Похожие статьи
-
Циклы в языке программирования Pascal
Цель: Познакомить учащихся с программированием циклических алгоритмов. pascal циклический алгоритм Методическая разработка рассчитана на учащихся 9-х...
-
Введение, Правила и порядок выполнения курсовой работы - Программирование в среде Turbo Pascal
Настоящие методические указания предназначены для выполнения курсовой работы "Расчеты на ЭВМ характеристик выходных сигналов электрических цепей" по...
-
Вычислить приближенное значение определенного интеграла с подынтегральной функцией f(x) заданным методом и проверить точность вычислений по формуле...
-
Области применения языка программирования С++ - Разработка видеолекций по программированию С++
Главным образом язык C++ используется на уровне инфраструктуры для разработки систем с ресурсными ограничениями и систем с высоким уровнем надежности....
-
Скалярные переменные - Язык программирования PERL. Сфера применения
Как отмечалось, скалярная переменная может содержать единственное значение. В языке Perl имена скалярных переменных всегда начинаются со знака ($). В еле...
-
Подпрограммы - Язык программирования PERL. Сфера применения
Как и все структурированные языки программирования, Perl поддерживает подпрограммы. Подпрограмма может быть определена с помощью ключевого слова sub, как...
-
Языки и методы параллельного программирования - Администрирование параллельных процессов
Применение параллельных архитектур повышает производительность при решении задач, явно сводимых к обработке векторов. Автоматическое распараллеливание...
-
Принципы SOLID - Программирование на языке C++
SOLID - мнемонический акроним, введенный Майклом Фэзерсом ( Michael Feathers ) для первых пяти принципов, названных Робертом Мартином в начале 2000-х,...
-
Технология программирования Для реализации поставленной задачи наиболее удобной парадигмой программирования будет являться объектно-ориентированная...
-
ОПЕРАТОР ВВОДА ДЛЯ ЧТЕНИЯ ФАЙЛА, ОПЕРАТОР ВЫВОДА - Язык программирования Паскаль
Оператор ввода для чтения файла обладает всеми свойствамии обычного оператора READ. Вкачестве параметров могут быть переменные; каждая переменная поучает...
-
Таблица сопротивлений некоторых термометров сопротивления Температурав °C Pt100 Pt1000 Typ: 404 Typ: 501 -50 80, 31 803, 1 -40 84, 27 842, 7 -30 88, 22...
-
Для программирования агентов могут применяться: универсальные языки (Java, C++ , Visual Basic и др.), языки представления знаний (SL, KIF), языки...
-
История функционального программирования - Основные свойства функциональных языков программирования
Широко известно, что теоретические основы императивного программирования были заложены еще в 30-х годах XX века учеными Аланом Тьюрингом и Джоном фон...
-
Языки и системы программирования, их эволюция - Автоматизация решения задач пользователя
Язык программирования - это способ записи программ решения различных задач на ЭВМ в понятной для компьютера форме. Процессор компьютера непосредственно...
-
Введение, РЕКУРСИЯ - Рекурсивное программирование
Основой для разработки рекурсивных алгоритмов служат, так называемые, Рекуррентные соотношения (формулы), устанавливающие зависимость между результатами...
-
Введение - Основные свойства функциональных языков программирования
Созданная в 1998 году спецификация языка Haskell (названного так в честь ученого Хаскелла Карри, одного из основоположников функционального...
-
Turbo Pascal, О Turbo Pascal, История - Работа с языком Турбо Паскаль
Среда разработки Turbo Pascal 7.1 (Рис 1) О Turbo Pascal Turbo Pascal (произносится "турбо паскаль") -- Интегрированная среда разработки программного...
-
Поколения языков программирования Языки программирования принято делить на пять поколений. В первое поколение входят языки, созданные в начале 50-х...
-
CoDeSys -- универсальный инструмент разработки прикладных программ для программируемых логических контроллеров на языках стандарта IEC 61131-3. Данный...
-
Использование языка PERL для написания CGI-cкриптов - Язык программирования PERL. Сфера применения
Как вы узнали из предыдущей главы, CGI обеспечивает узлам Web вoзмoжнoсть интерактивной работы с клиентскими программами, в качестве которых обычно...
-
У каждого языка программирования есть свои преимущества и недостатки, и их стоит рассматривать в контексте тех принципов, на которых строился язык, а так...
-
Заключение - Основные свойства функциональных языков программирования
Основной особенностью функционального программирования, определяющей как преимущества, так и недостатки данной парадигмы, является то, что в ней...
-
Строгая типизация - Основные свойства функциональных языков программирования
Практически все современные языки программирования являются строго типизированными языками (возможно, за исключением языка JavaScript и его диалектов, не...
-
Эволюция языков программирования - Модульное и объектно-ориентированное программирование
Принцип программного управления компьютером состоит в том, что человек подает команды на логические схемы, которые управляют различными подсистемами...
-
Язык программирования R - Технологии больших данных: анализ и выбор решения для реализации проекта
Язык программирования R является универсальным и разработан для применения в следующих областях: разведочный анализ данных, классические статистические...
-
Основные типы данных языка Си - Основы программирования
Язык Си относится к языку с жестко определенными типами данных: каждое имя всегда обозначает объект некоторого типа, причем этот тип нельзя изменить до...
-
При извлечении текста из Интернета, он не имеет никой разметки и представлен в виде сплошного набора предложений. Для дальнейшего использования...
-
Алгоритм работы декодера кода Рида - Маллера будем разрабатывать на основе уже приведенных выше уравнений. Алгоритм приведен на рисунке 12. В начале...
-
Идентификаторы языка Си, Понятие о типах данных - Основы программирования
Идентификаторы или имена служат для обозначения различных объектов программ: переменных (ячеек памяти), адресов, функций, файлов и т. д., иначе говоря -...
-
Разработка приложения на языке C++ - Программирование на языке C++
C++ - объектно-ориентированный язык программирования. Разработан в 1998--2001 годах группой инженеров под руководством Андерса Хейлсберга в компании...
-
Индивидуальное задание кафедры - Программирование на языке C++
- Ознакомление с деятельностью предприятия и протекающими в нем бизнес-процессами - Адаптироваться к рынку труда и возможной будущей трудовой...
-
МОДУЛИ - Язык программирования Паскаль
Наличие модулей в Turbo Pascal позволяет программировать и отлаживать программу по частям, создавать библиотеки подпрограмм и данных, воспользоваться...
-
Конфигурация устройств ввода-вывода Турбо Паскаля - Программирование в среде Turbo Pascal
Результаты работы программы и исходные данные могут быть записаны в файлы на диске, с помощью специальных процедур работы с файлами прямо из программы. В...
-
Правила записи программы на языке Си - Основы программирования
Как указывалось выше, программа перед обработкой компьютером должна быть помещена в файл на диске. Обычно этот файл имеет расширение <.c>. Рассмотрим...
-
Обзор языков программирования высокого уровня - Теоретические основы информационных технологий
Fortran (Фортран) Это первый компилируемый язык, созданный в 50-е годы. Программисты, разрабатывавшие программы исключительно на ассемблере, выражали...
-
Особенности языка программирования С++ - Разработка видеолекций по программированию С++
Язык С++ был создан Бьерном Страуструпом в 1979 году в компании Bell Laboratories и сначала имел название "С с классами". Страуструп утверждает, что...
-
В нашей курсовой работе была поставлена задача создания обучающей программы по информатике, с помощью которой студенты смогут проверить свои знания в...
-
Резюме - Язык программирования PERL. Сфера применения
В этой главе рассмотрено введение в программирование на языке Perl. Используя рассмотренные здесь концепции, можно писать сложные скрипты CGI на языке...
-
Датчики Pt1000 (TSQ* и TSH*) прекрасно подходят для любых климатических систем, где необходимо измерять температуры в диапазоне от -50 до 250 °C с...
-
Отложенные (ленивые) вычисления - Основные свойства функциональных языков программирования
В традиционных языках программирования (например, C++) вызов функции приводит к вычислению всех аргументов. Этот метод вызова функции называется...
Язык программирования Pascal