HOME ПРИМЕРЫ THANKS НОВИЧКАМ ДОКИ LINKS JavaScript Mail


 
В этот день много лет назад...
27 апреля. В 1970 году (54 года назад) - Председатель КГБ Юрий Андропов докладывает в ЦК: "Юбилейные торжества, посвященные 100-летию со дня рождения Ленина, по всей стране прошли организованно в обстановке высокой активности, трудового и политического подъема советских людей, еще раз продемонстрировавших нерушимое единство и сплоченность вокруг Центрального Комитета КПСС. Вместе с тем в период подготовки и проведения торжеств в ряде районов страны зафиксировано 155 политически вредных, хулиганских действий. Хулиганствующими элементами уничтожены или повреждены несколько памятников, бюстов и барельефов вождя, значительное количество панно, стендов и транспарантов, а также портретов, лозунгов, плакатов, стенгазет. За подобные политически вредные и хулиганские действия 70 человек привлечено к уголовной ответственности, 65 профилактировано и 7 взято в проверку. В 18 случаях проявления носили исключительно дерзкий характер и преследовали цель омрачить празднование советскими людьми 100-летия со дня рождения основателя Советского государства".
 
 

Уголок начинающего программиста

 Вступление  Массивы  Условный оператор  Файлы  Формулы  Циклы  Процедуры  Множества  Строки
В данном разделе приводятся программы, написанные посетителями данного сайта. Идея данного раздела принадлежит Валерию из города Новотроицк Оренбургской области, который прислал мне письмо, в котором предложил публиковать его программы, мотивировав это тем, что на сайте не хватает простых, элементарных программ. А поскольку он все-равно будет "мучаться", то чтоб труд не пропадал зря, он предложил размещать его примеры на сайте. Мне эта идея понравилась и вот первая партия программ размещена в данном новом разделе. Я постараюсь снабжать программы комментариями, если что-то можно сделать в программах лучше. Я не обещаю проверять данные программы на работоспособность, компилируя их, но просматривать на предмет ошибок обязательно буду.

Модератор.


