Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Информатика методичка для заочников.doc
Скачиваний:
0
Добавлен:
01.03.2025
Размер:
2.38 Mб
Скачать

Примеры программ

Пример 1. Подсчет количества нечетных среди n введенных чисел

program example1;

var n, c, i, x: integer;

begin

write('Введите n: ');

read(n);

c := 0;

for i:=1 to n do

begin

write ('Введите целое число: ');

read(x);

if x mod 2 <>0 then c:=c+1;

end;

writeln('Количество нечетных равно ', c);

end.

Пример 2. Расчет n первых значений последовательности Фибоначчи, в которой каждое последующее число последовательности образуется суммированием двух предыдущих.

program fibo;

var n, a, b, i, c: word;

begin

write('Введите целое число n (n > 1): ');

read(n);

a:= 1;

b:= 1;

write(1, ' ', 1, ' ');

for i := 3 to n do

begin

c:= a + b;

write(c, ' ');

a := b;

b := c;

end;

end.

Список рекомендуемых источников

  1. Меженный, О.А. TurboPascal. – М.: Вильямс Диалектика, 2008. - 336 с.

  2. Обучение программированию. Язык Pascal / Н.Л. Тарануха [и др.]. – М.: Солон-Пресс, 2009. - 384 с.

  3. Рудикова, Л.В. MicrosoftExcel для студента. - СПб.: БХВ-Петербург, 2005. – 368 с.

  4. Уокенбах,Джон. MicrosoftOfficeExcel 2007: Библия пользователя. – М.: Вильямс, 2008. – 818 с.

  5. Фаронов,В.В. TurboPascal 7.0: Учебный курс. – М.: КноРус, 2009. - 368 с.

  6. http://support.microsoft.com

  7. http://www.planetaexcel.ru

  8. http://pascalabc.net/

  9. http://borlpasc.narod.ru

  10. http://www.tp7.info/ebook.php

Приложение 1

ФЕДЕРАЛЬНОЕ АГЕНТСТВО

ЖЕЛЕЗНОДОРОЖНОГО ТРАНСПОРТА

Красноярский институт железнодорожного транспорта -

Филиал ГОУ ВПО

«Иркутский государственный университет путей сообщения»

в г. Красноярске

К О Н Т Р O Л Ь Н А Я РА Б О Т А № 1

По дисциплине _______________________________________

_____________________________________________________

учебный шифр _______________________________________

Ф. И. О. студента _____________________________________

Вариант №_______

Отметка рецензента ________________________________________

_____________________________________________________

_____________________________________________________

_____________________________________________________

Красноярск

2011 г.

Учебно-методическое издание

Информатика

контрольные работы №1, 2

Методические указания для студентов всех специальностей

заочной формы обучения

составитель:

Алексей Николаевич Сочнев

Подписано в печать г.

Формат бумаги 60×84/16

2 авт. л.; 4 печ. л.

экз.

План издания 2011 г. № п/п

Отпечатано в КрИЖТ ИрГУПС

Красноярск, ул. Л. Кецховели, 89