Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
РЕАЛІЗАЦІЯ ЦИКЛІВ У PASCAL
Інформація про навчальний заклад
ВУЗ:
Національний університет Львівська політехніка
Інститут:
Не вказано
Факультет:
Не вказано
Кафедра:
Кафедра інформаційних систем та мереж
Інформація про роботу
Рік:
2009
Тип роботи:
Лабораторна робота
Предмет:
Інші
Група:
КН
Частина тексту файла (без зображень, графіків і формул):
МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ „ЛЬВІВСЬКА ПОЛІТЕХНІКА”
Кафедра інформаційних
систем та мереж
Лабораторна робота №5
на тему
РЕАЛІЗАЦІЯ ЦИКЛІВ У PASCAL
Львів-2009
Мета роботи ознайомлення із циклічними обчислювальними процесами та їх програмуванням на алгоритмічній мові Pascal..
Перший рівень Використовуючи оператори циклу, протабулювати значення функції y = f (x) на проміжку [a, b] з кроком dx . Результати обчислень представити у вигляді таблиці. Результати обчислення функції y = f (x) на проміжку [a, b] з кроком dx .
program laba5_1;
var b,dx,y,x:real;
begin
x:=-PI/2;
b:=PI/2;
dx:=PI/20;
while x <= b do begin
y:=cos(x)/sin(x);
writeln ('x=',x:6:3,' y=',y:5:4);
x:=x+dx;
end;
readln;
end.
Другий рівень Згідно номеру варіанта (див. умови у третьому рівні) скласти програму з використанням одного із операторів циклу. 5. Суму кубів всіх від’ємних елементів послідовності.
program laba5_2;
var
a : Integer;
s : Longint;
Begin
Readln (a);
s:=0;
while a<=50 do
begin
if a<0 then s:=s+a*a*a;
a:=a+1;
end;
writeln(S);
end.
Третій рівень
Згідно номеру варіанта скласти програму з використанням двох інших операторів циклу (відмінних від використаного в завданні другого рівня). 5. Суму кубів всіх від’ємних елементів послідовності.
program laba5_31;
var
a : Integer;
s : Longint;
Begin
Readln (a);
s:=0;
repeat begin
if a<0 then s:=s+a*a*a;
a:=a+1;end;
until a>=50;
writeln(S);
readln;
end
var
a : Integer;
s : Longint;
Begin
Readln (a);
s:=0;
for a:=a to 100 do
begin
if a<0 then s:=s+a*a*a;
a:=a+1;
end;
writeln(S);
readln;
end.
Висновок на лабораторній роботі ознайомився із циклічними обчислювальними процесами та їх програмуванням на алгоритмічній мові Pascal.
15.03.2012 12:03-
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора