Задание на лабораторную работу

1. Получить задание в соответствии с номером своего варианта.
2. Составить схему алгоритма решения задачи.
3. Написать код программы на языке Паскаль в среде Borland Pascal for Windows.
4. Осуществить компиляцию, и отладку программы. Провести структурное тестирование программы (тестирование как белого ящика): составить тестовые наборы для тестирования

- в нормальных условиях,

- при граничных условиях,

- при некорректных входных данных,

- по критерию покрытия решений – результат проверки каждого условия принимал значение истина или ложь хотя бы один раз,

- по критерию покрытия условий – все возможные результаты каждой логической операции в условиях были получены хотя бы по одному разу.

1. Получить результат.
2. Оформить отчет по лабораторной работе.

Пример оформления работы

1. Ввести с консоли строку символов. Определить количество цифр в этой строке и найти их сумму.

Начальные значения суммы summa и количества count сбрасываем на ноль. Определим длину введенной строки str, используя функцию Length(str). После этого будем рассматривать строку поэлементно: если очередной элемент - это цифра, то добавляем ее в сумму summa и увеличиваем количество цифр count на единицу. Для определения того, является ли очередной элемент строки цифрой, можно использовать операцию вхождения во множество цифр In [0..9] или коды элементов: код нуля – это 48, код единицы – это 49, и так далее. Найденные цифры, их количество и сумму вывести на экран.

2. Схема алгоритма решения задачи:

3. Код программы

3.1. На языке Паскаль:

Program Variant_0;

Uses WinCrt;

Var str: String;

s: String[1];

c: Char;

error: Integer;

i, k, n, summa, count: Word;

Begin

WriteLn('Лабораторная работа №5_1');

WriteLn('Вариант №0');

WriteLn('ИС-11-1');

WriteLn('Пупкин Василий');

WriteLn;

WriteLn('Введите строку символов:');

ReadLn(str);

WriteLn;

n:=Length(str); {определяем длину строки}

summa:=0; {начальные значения суммы и количества цифр - на ноль}

count:=0;

WriteLn('Найденные цифры:');

For i:=1 To n Do {просмотр строки - поиск цифр}

Begin

c:=str[i]; {очередной элемент строки - данное симв типа}

s:=str[i]; {в односимвольной строке s - очередной элемент}

If (c In ['0'..'9']) Then {если очередной элемент - цифра}

Begin

count:=count+1; {увеличиваем количество найденных цифр}

val(s,k,error); {преобразуем строку в число}

summa:=summa+k; {увеличиваем сумму на найденную цифру}

Write(k:3); {выводим найденную цифру на экран}

End; {If}

End; {For}

WriteLn;

WriteLn('summa=', summa);

WriteLn('count=', count);

End.

3.2. На языке Си:

#include <stdio.h> //директивы препроцессора

#include <conio.h>

#include <math.h>

#include <string.h>