ЛабоРаторная РАБОТа 8 по дисциплине Языки программирования
Работа добавлена на сайт samzan.net:
|
МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РОССИЙСКОЙ ФЕДЕРАЦИИ Федеральное государственное бюджетное образовательное учреждение высшего профессионального образования «Московский государственный индустриальный университет» (ФГБОУ ВПО «МГИУ») |
|
Кафедра информационных систем и технологий |
|
ЛабоРаторная РАБОТа № 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.
2. Тема- Методи сучасної психології
3. завдання на основі прямих домовленостей рівноправності довіри і прозорості при прийнятті та реалізації ріш
4. Цей тип щелепи найсприятливіший для протезування бо при ньому зберігається найбільша площа протезного пол
5. Формализм как школа
6. тематике Контроль и оценка знаний учащихся обеспечивает получение учителем информации о ходе познаватель
7. Реферат- Ответы на билеты к госэкзаменам (Международный независимый эколого-политологический университет)
8. Курсовая работа- Построение компоненты в Builder C++
9. Http---rusnodru-ctegory21
10. все мы или почти все глубоко отмечены Достоевским
11. Место и роль общей теории права в правоведении
12. Туризм и рекреация по специальности Технология и организация экскурсионных услуг я понимаю что причины
13. История развития предприятия
14. и с помощью авто заполнения укажите диапазон до ячейки А10 у вас должны во всех выбранных ячейках появится
15. Частная собственность в России с правовой позиции
16. Решение задач по высшей математике
17. Лабораторная работа 12 МЕТОДЫ 1 Цель и порядок работы Цель работы ' познакомиться с правилами организац
18. 'о'амды' денсаулы' са'тау Кафедра- Жалпы гигиена ж'не экология Курс- 2 Семестр- 4
19. а Оборонительная стратегия выживания тратегия низких издержек производства Стратегия роста
20. Курсовая работа- Понятие договора аренды