Строка вводится с клавиатуры(максимум 99 символов). Первое слово должно быть с маленькой буквы или первая и последняя буквы этого слова не должны совпадать(иначе такое слово как Test не засчитается). Также будет засчитываться одна буква(abc d efg, буква d подходит, так как она и первая и последняя)
#include <iostream>
using std::cout;
using std::cin;
using std::endl;
#include <cstring>
using std::strtok;
using std::strlen;
int main()
{
char a[100], *ptr;
cout << "Enter the string:" << endl;
cin.getline(a, 100);
cout << endl;
ptr = strtok(a, "., ");
while(ptr)
{
if(*ptr == *(ptr + strlen(ptr) - 1))
{
cout << ptr << ' ';
}
ptr = strtok(NULL, "., ");
}
cout << endl;
return 0;
}
1. Научиться организовывать ввод и вывод одномерного массива.
2. Осуществлять типовые действия над одномерными массивами (подсчет суммы, произведения элементов массива и т. д).
3. Осуществлять поиск в массиве (максимального элемента, минимального элемента, элемента с заданными свойствами).
4. Осуществлять перестановки элементов в массиве.
Программное обеспечение: Pascal (TP или BP), или ABCPascal, или FreePascal.
Аппаратное обеспечение: ЭВМ типа IBM.
Порядок выполнения работы
1. Записать тему и цель лабораторной работы.
2. Ознакомиться с краткими теоретическими сведениями по теме лабораторной работы.
3. ответить на контрольные вопросы (ответы на контрольные вопросы оформить в отчет).
Выполнить практическую часть работы.
Задание №1. Обработка одномерных массивов.
Задание №2_Обработка 2-х массивов
Оформить отчет о проделанной работе. К одной любой задаче разработать блок-схему.
6. Защитить работу и сдать ее преподавателю.
Контрольные вопросы
1. Что такое массив? Какие виды массивов вам известны.
2. Приведите пример описания одномерного массива.
3. Что называют элементом массива? Элементы какого типа может содержать массив? Сколько элементов может содержать массив?
4. Что называют индексом элемента массива? Какие типы данных допустимы для индексов элементов массива? Сколько индексов может быть у одного элемента массива?
5. Какие из приведенных описаний одномерных массивов являются не правильными и почему?
a) Var a: Array[1..20] of Integer; b) Var sd:Array[1..3.5] of Integer; c)Var a: Array[-6..20] of char; d) Var dd:Array[1] of integer;
6. Сколько элементов в каждом из следующих массивов
a) Var mb: Array[2..20] of Integer; b)Var myarray2[-5..5] of real;
7. Дан одномерный целочисленный массив А из пяти элементов:
program array3;
const
L = 1;
H = 10;
var
n, i, s: Integer;
A1, A2, A3: array [L..H] of Integer;
begin
Randomize;
for i := L to H do begin
A1 [i] := Random (10);
A2 [i] := Random (10);
A3 [i] := Random (10);
end;
WriteLn ('Первый массив:');
for i := L to H do
Write (A1 [i], ' ');
WriteLn;
WriteLn ('Второй массив:');
for i := L to H do
Write (A2 [i], ' ');
for i := L to H do
if (i < 2) or (i > 7) then
A3 [i] := A1 [i]
else
A3 [i] := A2 [i];
WriteLn;
WriteLn ('Результирующий массив:');
for i := L to H do
Write (A3 [i], ' ');
WriteLn;
ReadLn;
end.
Объяснение:
const
L = 1;
H = 10;
устанавливаются размерности для массивов, здесь можно их изменить