Задач в выбранных темах: 66

 
  1. Написать программу поиска максимального элемента и его индексов в одномерном массие.
  2. Напишите программу поиска максимального и минимального элементов одномерного массива и их индексов.
  3. Напишите программу поиска максимального элемента одномерного массива и его индекса. Массив сформировать как константу.
  4. Требуется упорядочить массив T(20) по невозрастанию.
  5. Требуется найти первый положительный элемнт массива F(30). Использовать оператор while.
  6. Требуется найти первый положительный элемнт массива F(30). Не использовать оператор while.
  7. Требуется поменять местами k и n строки массива L(10,20) где k и n задаются с терминала.
  8. Создать список жильцов дома.

    1. Описать и вывестимассив, содержащий 10 записей следующий структуры: фамилия, внесенная кварплата(руб), номер счета, номер квартиры.
    2. Вывестимассив в табличном виде.
    3. Вывести список жильцов, фамилии которых начинаются на заданную букву.
    4. Найти общую сумму внесенной платы.

  9. Составить программу вычисления суммы положительных элементов одномерного массива a[n] вещественных чисел.
  10. Составьте прог-му вычисления суммы индексов нулевых элементов одномерного массива a[n] вещественных чисел.
  11. Составьте прог-му подсчета числа отрицательных элементов одномерного массива a[n] вещественных чисел.
  12. Составьте прог-му подсчета числа элементов одномерного массива, превосходящих среднее арифметическое элементов данного массива.
  13. Cоставить прог-му, заменяющую единицей все нулевые элементы массива a[n] вещественных чисел.
  14. Составить прог-му, проверяющую, есть ли среди элементов массива a[n] те, которые принадлежат интервалу (c,d).
  15. Составить программу циклической перестановки элементов одномерного массива a[n], при которой i-ый элеент становится i+1-м, а последний элемент становится первым.
  16. Составить прог-му построения массива b[n], состоящего из тех же элементов, что и массив a[n], но в котором все отрицательные элементы предшествуют всем положительным.
  17. Составить прог-му генерирования массива b[1..m], состоящего только из отрицательных элементов одномерного массива a[n] вещественных чисел.
  18. Найти самую длинную последовательность из одинаковых чисел в массиве.
  19. При вводе возраста от 0 до 99 программа должна подобрать нужное слово: лет, года или год. Пример: 21 год, 11 лет, 2 года и т.д.
  20. Найти большее из четырех введенных чисел
  21. Составить программу которая по названию месяца определяет сезон времени года.
  22. Составить программу для определения четности ли нечетности заданного числа.
  23. Составить программу для определения четности ли нечетности заданного числа. В случае не четности числа выводить его знак.
  24. По введенному с клавиатуры виду транспорта (маршрутное такси - 5 руб., трамвай - 2 руб, автобус - 3 руб, такси - 40руб) определить стоимость проезда для указанного колличесва людей в одном транспорте.
  25. Ревизия: По введенному с клавиатуры виду транспорта (маршрутное такси - 5 руб., трамвай - 2 руб, автобус - 3 руб, такси - 40руб) определить стоимость проезда для указанного колличесва людей в одном транспорте.
  26. По введенным координатам точки установить её местоположение на координатной плоскости. Задачка на условный оператор if-else.
  27. Сколько чисел, оканчивающихся на 0 есть в промежутке от a до b
  28. Дан текстовый файл. Найти в файле все лова длиннее пяти букв. Результат записать в другой текстовый файл.
  29. Условие: Дан текстовый файл. Найти в файле слова, начинающиеся и заканчивающиеся на "а".
  30. Дан текстовый файл. Найти в файле все слова-палиндромы.
  31. Cоздать текстовый фаqл. Заполнить его введенным с клавиатуры числом строк, и
    дописать файл самы длинной строкой, вывести на экран измененный файл.

  32. Формульный счет. Найти и напечатать числа.
  33. Формульный счет. Найти и напечатать числа.
  34. Напечатать сумму, сумму модулей, модуль суммы, разность, разность модулей, произведение двух чисел.
  35. Протабулировать функцию y = sin(x) на отрезке [a b] с шагом h. При вводе не подходящих чисел возвращаться к вводу чисел.
  36. Протабулировать функцию y = sin(x) на отрезке [a b] с шагом h. Использовать цикл while При вводе не подходящих чисел возвращаться к вводу чисел.
  37. Составьте программу вычисления значения функции y = f на отрезке [a,b] в точках Xi = a + i*h, где h = (b-a)/m, где m заданное целое число. Найти среднееарефметическое значение y на отрезке [a, b]. Y=tg(x/2)+cos(x), A=0, B=pi/2, m=20.
  38. По введенной дате в формате ДД ММ ГГГГ определить день недели.
  39. Ввести число и четные цмфры этого числа уменьшить вдвое.
  40. получить и напечатать последовательность натуральных чисел, образованную по следующему правилу: каждое число в последовательности, начиная с третьего, получается сложением двух предыдущих чисел.(напр.1+2=3+2=5+3=8+5=13)
  41. Вывести каждое третье число в промежтке от ста до одного.
  42. Составить программу нахождения наибольшего общего делителя двух чисел М и Р, пользуясь алгоритмом Евклида
  43. Составьте программу в которой при помощи функции находится max(2x,3x-10, max(x2-x,x3-x2-3x), max(a-x, x-a)) при заданных с терминал х и а.
  44. Составьте программу в которой при помощи функции находится максимальный элемент массивов А(22), Р(12), Т(33), затем общий максимальный элемент, затем при помощи процедуры все отрицательные элементы каждого из трех массивов замените на модуль первого элемента соответствующего массива для массивов А(22), Р(12), Т(33). Предусмотреть вывод на экран исходных и измененных массивов.
  45. В матрице А(4,8) определить с помощью функции разность между максимальным и минимальным элементом каждой строки и записать в дополнительный столбец в основной программе. Предусмотреть вывод начального массива и массива после дозаписи.
  46. Создать файл из 5 чисел разного знака. Подсчитать сумму
    положительных чисел. Дописать созданный файл этой суммой.

  47. Сформировать множество А и В, базовый тип которых 0..50, по заданному числу элементов для каждого множества. Найти число и сумму элементов, принадлежащих одновеменно и А и В. Выведите на экран все элементы множества А Не пренадлежащие В.
  48. Дана строка в виде предложения, причем известно что слова отделены друг от друга пробелами. Предложение заканчивается точкой. Сформировать массив состоящий из слов исходного предложения. Вывести слова предложения колличесво букв в которых четно. Посчитать сколько слов начинается с буквы 'T'
  49. Пусть в массиве F хранятся фамилии 25 студентов группы а в массиве A - их адреса(начиная с названия улици и заканчивая номером квартиры или номером дома). Вывести всех проживающих на проспекте ленина.
  50. В произвольном тексте A: string определить, какие цифры встречаются вывести их.
  51. СТРОКИ: Напишите программу подсчета суммарного числа бука "а" и "б" в данной строковой переменной. Вывести на экран каких букв больше.
  52. СТРОКИ: Задано предложение Y, состоящее из слов-строк. Проверить, встречается
    ли данное слово X в предложении Y.

  53. СТРОКИ: Дано предложение-строка. Подсчитать количество слов, начинающихся с буквы "а".
  54. Написать прог-му, подсчитывающую, сколько раз в данном слове X встречается (в качестве его части) слово Y.
  55. Написать прог-му, которая каждый встречающийся в строке заданный символ заменяет на заданную последовательность символов, расширяя при этом строку.
  56. Строки: Задано предложение-строка. Написать прог-му, которая находит самое длинное и самое короткое слово, встречающееся в предложении.
  57. Строки: Написать прог-му, вычеркивающую из данного текста все буквы "а".
  58. Строки: Написать прог-му, которая проверяет в строке баланс открывающих и закрывающих круглых скобок (строка содержит арифмет. выражение)
  59. Строки: Написать прог-му, которая каждую встреченную букву "б" заменяет сочетанием "ку".
  60. Строки: Предложение состоит из слов-строк. НАписать прог-му, которая подсчитывает кол-во слов в предложении.
  61. Из данного предложения вычеркнуть слова, встречающиеся больше одного раза.
  62. Написать прогу, проверяющую, является ли частью данного слова слово "сок". Ответ дать в формате "да/нет".
  63. Дано слово. Определить, сколько различных букв в нем.
  64. В строке заменить все двоеточия точкой запятой и подсчитать количество замен.
  65. Дана строка содержащая текст, заканчивается точкой. Вывести на экран слова содержащие три буквы.
  66. Bычислить сколько pаз каждое слово встpечается во введенной стpоке.

