Главная | Обратная связь | Поможем написать вашу работу!
МегаЛекции

Выполнение программы в среде PascalABC.NET




1. Запустите среду разработки PascalABC.NET, используя иконку на рабочем столе компьютера.

2. Введите текст программы в окне редактора (рис.1).

3. Сохраните программу с помощью команд меню Файл/Сохранить.

4. Запустите программу на исполнение с помощью команд меню Программа /Выполнить или клавиша F9. Если во время компиляции программы обнаружены ошибки, необходимо исправить их, и повторно запустить программу на исполнение.

5. Введите исходные данные в окне ввода (рис.3).

6. После ввода данных выводится результат работы программы.

Варианты заданий по теме «Линейные алгоритмы»

№ варианта Задание Формула
  Дана длина ребра куба H. Найти объем куба V и площадь его боковой поверхности S.  
  Определить время t падения камня на поверхность земли с высоты h. , g= 9.81523м/с2
  Известна длина окружности. Найти площадь круга S, ограниченного этой окружностью.  
  Треугольник задан координатами своих вершин. Найти: периметр треугольника P; площадь треугольника S.
  Три сопротивления R 1, R 2, R 3 соединены параллельно. Найти сопротивление соединения.
  По данным сторонам прямоугольника вычислить его периметр P, площадь S и длину диагонали.
  Определить координаты вершины параболы. Коэффициенты a, b, c заданы. ,
  Вычислить площадь треугольника по формуле Герона, если заданы его стороны.
  Определить расстояние S и скорость v, пройденное физическим телом за время t, если тело движется с постоянным ускорением а и имеет в начальный момент времени скорость v0.
  Вычислить объем и площадь цилиндра с радиусом основания r и высотой h.
  Вычислить высоту треугольника, опущенную на сторону а, по известным значениям длин его сторон a, b, c.
  В квадратной комнате шириной A и высотой B есть окно и дверь с размерами и соответственно. Вычислите площадь стен для оклеивания их обоями.
  Найти: площадь трапеции S, если заданы стороны
  Вычислить путь, пройденный лодкой S, если ее скорость в стоячей воде v км/ч, скорость течения реки v 1 км/ч, время движения по озеру t 1 ч, а против течения реки – t 2 ч. путь по озеру
  Определить объем V и температуру T смеси двух жидкостей при заданных значениях .

 

 

Лабораторная работа №2. Программирование разветвляющихся алгоритмов

Цель работы

Научиться составлять программы на языке Паскаль на основе разветвляющихся алгоритмов с использованием условного оператора if…then.

Общие сведения

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

 

Примеры решения задач по теме «Программирование разветвляющихся алгоритмов»

Задание 1

Вычислить значение функции у по одной из заданных формул, в зависимости от вычисленного значения переменной х. Исходные данные для вычисления x задать произвольно. Вывести на печать результаты вычислений: значения исходных данных, переменных х, у и номер формулы, по которой вычисляется у.

где

Этапы решения задачи

1. Для вычисления значения y по одной из формул необходимо сначала вычислить значение переменной x.

2. Составляем блок-схему алгоритма.

 


 

 

3. Детализируем блок "Определяем, к какому промежутку относится Х. "

 
 


 

4. Добавим блоки вычисления функции на каждом из промежутков:

 
 

 


5. Окончательная блок-схема алгоритма выглядит следующим образом:

 

 

6. Переводим блок-схему на язык Pascal.

program ZADANIE1;

var a, b, c, x, y:real; nf: integer;

begin

write('a = '); readln(a);

write('b= '); readln(b);

write('c= '); readln(c);

