У вас вопросы?
У нас ответы:) SamZan.net

ЛабоРаторная РАБОТа 8 по дисциплине Языки программирования

Работа добавлена на сайт samzan.net: 2016-03-13

Поможем написать учебную работу

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

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

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 28.4.2025

МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РОССИЙСКОЙ ФЕДЕРАЦИИ

Федеральное государственное бюджетное образовательное учреждение высшего профессионального образования

«Московский государственный индустриальный университет»

(ФГБОУ ВПО «МГИУ»)

Кафедра информационных систем и технологий

ЛабоРаторная РАБОТа   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.




1. Реферат на тему ПЕРСОНАЛЬНЫЙ КОМПЬЮТЕР
2. Исследование работы ЦАП и АЦП
3. тема вивчення іменника
4.  СТАНДАРТИЗАЦІЯ ТОВАРІВ ТА ПОСЛУГ Розділ 1
5. Найдите площадь треугольника
6. 102002 З метою запобігання або зменшення обсягів утворення відходів вдосконалення механізму їх о
7. на тему Медикаментозная обработка корневого канала
8. Курсовая работа- Світова торгівля та зовнішньо-економічна діяльність підприємств
9. Доклад студенческий как пример К защите представляется Проект внедрения технологии DSL
10. реферат дисертації на здобуття наукового ступеня кандидата наук з державного управління1