Страница 7


  1.  Условие задачи

    Ревизия: По введенному с клавиатуры виду транспорта (маршрутное такси - 5 руб., трамвай - 2 руб, автобус - 3 руб, такси - 40руб) определить стоимость проезда для указанного колличесва людей в одном транспорте.
Решение

program transport;
uses crt;
var x, a:integer;
    begin
    clrscr;
    writeln('введите номер соответсвующей вашему запросу:');
    writeln('1-маршрутное такси');
    writeln('2-транвай');
    writeln('3-автобус');
    writeln('4-такси');
    readln(x);
    writeln('введите колличесво пассажиров');
    readln(a);
    writeln('общая стоимость проезда=');
    case x of
    1:if a>12 then write(a*5,', ', 'используется более одного транспорта')
    else writeln(a*5);
    2:writeln(a*2);
    3:writeln(a*3);
    4:if a>4 then
    if a mod 40 <>0 then
    write(((a div 4)*40  )+40, 'используется более одного транспорта')
    else write((a div 4)*40, 'используется более одного транспорта')
    else writeln('40')
    end;
    readkey
    end.

Комментарии

1. Форматирование:

    4:if a>4
        then
          if a mod 40 <>0
            then write(((a div 4)*40  )+40, 'используется более одного транспорта')
            else write((a div 4)*40, 'используется более одного транспорта')
        else writeln('40')
    end;

