Чтобы научиться программировать, не достаточно прочитать книгу, посвященную языку программирования, надо писать программы, решать конкретные задачи. Но где их можно найти? В учебниках, как правило, приводятся типовые, стандартные задачи, в основе которых лежит расчет по формулам. Такие задачи, несомненно, полезны, но они не всегда интересны.
В данной книге начинающему программисту предлагаются задачи, которые, с одной стороны ему по плечу, с другой — полезны и занимательны.
Книга состоит из трех частей и приложения.
В первой части собраны задачи. Они сгруппированы по темам и относятся практически ко всем разделам программирования: от объявления переменных и программ с линейной структурой до работы с графикой и файлами.
Во второй части приведены решения, представленные в виде хорошо документированных текстов программ, изучение которых поможет начинающему программисту даже в том случае, если задача решена им самостоятельно.
Третья часть представляет собой справочник по языку программирования Turbo Pascal, содержащий описание большинства процедур и функций.
Coding in Pascal in The Modern Age
Если вы имеете компьютер с процессором типа Pentium (Celeron), то используйте Turbo Pascal версии 7.1. Программы, созданные при помощи Turbo Pascal 7.0 и использующие библиотеку ctr, на компьютерах с процессором типа Pentium (Celeron) не работают, при их запуске возникает ошибка «деление на ноль».
Еще раз хочется повторить, что научиться программировать можно только программируя, т. е. решая конкретные задачи.
Поэтому, чтобы получить максимальную пользу от книги, вы должны работать с ней активно. Решайте задачи. Изучайте приведенные решения. Вводите их в свой компьютер. Не бойтесь экспериментировать — вносите изменения в программы.
Чем большую работу вы проделаете самостоятельно, тем большему научитесь.
Группы задач следуют в книге в том порядке, в котором традиционно изучаются соответствующие разделы в курсе программирования. Поэтому перед тем как приступить к решению задач нужно изучить соответствующую тему — прочитать раздел учебника. Если сразу решить задачу не получается, то можно посмотреть ее решение и затем еще раз попытаться решить задачу самостоятельно. Писать программу лучше сначала на бумаге, а уже затем вводить программу в компьютер.
Задача считается решенной, если программа работает так, как сказано в условии задачи.
Важно, чтобы решенная задача была правильно оформлена. Это предполагает:
использование несущих смысловую нагрузку имен переменных, констант и функций;
применение отступов при записи инструкций программы;
использование комментариев.
Правильно оформленную программу легче отлаживать, кроме того, она производит хорошее впечатление.
Приведенные в книге решения задач можно рассматривать как образцы правильного оформления.
Типизированные константы — перейти
Процедуры и функции — перейти
Модули — перейти
Объекты — перейти
Программа для решения корней квадратного уравнения с использованием дискриминанта на языке Паскаль
Другие возможности Турбо Паскаля — перейти
Встроенный ассемблер — перейти
Использование библиотеки CRT — перейти
Использование библиотеки GRAPH — перейти
Fore kc .ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий
Источник: tpascal7.ru
Pascal. Задачи с решением
Сборник задач с решением по языку программирования Pascal (Паскаль). Задачи сгруппированы по темам «Линейные алгоритмы», «Условия», «Циклы», «Массивы», «Матрицы», «Строки», «Файлы», «Функции». Каждая последующая тема предполагает знание материала предыдущей, но не наоборот. Так тема «Условия» не содержит задач с циклами. Однако тема «Циклы» включает задачи, в которых есть как циклы, так и условия.
Среди упражнений есть классические алгоритмы — сортировки, нахождение наибольшего общего делителя и наименьшего общего кратного, вычисление факториала, вывод ряда Фибоначчи и др.
Для компиляции и проверки решений задач использовался компилятор FreePascal.
Последнее обновление
31 янв. 2023 г.
Образование
Безопасность данных
arrow_forward
Чтобы контролировать безопасность, нужно знать, как разработчики собирают ваши данные и передают их третьим лицам. Методы обеспечения безопасности и конфиденциальности могут зависеть от того, как вы используете приложение, а также от вашего региона и возраста. Информация ниже предоставлена разработчиком и в будущем может измениться.
Источник: play.google.com
Первые N простых чисел
Задача 2.66
Дано натуральное число Х. Записать в массив А первые N простых чисел, которые меньше или равны Х. Вывести на экран массив А.
Что такое простое число, я пояснил здесь. Там же мы разработали функцию, которая проверяет, является ли число простым. Для решения задачи мы можем заполнить массив числами от 2 до Х, а затем перебрать массив, проверяя числа на простоту, и записывая в массив А только простые числа.
Пожалуй, так мы и поступим, хотя существуют специальные алгоритмы для нахождения списка всех простых чисел до какого-то числа Х, например, решето Эратосфена. Но мы не в древней Греции, у нас есть компьютеры, и мы можем писать для них программы. Так что не будем заморачиваться, а просто переберём все числа в массиве и проверим их.
Правда, остался ещё один вопрос — какой должна быть длина массива? В идеале она должна быть равна Х-1, так как единица не является простым числом. Однако число Х вводит пользователь, в этом случае мы не будем знать заранее длину массива, и нам придётся использовать динамические массивы. Но это немного усложнит программу, поэтому мы выберем более простой путь: установим длину массива, например, 1000 элементов, и будем проверять число Х, введённое пользователем. Если оно будет больше 1000, то будем выдавать пользователю сообщение о невозможности выполнить программу.
Ну а теперь примеры программ Паскале и С++.
Решение задачи 2.66 на Паскале
program mytask; const MAX_X = 1000; var X : WORD; i, j : WORD; M : array[2..MAX_X] of WORD; A : array[2..MAX_X] of WORD; //**************************************************************** // Проверяет, является ли число простым // ВХОД : N — число // ВЫХОД : TRUE — число N простое, FALSE — не простое //**************************************************************** function IsPrimeNumber(N : WORD) : boolean; var i : WORD; begin Result := TRUE; case N of 0..3 : begin if N < 2 then Result := FALSE; //Не простое число Exit; end; end; for i := 2 to (N-1) do if (N mod i) = 0 then //Не простое число begin Result := FALSE; Break; end; end; //******************************************************************* // ОСНОВНАЯ ПРОГРАММА //******************************************************************* begin //Ввод числа Write(‘Введите число от 2 до 1000: ‘); ReadLn(X); //Проверка числа if (X < 2) or (X >MAX_X) then begin WriteLn(‘Число должно быть более 1 и менее ‘, MAX_X); WriteLn(‘Нажмите ENTER для выхода. ‘); ReadLn; Exit; //Выйти из программы, если число неправильное end; //Подготавливаем массивы for i := 2 to MAX_X do begin if i Inc(j); end; //Выйти из цикла, когда достигли Х if i > X then Break; end; //Выводим простые числа из массива А for j := 2 to X do begin //Прервать цикл, если чисел больше нет if A[j] = 0 then Break; //Вывести очередное число Write(A[j], ‘ ‘); end; WriteLn(#10#13’Нажмите ENTER для выхода. ‘); ReadLn; end.
Решение задачи 2.66 на С++
#include #include using namespace std; const int MAX_X = 1000; //**************************************************************** // Проверяет, является ли число простым // ВХОД : N — число // ВЫХОД : TRUE — число N простое, FALSE — не простое //**************************************************************** bool IsPrimeNumber(int N) < bool Res = true; switch (N) < case 0 : Res = false; break; case 1 : Res = false; break; case 2 : Res = true; break; case 3 : Res = true; break; default : for (int i = 2; i < N; i++) if (0 == (N % i)) //Не простое число < Res = false; break; >> return(Res); > //******************************************************************* // ОСНОВНАЯ ПРОГРАММА //******************************************************************* int main(int argc, char *argv[]) < unsigned int X = 0; unsigned int i = 0, j = 0; unsigned int M[MAX_X-1]; unsigned int A[MAX_X-1]; setlocale(LC_ALL, «Russian»); //Ввод числа cout > X; //Проверка числа if ((X < 2) || (X >MAX_X)) < cout //Подготавливаем массивы for (i = 0; i < MAX_X; i++) < if ((i+2) j = 0; //Ищем простые числа и записываем их в массив А for (i = 0; i < MAX_X; i++) < if (IsPrimeNumber(M[i])) < A[j] = M[i]; j++; >//Выйти из цикла, когда достигли Х if ((i+2) > X) break; > //Выводим простые числа из массива А for (j = 0; j < (X-1); j++) < //Прервать цикл, если чисел больше нет if (A[j] == 0) break; //Вывести очередное число cout cout
Ну и картинка с примером результата:
Можно, конечно, что-то упростить, попытаться найти готовые алгоритмы и т.п. Но это решение рабочее, и, с моей точки зрения, более понятное для начинающих.
Источник: info-master.su