Задание (см ссылка).

  • —Подготовиться к нулевому срезу.
  • Принести тонкую тетрадь в клетку (у кого нет).

 

  1. В двумерном массиве А(4,4) найти наибольший элемент, лежащий на главной диагонали.

  2. Дан массив А(5,5). Для данного натурального М найти сумму тех элементов массива, сумма индексов которых равна М (М – вводится с клавиатуры).

  1. Ввести с клавиатуры строку символов. Напечатать каждое слово в отдельной строке.

  2. Ввести с клавиатуры строку символов. Выяснить: есть ли в строке цифры? Вывести отдельно на экран в обратном порядке эти цифры и подсчитать их сумму.

  3. Составить программу, которая при выводе строки удаляла бы все знаки препинания.

  4. Составить программу, которая из слова «globus» удалит слог «glo» и вставит вместо него слог «avto».

  5. В строке между словами вставить вместо пробела запятую и пробел. Подсчитать количество пробелов. 

  6. Ввести с клавиатуры строку символов. Выяснить: есть ли в строке цифры? Вывести отдельно на экран эти цифры и подсчитать их количество.

  7. Ввести с клавиатуры строку символов. Подсчитать в строке количество слов. (Слова отделяются друг от друга одним или несколькими пробелами).

  8. Ввести с клавиатуры вещественное число. Определить, как часто в этом числе встречаются отдельные цифры.

  9. Ввести с клавиатуры строку символов. Напечатать отдельной строкой первое слово в обратном порядке.

  10. Ввести с клавиатуры строку символов. Выяснить: есть ли в строке цифры? Вывести отдельно на экран эти цифры и подсчитать их сумму.

  1. Создать и напечатать одномерный массив случайными числами от 0 до 15 и вывести на экран те из них, которые больше 10.

  2. Создать и напечатать одномерный массив случайными числами от 0 до 10 и вывести на экран те из них, которые больше последнего элемента массива.

  3. Создать и напечатать одномерный массив случайными числами от 0 до 9. Если есть в нем элементы, равные 3, то заменить их последующими числами.

Составить программы:

  1. Найти максимальный элемент массива, состоящего из 10 элементов.

  2. Все отрицательные элементы массива заменить на их квадраты.

  3. В массиве b1, b2, ..., b45 найти количество чисел, меньших 10.

Составить программы, используя функцию:

  1. Расчитать значение х = fun.

  2. Составить программу для вычисления суммы членов геометрической прогрессии.

  3. Даны стороны двух треугольников. Найти сумму их периметров и сумму их площадей.

Скоро

Задача: Составить программу вычисления площади четырехугольника.

Решение:

 

programPrim;

var AB, BC, CD, DA, AC, S1, S2: real;

Procedure Ploshad3(var a,  b,  c, s  :real);

   var p:real;

     begin

       p:=(a+b+c)/2;

       s:=sqrt(p*(p-a)*(p-b)*(p-c));

     end;

begin

Writeln('Задайте стороны 4-угольника ABCD и его диагональ AC');

readln (AB, BC, CD, DA, AC);

  Ploshad3(AB , BC , AC , S1);

  Ploshad3(DA,  AC,  CD,  S2);

  Writeln ('Площадь ABCD= ', S1+S2:8:2);

  readln;

  end.

Задача: Составить программу ...

Задача подпрограммы

Задание для самостоятельного решения:

Составить программу: треугольник задан координатами вершин, вычислить  периметр и площадь. Вычисление длин сторон оформить с помощью процедуры.
Объяснение к задаче
Общий вид программы
 
            Структура программы на Паскале имеет следующий вид:
 
            Program <имя программы>;
            [ Раздел описаний]
            Begin
            [Список команд]
            End.
             
Примечание.
 
Принято использовать угловые скобки — < > — для указания на то, что параметр является обязательным и квадратные скобки — [ ] — для указания на то, что параметр может быть опущен.

Подробнее: Краткий справочник по Pascal  

Подготовиться к нулевому срезу.



Материал взят с сайта Единая коллекцию ЦОР

Облако тегов

 

Ваше имя
Ваш E-mail
Файл для отправки
Число на картинке

Чат

© 2018 Блог Каракулиной Наталии. Все права защищены.
Joomla! - бесплатное программное обеспечение, распространяемое по лицензии GNU General Public License.