2. Используйте значимые имена переменных. х не говорит ничего, однако transport_type сразу проясняет о чем идет речь. Желательно заменить также а на n_people.
3. Используйте константы вместо числовых литер в программах. Опять же 2:writeln(a*2); не говорит ни о чем, однако если написано type_streetcar:writeln(n_people*streetcar_fare);, человек читающий данный код легко поймет о чем идет речь.
4. Если придерживаться пп. 1 и 2, то меньше будет в программах ляпов, таких как
if a mod 40 <>0
Наверняка имелось в виду:
if a mod 4 <>0
а запись
if a mod taxi_capacity <>0
не дала бы вам ошибиться.
5. Для такси внутренний оператор сравнения лишен смысла. Можно написать:

4:begin
  write(40*(1+trunc((a-1)/4)));
  if (a>4) then
    write(' используется более одного транспорта.');
  writeln;
  end;

или с учетом 1,2:

type_taxi:
  begin
  write(taxi_fare*(1+trunc((n_people-1)/taxi_capacity)));
  if (n_people > taxi_capacity) then
    write(' используется более одного транспорта.');
  writeln;
  end;

6. Можно пойти еще дальше и ввести специальный тип:

type transport = record
  capacity:integer; { вместимость }
  fare:real;        { плата за проезд }
  fare_per_person:boolean; { true если каждый пассажир платит отдельную
    плату, false если идет оплата средства транспорта. }
  end;
var route_taxi, streetcar, bus, taxi : transport;
  begin
  route_taxi.capacity := 12;
  route_taxi.fare := 5.0;
  route_taxi.fare_per_person := true;

  streetcar.capacity := 170; { для примера 170 человек }
  streetcar.fare := 2.0;
  streetcar.fare_per_person := true;

  bus.capacity := 120;
  bus.fare := 3.0;
  bus.fare_per_person := true;

  taxi.capacity := 4;
  taxi.fare := 40.0;
  taxi.fare_per_person := false;

а потом написать специальную процедуру, подсчитывающую плату за проезд:

procedure printFare(n_people:integer,tr:transport);
var fare:real;
  begin
  if (tr.fare_per_person) then { каждый платит за себя }
    fare:=n_people * tr.fare
  else { плата за всю машину }
    fare:=tr.fare * (1+trunc((n_people-1)/tr.capacity));
  write(fare);
  if (n_people>tr.capacity) then
    write(' используется более одного транспорта, ');
  end;

и тогда вся программа может быть записана так:

  writeln('общая стоимость проезда=');
  case x of
    1:printFare(n_people,route_taxi);
    2:printFare(n_people,streetcar);
    3:printFare(n_people,bus);
    4:printFare(n_people,taxi);
  end;

Более того, здесь отчетливо напрашивается объектно-ориентированное решение. И я рад возможности проиллюстрировать использование объектов на данном простом примере.

const
  type_route_taxi = 1;
  type_streetcar  = 2;
  type_bus        = 3;
  type_taxi       = 4;
type transport = object
  capacity:integer; { вместимость }
  fare:real;        { плата за проезд }
  fare_per_person:boolean; { true если каждый пассажир платит отдельную
    плату, false если идет оплата средства транспорта. }
  constructor init(_capacity:integer;_fare:real;_fare_type:boolean);
  procedure printFare(n_people:integer);
  end;

constructor transport.init(_capacity:integer;_fare:real;_fare_type:boolean);
  begin
  capacity:=_capacity;
  fare:=_fare;
  fare_per_person:=_fare_type;
  end;

procedure transport.printFare(n_people:integer);
var fare_tot:real;
  begin
  if (fare_per_person) then { каждый платит за себя }
    fare_tot:=n_people * fare
  else { плата за всю машину }
    fare_tot:=fare * (1+trunc((n_people-1)/capacity));
  write(fare_tot:7:2);
  if (n_people>capacity) then
    write(' (используется более одного транспорта) ');
  end;

var route_taxi, streetcar, bus, taxi : transport;
    transport_type, n_people:integer;
