Расчетно-графическая работа по Информатике
| Загрузить архив: | |
| Файл: ref-31619.zip (22kb [zip], Скачиваний: 36) скачать |
Министерство образования и науки РФ
Федеральное агентство по образованию
ГОУ ВПО
Саратовский государственный технический университет
Институт бизнеса и делового администрирования
Кафедра Менеджмента, маркетинга и
логистики
Расчетно-графическая работа
по Информатике
Выполнил: студент
группы МНЖ-11
Проверил:доцент
кафедры ММЛ,
к.т.н. Балабан О.М.
Саратов 2018
содержание:
1)Задание (задача поставленная на расчетно-графическую работу) 2
2)Словесное описание алгоритма решения поставленной задачи ... 3
3)Блок-схема алгоритма решения поставленной задачи ………….. 5
4)Тексты (листинги) трех вариантов программ …………………… 7
5)Примеры выполнения составленных программ…………………10
задача поставленная на расчетно-графическую работу
№2:
Написать программу, выполняющую следующие действия:
Требуется на экран монитора ЭВМ вывести таблицу чисел «Функция Z(W)». Значения W лежат в интервале [-K;K], шаг изменения W равно 2. Здесь K целое четное положительное число, которое определяется пользователем и вводится с клавиатуры по запросу программы. Если введенное значение K не отвечает заданному условию, на экран монитора выдается сообщение: «Ошибка ввода!!! Значение K четное положительное число. Введите значение K». После чего вводится новое значение K. Если значение K отвечаетпоставленному условию, считаем значения Z по следующей формуле:
Результаты значений второго столбца Z вывести на экран ПЭВМ с 5 знаками после точки и 5 знаками перед точкой красным цветом. Значения W выводим желтым цветом. По запросу «Повторить?» на ответы «да» или «yes» - ввод нового значение K и повторный вывод таблицы,в противном случае – вывод сообщения «До новых встреч!!!» и выход из программы.
словесное описание алгоритма решения поставленной задачи :
шаг
действие
1
Называем программу rgr
2
Указываем библиотеку
3
Вводим переменные k,w,z,i,s.
4
Начало исполнительной части
5
Очистка экрана
6
Начало цикла
7
Ввод значения К
8
Если Значение К нечетное или К<=0 ,выводится сообщение об ошибке. Если К четное и К>0 то переходим к следующему действию
9
устанавливаем шаг изменения W
10
если W меньше 0, то считаем Z по формуле:
иначе если W больше 0, то считаем Z по формуле:
иначе Z=34,2
11
устанавливаем цвет текста. Желтый
12
вывод W
12
Устанавливаем цвет текста. Красный
13
Вывод Zc 5 знаками перед точкой и 5 знаками после точки
14
устанавливаем цвет текста. Белый
15
Выводим запрос о повторе расчета
16
Вводим значение s
17
Если значение s равно «Да» или «yes», то переходим к шагу 7, иначе переходим к шагу 18
18
Вывод сообщения «ДО НОВЫХ ВСТРЕЧ!!!»
19
Конец
блок-схема алгоритма решения поставленной задачи :
листинги трех вариантов программ :
I вариант программы :
program rgr;
uses crt;
var k,i,w:integer;z:real;s:string;
begin
clrscr;
repeat
writeln(‘Введите значение К:’);
repeat
readln(k);
if odd(k)or(k<=0) then writeln('ОШИБКА ВВОДА!!!ЗНАЧЕНИЕ К ЧТЕНОЕ ПОЛОЖИТЕЛЬНОЕ ЧИСЛО ВВЕДИТЕ ЗНАЧЕНИЕ К: ');
until not odd(k) and(k>0);
for i:=-k div 2 to k div 2 do begin
w:=2*i;
if(w<0) then z:=(12-w*w*w)/exp(ln(0.5*w+12.3)/5)
else if(w=0) then z:=34.2
else z:=2*exp(ln(w)*2/3)/(0.23*w);
textcolor (yellow);
write(w);
write('');
textcolor (red);
writeln(z:5:5);
end;
textcolor (white);
write('ПОВТОРИТЬ?');
readln(s);
until(s<>'да')and(s<>'yes');
writeln('ДО НОВЫХ ВСТРЕЧ!!!');
readkey
end.
IIвариант программы :
комментарий: подпрограмма-функция(«Znash»), принимает значение W и считает значение Z по формуле оговоренной в задаче, передаваяподсчитанное значение в основную программу.
program rgr;
uses crt;
var k,w:integer;f,z:real;s:string;
function Znash(z:real): real;
var i: integer;
begin
for i:=-k div 2 to k div 2 do begin
w:=2*i;
if (w<0) then z:=(12-w*w*w)/exp(ln(0.5*w+12.3)/5)
else if(w=0) then z:=34.2
else z:=2*exp(ln(w)*2/3)/(0.23*w);
textcolor (yellow);
write(w);
write('');
textcolor (red);
writeln(z:5:5);
end;
end;
begin
clrscr;
repeat
writeln(‘Введите значение К:‘);
repeat
readln(k);
if odd(k)or(k<=0) then writeln('Ошибка ввода!!!Значение К четноеположительное число .Введите значение К: ');
until not odd(k) and(k>0);
f:=Znash(z);
textcolor (white);
write('Повторить?');
readln(s);
until(s<>'да')and(s<>'yes');
writeln('ДО НОВЫХ ВСТРЕЧ!!!');
readkey
end.
IIIвариант программы :
комментарий: подпрограмма-процедура(«Znash»), принимает значение W, считает значение Z по соответствующей формуле и выводит пару переменных (W,Z) в строку таблицы.
program rgr;
uses crt;
var k,w:integer;z:real;s:string;
procedure Znash(k,w:integer;z:real);
var i: integer;
begin
for i:=-k div 2 to k div 2 do begin
w:=2*i;
if (w<0) then z:=(12-w*w*w)/exp(ln(0.5*w+12.3)/5)
else if(w=0) then z:=34.2
else z:=2*exp(ln(w)*2/3)/(0.23*w);
textcolor (yellow);
write(w);
write('');
textcolor (red);
writeln(z:5:5);
end;
end;
begin
clrscr;
repeat
writeln(‘Введите значение К:’);
repeat
readln(k);
if odd(k)or(k<=0) then writeln('Ошибка ввода!!!Значение К четное положительное число.Введите значение К: ');
until not odd(k) and(k>0);
Znash(k,w,z);
textcolor (white);
write('Повторить?');
readln(s);
until(s<>'да')and(s<>'yes');
writeln('ДО НОВЫХ ВСТРЕЧ!!!');
readkey
end.
примеры выполнения составленных программ:
3
Ошибка ввода!!! Значение К четное положительное число.
введите значение К
-2
Ошибка ввода!!! Значение К четное положительное число.
введите значение К
2
-2 12.31443
0 34.20000
2 6.90174
Повторить?
yes
4
-4 47.67011
-2 12.31443
0 34.20000
2 6.90174
4 5.47792
Повторить?
нет
До новых встреч!!!