Поможем написать учебную работу
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

Подписываем
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РОССИЙСКОЙ ФЕДЕРАЦИИ Федеральное государственное бюджетное образовательное учреждение высшего профессионального образования «Московский государственный индустриальный университет» (ФГБОУ ВПО «МГИУ») |
Кафедра информационных систем и технологий |
ЛабоРаторная РАБОТа № 8 |
||
по дисциплине «Языки программирования» _________________________________________________________________ |
||
на тему «Изучение языка программирования Pascal» |
||
Группа |
3282 |
|
Студент |
С. А. Галкин |
|
Допускается к защите Дата |
«___» ___________ |
|
Преподаватель |
___________ |
И.Б. Глазырина |
Оценка работы Дата |
___________ |
«___» ___________ |
Преподаватель |
___________ |
И.Б. Глазырина |
МОСКВА 2013
ВАРИАНТ II
Задание 1.
Код:
program p1;
var n, m: integer;
ans: real;
function func(n, m: integer): real;
var i, ti, tj, tk: integer;
tans: real;
begin
for i := 1 to n do
begin
ti := ti + i;
end;
for i := 1 to m do
begin
tj := tj + i;
end;
for i := 1 to (m + n) do
begin
tk := tk + i;
end;
tans := (ti - tj) / tk;
func := tans;
end;
begin
write('Введите n: ');
readln(n);
write('Введите m: ');
readln(m);
ans := func(n, m);
writeln(ans:1:3);
end.
Задание 2.
Код:
program p2;
const num = ['0'..'9'];
var str: string;
//num: set of '0'..'9';
res: integer;
function isNum(var st: string): integer;
var sum, i, len: integer;
begin
sum := 0;
len := length(str);
for i := 1 to len do
begin
if str[i] in num then sum := sum + 1;
end;
isNum := sum;
end;
begin
write('Введите строку: ');
readln(str);
res := isNum(str);
writeln(res);
write('Введите строку: ');
readln(str);
res := isNum(str);
writeln(res);
write('Введите строку: ');
readln(str);
res := isNum(str);
writeln(res);
end.