begin
  { конструктры }
  route_taxi.init(12,5.0,true);
  streetcar.init(170,2.0,true);
  bus.init(120,3.0,true);
  taxi.init(4,40.0,false);

  writeln('введите номер соответсвующей вашему запросу:');
  writeln('1-маршрутное такси');
  writeln('2-трамвай');
  writeln('3-автобус');
  writeln('4-такси');
  readln(transport_type);
  writeln('введите колличесво пассажиров');
  readln(n_people);
  writeln('общая стоимость проезда=');
  case transport_type of
    type_route_taxi :route_taxi.printFare(n_people);
    type_streetcar  :streetcar.printFare(n_people);
    type_bus        :bus.printFare(n_people);
    type_taxi       :taxi.printFare(n_people);
  end;
end.

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

to top

  1.  Условие задачи

    По введенным координатам точки установить её местоположение на координатной плоскости. Задачка на условный оператор if-else.
Решение
Автор: strike

uses crt;
var x,y: longint;
begin
clrscr;
write('Input X,Y: ');readln(x,y);
if x=0 then if y=0 then write('в начале координат')
            else write('на оси ОY')
else if y=0 then write('на оси ОX')
     else if x>0 then if y>0 then write ('в углу I')
                       else write('в углу IV')
          else if y>0 then write('в углу II')
                else write('в углу III');
readln
end.

Комментарии

1. Тут без форматирования тяжело понять, что к чему.

uses crt;
var x,y: longint;
begin
clrscr;
write('Input X,Y: ');readln(x,y);
if x=0
  then if y=0
    then write('в начале координат')
    else write('на оси ОY')
  else if y=0
    then write('на оси ОX')
    else if x>0
      then if y>0
        then write ('в углу I')
        else write('в углу IV')
      else if y>0
        then write('в углу II')
        else write('в углу III');
readln
end.




to top

  1.  Условие задачи

    Сколько чисел, оканчивающихся на 0 есть в промежутке от a до b
Решение
Автор: strike

Uses crt;
       Var a,b,i,t: integer;
       Begin
        write(‘введите числа a и b: ’);readln(a,b);
        t:=0;
        for i:= a to b do if i mod 10=0 then t:=t+1;
        write(‘количество чисел: ’,t);
        readln;
        end.

Комментарии

ОК. Если в условии задачи ничего не сказано про оптимальное решение. Потому как оптимальным было бы:
if (a mod 10 = 0) then i:=1 else i:=0;
t:=i + abs(a-b) mod 10;
Да, кстати, если в вашем примере a>b, то решение будет неверным.

to top

  1.  Условие задачи


    Дан текстовый файл. Найти в файле все лова длиннее пяти букв. Результат записать в другой текстовый файл.
Решение
Автор: strike

uses crt;
var f1,f2 :text;
    s,s1 :string;
procedure algoritm(s:string; var s1:string);
  var t :string;
  begin
  t:=copy(s,1,pos(s,' ')-1);
  delete(s,1,pos(s,' '));
  if length(t) > 5 then s1:=s1+t;
  end;
begin
assign (f1,'ex.txt');reset(f1);
assign (f2,'ex2.txt');rewrite(f2);
while not eof(f1) do begin
                     readln(f1,s);
                     algoritm(s,s1);
                     writeln(f2,s1);
                     end;
close(f1);
close(f2);
end.

Комментарии

1. ОК. Единственное, как мне кажется, в результирующем файле слова окажутся без пробелов. Надо писать:
  if length(t) > 5 then s1:=s1+t+' ';


to top

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

 

 

 