x:=3.5*b/(a+exp(3*ln(c));

if (x<1) then begin

y:=a+b*x; nf:=1;

end

else if (x=1) then

begin

y:=sqrt(abs(a+b*x)); nf:=2;

end

else begin

y:=sqr(a*c+b*x); nf:=3;

end;

writeln('При a =', a:4:2, ‘ b=’, b:4:2, ‘ c=’, c:4:2, ‘x=’, x:4:2);

writeln('y =', y:4:2, ‘ номер формулы=’, nf:2);

end.

7. Выполним программу в среде PascalABC.NET (см. п.3.1.4).

Задание 2

Дано а, b, c. Вычислить среднее арифметическое чисел, кратных 3, и количество чисел, лежащих в интервале [1, 15].

Этапы решения задачи

1. Сначала вычислим сумму S и количество k чисел, кратных 3. Определив значения этих переменных, можно рассчитать среднее арифметическое значение чисел, кратных 3, разделив S на k. Входные переменные а, b и c должны быть целого типа, так как при проверке на кратность используется функция mod – остаток от целочисленного деления, которая выполняется только с данными целого типа. Для вычисления количества чисел, лежащих в интервале от 1 до 15, каждую переменную проверим на заданное условие. Если условие выполняется, то к счётчику t прибавляем 1.

2. Составим блок-схему алгоритма и текст программы.

PROGRAM zadanie2; VAR S,K,T,A,B,C: INTEGER; SR: REAL; BEGIN WRITE(‘A=’); READLN(A); WRITE(‘B=’); READLN(B); WRITE(‘C=’); READLN(C); S:=0; {сумма чисел, кратных 3} K:=0; {кол-во чисел, кратных 3} T:=0; {кол-во чисел от 1 до 15} IF (A MOD 3=0) THEN BEGIN S:=S+A; K:=K+1; END; IF (B MOD 3=0) THEN BEGIN S:=S+B; K:=K+1; END; IF (C MOD 3=0) THEN BEGIN S:=S+C; K:=K+1; END; IF (A>=1) AND (A<=15) THEN T:=T+1; IF (B>=1) AND (B<=15)THEN T:=T+1; IF (C>= 1) AND (C<=15) THEN T:=T+1; SR:=S/K; {сред. арифм. чисел, кратных 3} WRITELN(‘СРЕДН. ЗНАЧЕНИЕ=’, SR); WRITELN(‘Кол-во чисел =’, T); END.  

 

3. Выполним программу в среде PascalABC.NET (см. п.3.1.4).

 

Варианты заданий по теме «Разветвляющиеся алгоритмы»

Задание 1

Вычислить значение функции у по одной из заданных формул, в зависимости от вычисленного значения переменной х. Исходные данные для вычисления x задать произвольно. Вывести на печать результаты вычислений: значения исходных данных, переменных х, у и номер формулы, по которой вычисляется у.

№ Вар-та Задание Формула
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

 

 

Задание 2

№ Варианта Задание
  Даны три действительных числа a, b, c. Вычислить количество положительных чисел среди них.
  Даны три действительных числа a, b, c. Вычислить среднее арифметическое значение положительных чисел среди них.
  Даны три действительных числа a, b, c. Вычислить сумму чётных чисел среди них.
  Даны три действительных числа a, b, c. Выбрать из них те, которые принадлежат интервалу [1, 30].
  Даны действительные числа x, y. Если x и y отрицательны, то каждое значение заменить его модулем; если отрицательное только одно из них, то оба значения увеличить на 0.5; если оба значения не отрицательны и ни одно из них не принадлежит отрезку [0.5, 2.0], то оба значения уменьшить в 10 раз; в остальных случаях x, y оставить без изменения.
  Определить и вывести на печать номер квадрата, в котором расположена точка М (x, y), x и y заданные вещественные числа.
  Из величин, определяемых выражениями , , при заданном значении х, определить и вывести на экран минимальное значение.
  Ввести два числа. Меньшее заменить полусуммой, а большее – удвоенным произведением.
  Даны три действительных числа a, b, c. Вычислить их сумму. Если сумма положительная, необходимо все числа уменьшить вдвое, если иначе вычислить их произведение.
  Даны три действительных числа a, b, c. Если все числа положительные, необходимо вычислить их произведение, если иначе, вычислить модуль разности отрицательных чисел.
  Даны три переменные: X, Y, Z. Если их значения упорядочены по убыванию, то удвоить их; в противном случае заменить значение каждой переменной на противоположное.
  Даны три действительных числа a, b, c. Вычислить произведение чисел, кратных 3 и не кратных 5 среди них.
  Даны три действительных числа a, b, c. Вычислить модуль разности отрицательных чисел среди них.
  Значения переменных X, Y, Z поменять местами так, чтобы они оказались упорядоченными по возрастанию.
  Даны три действительных числа a, b, c. Если ычислить произведение чисел, кратных 5 среди них, если иначе, все числа увеличить на 10.

 

 

Поделиться:





Воспользуйтесь поиском по сайту:



©2015 - 2024 megalektsii.ru Все авторские права принадлежат авторам лекционных материалов. Обратная связь с нами...