Простые программы и работа с однородными статическими массивами: поиск, замена, сортировка

Федеральное агентство по образованию

Чебоксарский политехнический институт (филиал)

ГОУ ВПО Московский государственный открытый университет

имени В.С.Черномырдина 

 

 

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

 

 

 

 

Контрольная работа

по дисциплине «Программирование»

 

 

 

 

 

 

Выполнил студент:

 

 

специальность  230100                     

ф/о заочная      

 

Руководитель: Решетников А.В.

 

 

 

 

 

 

2012

 

 

Содержание

 

1. Простые программы
2. Работа с однородными статическими массивами: поиск, замена, сортировка
3. Работа со строками

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1. Простые программы

 

Вариант 5

Идет k-я секунда суток. Определить, сколько полных часов (h) и полных минут (m) прошло к этому моменту.

 

 

Код Delphi

 

var

h, m, s: integer;

 

begin

write ('Type seconds: ');

readln (s);

  h:= s div 3600;

  m:= (s - h*3600) div 60;

writeln ('Was ',h,' hours ',m,' minutes');

readln;

 

end.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Контрольный пример

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2. Работа с однородными статическими массивами: поиск, замена, сортировка

 

 

Вариант 6

В одномерном массиве, состоящем из n целых элементов, вычислить номер максимального элемента массива.

 

 

Код Delphi

 

var

a: array[1..10] of integer;

i, n, max: integer;

 

begin

writeln('Type 10 elements in the array');

max:=a[1]; n:=1;

  for i:= 1 to 10 do

  begin

    write('->');

    readln(a[i]);

      if max < a[i] then

        begin

        max:= a[i]; n:= i;

        end;

  end;

writeln ('Maximum number of array = ', n);

readln;

 

end.

 

 

 

 

 

 

 

 

 

 

 

 

Контрольный пример

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

3. Работа со строками

 

Вариант 6

Дан текст, найти наибольшее количество идущих подряд букв.

 

 

Код Delphi

 

var

i, max, now: integer;

text: string;

 

begin

max:=0; now:=0;

write('Type text: ');

readln(text);

  for i:= 1 to length(text) do

  begin

    if text[i] in ['a'..'z'] then Inc(now)

    else now:= 0;

    if now > max then max:= now;

  end;

writeln('The greatest number of consecutive letters: ', max);

readln;

 

end.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Контрольный пример