Задач в выбранных темах: 66

 
  1. Написать программу поиска максимального элемента и его индексов в одномерном массие.
  2. Напишите программу поиска максимального и минимального элементов одномерного массива и их индексов.
  3. Напишите программу поиска максимального элемента одномерного массива и его индекса. Массив сформировать как константу.
  4. Требуется упорядочить массив T(20) по невозрастанию.
  5. Требуется найти первый положительный элемнт массива F(30). Использовать оператор while.
  6. Требуется найти первый положительный элемнт массива F(30). Не использовать оператор while.
  7. Требуется поменять местами k и n строки массива L(10,20) где k и n задаются с терминала.
  8. Создать список жильцов дома.

    1. Описать и вывестимассив, содержащий 10 записей следующий структуры: фамилия, внесенная кварплата(руб), номер счета, номер квартиры.
    2. Вывестимассив в табличном виде.
    3. Вывести список жильцов, фамилии которых начинаются на заданную букву.
    4. Найти общую сумму внесенной платы.

  9. Составить программу вычисления суммы положительных элементов одномерного массива a[n] вещественных чисел.
  10. Составьте прог-му вычисления суммы индексов нулевых элементов одномерного массива a[n] вещественных чисел.
  11. Составьте прог-му подсчета числа отрицательных элементов одномерного массива a[n] вещественных чисел.
  12. Составьте прог-му подсчета числа элементов одномерного массива, превосходящих среднее арифметическое элементов данного массива.
  13. Cоставить прог-му, заменяющую единицей все нулевые элементы массива a[n] вещественных чисел.
  14. Составить прог-му, проверяющую, есть ли среди элементов массива a[n] те, которые принадлежат интервалу (c,d).
  15. Составить программу циклической перестановки элементов одномерного массива a[n], при которой i-ый элеент становится i+1-м, а последний элемент становится первым.
  16. Составить прог-му построения массива b[n], состоящего из тех же элементов, что и массив a[n], но в котором все отрицательные элементы предшествуют всем положительным.
  17. Составить прог-му генерирования массива b[1..m], состоящего только из отрицательных элементов одномерного массива a[n] вещественных чисел.
  18. Найти самую длинную последовательность из одинаковых чисел в массиве.
  19. При вводе возраста от 0 до 99 программа должна подобрать нужное слово: лет, года или год. Пример: 21 год, 11 лет, 2 года и т.д.
  20. Найти большее из четырех введенных чисел
  21. Составить программу которая по названию месяца определяет сезон времени года.
  22. Составить программу для определения четности ли нечетности заданного числа.
  23. Составить программу для определения четности ли нечетности заданного числа. В случае не четности числа выводить его знак.
  24. По введенному с клавиатуры виду транспорта (маршрутное такси - 5 руб., трамвай - 2 руб, автобус - 3 руб, такси - 40руб) определить стоимость проезда для указанного колличесва людей в одном транспорте.
  25. Ревизия: По введенному с клавиатуры виду транспорта (маршрутное такси - 5 руб., трамвай - 2 руб, автобус - 3 руб, такси - 40руб) определить стоимость проезда для указанного колличесва людей в одном транспорте.
  26. По введенным координатам точки установить её местоположение на координатной плоскости. Задачка на условный оператор if-else.
  27. Сколько чисел, оканчивающихся на 0 есть в промежутке от a до b
  28. Дан текстовый файл. Найти в файле все лова длиннее пяти букв. Результат записать в другой текстовый файл.
  29. Условие: Дан текстовый файл. Найти в файле слова, начинающиеся и заканчивающиеся на "а".
  30. Дан текстовый файл. Найти в файле все слова-палиндромы.
  31. Cоздать текстовый фаqл. Заполнить его введенным с клавиатуры числом строк, и
    дописать файл самы длинной строкой, вывести на экран измененный файл.

  32. Формульный счет. Найти и напечатать числа.
  33. Формульный счет. Найти и напечатать числа.
  34. Напечатать сумму, сумму модулей, модуль суммы, разность, разность модулей, произведение двух чисел.
  35. Протабулировать функцию y = sin(x) на отрезке [a b] с шагом h. При вводе не подходящих чисел возвращаться к вводу чисел.
  36. Протабулировать функцию y = sin(x) на отрезке [a b] с шагом h. Использовать цикл while При вводе не подходящих чисел возвращаться к вводу чисел.
  37. Составьте программу вычисления значения функции y = f на отрезке [a,b] в точках Xi = a + i*h, где h = (b-a)/m, где m заданное целое число. Найти среднееарефметическое значение y на отрезке [a, b]. Y=tg(x/2)+cos(x), A=0, B=pi/2, m=20.
  38. По введенной дате в формате ДД ММ ГГГГ определить день недели.
  39. Ввести число и четные цмфры этого числа уменьшить вдвое.
  40. получить и напечатать последовательность натуральных чисел, образованную по следующему правилу: каждое число в последовательности, начиная с третьего, получается сложением двух предыдущих чисел.(напр.1+2=3+2=5+3=8+5=13)
  41. Вывести каждое третье число в промежтке от ста до одного.
  42. Составить программу нахождения наибольшего общего делителя двух чисел М и Р, пользуясь алгоритмом Евклида
  43. Составьте программу в которой при помощи функции находится max(2x,3x-10, max(x2-x,x3-x2-3x), max(a-x, x-a)) при заданных с терминал х и а.
  44. Составьте программу в которой при помощи функции находится максимальный элемент массивов А(22), Р(12), Т(33), затем общий максимальный элемент, затем при помощи процедуры все отрицательные элементы каждого из трех массивов замените на модуль первого элемента соответствующего массива для массивов А(22), Р(12), Т(33). Предусмотреть вывод на экран исходных и измененных массивов.
  45. В матрице А(4,8) определить с помощью функции разность между максимальным и минимальным элементом каждой строки и записать в дополнительный столбец в основной программе. Предусмотреть вывод начального массива и массива после дозаписи.
  46. Создать файл из 5 чисел разного знака. Подсчитать сумму
    положительных чисел. Дописать созданный файл этой суммой.

  47. Сформировать множество А и В, базовый тип которых 0..50, по заданному числу элементов для каждого множества. Найти число и сумму элементов, принадлежащих одновеменно и А и В. Выведите на экран все элементы множества А Не пренадлежащие В.
  48. Дана строка в виде предложения, причем известно что слова отделены друг от друга пробелами. Предложение заканчивается точкой. Сформировать массив состоящий из слов исходного предложения. Вывести слова предложения колличесво букв в которых четно. Посчитать сколько слов начинается с буквы 'T'
  49. Пусть в массиве F хранятся фамилии 25 студентов группы а в массиве A - их адреса(начиная с названия улици и заканчивая номером квартиры или номером дома). Вывести всех проживающих на проспекте ленина.
  50. В произвольном тексте A: string определить, какие цифры встречаются вывести их.
  51. СТРОКИ: Напишите программу подсчета суммарного числа бука "а" и "б" в данной строковой переменной. Вывести на экран каких букв больше.
  52. СТРОКИ: Задано предложение Y, состоящее из слов-строк. Проверить, встречается
    ли данное слово X в предложении Y.

  53. СТРОКИ: Дано предложение-строка. Подсчитать количество слов, начинающихся с буквы "а".
  54. Написать прог-му, подсчитывающую, сколько раз в данном слове X встречается (в качестве его части) слово Y.
  55. Написать прог-му, которая каждый встречающийся в строке заданный символ заменяет на заданную последовательность символов, расширяя при этом строку.
  56. Строки: Задано предложение-строка. Написать прог-му, которая находит самое длинное и самое короткое слово, встречающееся в предложении.
  57. Строки: Написать прог-му, вычеркивающую из данного текста все буквы "а".
  58. Строки: Написать прог-му, которая проверяет в строке баланс открывающих и закрывающих круглых скобок (строка содержит арифмет. выражение)
  59. Строки: Написать прог-му, которая каждую встреченную букву "б" заменяет сочетанием "ку".
  60. Строки: Предложение состоит из слов-строк. НАписать прог-му, которая подсчитывает кол-во слов в предложении.
  61. Из данного предложения вычеркнуть слова, встречающиеся больше одного раза.
  62. Написать прогу, проверяющую, является ли частью данного слова слово "сок". Ответ дать в формате "да/нет".
  63. Дано слово. Определить, сколько различных букв в нем.
  64. В строке заменить все двоеточия точкой запятой и подсчитать количество замен.
  65. Дана строка содержащая текст, заканчивается точкой. Вывести на экран слова содержащие три буквы.
  66. Bычислить сколько pаз каждое слово встpечается во введенной стpоке.

 

 

 

HOME EXAMPLES