Задание 1: Линейные программы, арифметические операторы
1. Создайте программу, печатающую при запуске текст «Hello, World» (традиционный текст для первой программы при изучении языка программирования, ваша первая программа приветствует мир). Опробуйте на ней возможности среды разработки. Запустите ее (F9), просмотрите результат выполнения, сохраните на диск (Ctrl-S), загрузите с диска снова (Ctrl-O).
Пользуясь копированием через буфер (Ctrl – C, Ctrl – V), сделайте так, чтобы программа выводила слово «Hello» 20 раз. 2. Напишите программы запрашивающую у пользователя два числа и печатающую их сумму. Убедившись, что программа работает, намеренно допустите ошибку, не поставив точку с запятой после какого-нибудь оператора. Обратите внимание на сообщение об ошибке, выданное средой.
Допустите другую ошибку, записав неправильно имя процедуры вывода (например, writln вместо writeln), снова прочитайте текст сообщения об ошибке. Попытайтесь воспользоваться переменной, предварительно ее не описав. Опишите переменную типа integer, попытайтесь присвоить ей нецелое значение.
Линейные программы. Решение задач. Ч.2.
3. Создайте программу, решающую квадратные уравнения. Программа должна запрашивать значения коэффициентов и печатать вычисленные корни. Арифметические операторы 4. Имеется девятиэтажный дом, на каждую лестничную площадку выходит 4 квартиры. Создайте программу, которая по номеру квартиры определяет номер подъезда и этаж.
5. Если дано трехзначное число, например 123 его можно представить в виде 3+2*10+1*10*10. Воспользовавшись этой информацией, создайте программу, которая, получая от пользователя трехзначное число, будет определять из каких цифр оно состоит, и выводить их через пробел (например, 1_2_3). 6. Напишите программу, запрашивающую у пользователя два момента времени (количество часов, минут и секунд) и сообщающую число секунд, прошедшее между этими двумя моментами. 7. Напишите программу, запрашивающую у пользователя время и сообщающую угол поворота минутной и часовой стрелки в градусах и радианах.
. readln; end.
10 комментариев
| Анна | 07.10.2011 в 01:31 | |
| По-моему, в пятом пункте опечатка: «3+2*10+2*10*10». Вместо второй двойки нужна единица. | ||
| Taras | 15.10.2011 в 15:49 | |
| Да. Спасибо, исправил. | ||
| Алексанлдр | 17.07.2014 в 13:30 | |
| 7 верно? Было правильно. Решение удалил. Тарас. |
||
Пример решения задач на Pascal #1
| Андрей | 18.07.2014 в 15:57 | |
| Не понял, а зачем в 7 тригонометрические формулы? Выражение такого типа разве не будет правильным? Было правильно. Удалил. Тарас. |
||
| Taras | 18.07.2014 в 19:50 | |
| Правильно, не нужны они там. Это я что-то перемудрил. Спасибо. | ||
| Роман | 16.01.2015 в 14:54 | |
| Подскажите, пожалуйста, задание 7 решено правильно? Если правильно, то можно ли его решить более простым способом. Спасибо. var h,m: integer; begin writeln(‘введите время в часах h’); write(‘h=’); readln(h); writeln(‘введите время в минутах m’); write(‘m=’); readln(m); writeln(‘через ‘,h,’ часов, ‘,m,’ минут, часовая стрелка будет находится на — ‘ ,(2*pi*1/12*(h+m/60)-2*pi*trunc((h+m/60)*1/12)),’ радианов, или ‘, round(360*1/12*(h+m/60)-360*trunc(1/12*(h+m/60))) ,’ градусов, а минутная стрелка будет находится на — ‘ , (2*pi*1/60*m-2*pi*trunc(m*1/60)),’ радианов, или ‘, round(360*1/60*m-360*trunc(1/60*m)) ,’ градусов.’); end. |
||
| Сергей | 02.04.2015 в 15:06 | |
| Подскажите пожалуйста по задаче со временем, как быть если время указанное начальное время будет скажем 17 часов, а конечное 13 часов. При момем варианте программа выдаст разницу в четыре часа а прошли почти сутки, как это можно в арифметическом варианте реализовать? Спасибо! program semnadcat; var n,x,y,a,b,c:integer; begin write(‘часов= минут= секунд= ‘); readln(n); readln(x); readln(y); write(‘часов= минут= секунд= ‘); readln(a); readln(b); readln(c); write(‘прошло=’,abs((n*3600+x*60+y)-(a*3600+b*60+c))); end. |
||
| Сергей | 05.04.2015 в 11:54 | |
| Добрый день! Проверьте пожалуйста на првильность: program chasi_v_gradusax; var h,m,x:real; begin write(‘часов’); readln(h); write(‘минут’); readln(m); x:=m*0.5+h*30-360*trunc(h/11.5-0.01); writeln(‘часовая стрелка на ‘,x,’ градусов и на ‘,x/(180/pi),’ радиан’); writeln(‘минутная стрелка на ‘,m*6,’ градусов и на ‘,m*6/(180/pi),’ радиан’); end. |
||
| unknovn | 19.10.2015 в 12:02 | |
| S=1+2+3+…+n как решить |
||
| Сергей | 27.11.2016 в 21:13 | |
| Задача №6, пришлось подумать, но все таки решил) Program два_момента; var h,m,s,h1,m1,s1,s2,mom1,mom2: integer; s3: real; begin writeln(‘Напишите программу, запрашивающую у пользователя два момента времени (количество часов, минут и секунд) и сообщающую число секунд, прошедшее между этими двумя моментами.’); writeln(‘Первый момент времени:’); write(‘часов:’);readln(h); write(‘минут:’);readln(m); write(‘секунд:’);readln(s); writeln(‘Второй момент времени:’); write(‘часов:’);readln(h1); write(‘минут:’);readln(m1); write(‘секунд:’);readln(s1); mom1:=(h*60+m)*60+s; mom2:=(h1*60+m1)*60+s1; s2:=mom2-mom1; s3:=abs(86400*((-s2+abs(s2))/2/s2)-s2); writeln(‘Между этими моментами времени прошло ‘,s3,’ секунд.’) end. |
||
Источник: www.tvd-home.ru
Линейные программы на паскале задачи с решением
Вы здесь: Home 
Информатика Программирование Паскаль Примеры задач линейного алгоритма
Главное меню
- Основные сведения об образовательной организации
- Контакты
- Приём в образовательное учреждение
- Организация приёма в 1 классы
- Обучение в условиях COVID19
- Библиотека
- Медико-психолого-педагогическое сопровождение образовательного процесса
- Социальный педагог
- Служба здоровья
- Информационная безопасность
- Реализация проекта в рамках грантовой поддержки
- Противодействие коррупции
- Гостевая книга
- Карта сайта
- Архив
- Главная
Примеры задач линейного алгоритма
Примеры задач линейного алгоритма со вводом данных с клавиатуры
Сосчитать для переменных X, Y и Z сумму, произведение, сумму квадратов и среднее арифметическое
program Ariphmetika2; var X, Y, Z, Summa, Pro, SummaKv, SA: Real; begin ClS; Write(‘Введите X, Y и Z ‘); ReadLn(X, Y, Z); Summa := X + Y + Z; WriteLn(‘Сумма чисел X, Y и Z =’, Summa); Pro := X * Y * Z; WriteLn(‘Произведение чисел X, Y и Z =’, Pro); SummaKv := X * X + Y * Y + Z * Z; WriteLn(‘Сумма квадратов чисел X, Y и Z =’, SummaKv); SA := (X + Y + Z) / 3; WriteLn(‘Среднее арифметическое чисел X, Y и Z =’, SA); WriteLn(‘Good BYE. ‘); end.
program VolumeCil; var R, H: Real; Vol: Real; begin ClS; WriteLn(‘Вычисление объема цилиндра’); WriteLn(‘Введите исходные данные:’); WriteLn; Write(‘Радиус основания (см) —> ‘);ReadLn(R); Write(‘Высота цилиндра (см) —> ‘);ReadLn(H); Vol := Pi * R * R * H; WriteLn(‘Объем цилиндра ‘, Vol:7:2, ‘ куб. см.’); end.
Задачи линейного алгоритма с вводом данных
| 1 | Написать программу сложения трех чисел А, В и С. и их обратных величин. Эти данные вводить с помощью Read. |
| 2 | Написать программу умножения трех чисел А, В и С. и вычисления их суммы. Эти данные вводить с помощью Read. |
| 3 | Написать программу вычисления среднего арифметического трех чисел А, В и С. Эти данные вводить с помощью Read. |
| 4 | Определить объем и площадь боковой поверхности параллелeпипеда для данных вводимых с клавиатуры A, В и Н. |
| 5 | Для задаваемого количества дней (Read DAYS)вывести на печать количества часов и минут. |
| 6 | Haписать программу, которая переводит значение скорости V (вводимого оператором Read) в размерности км/час в размерность м/сек. |
| 7 | Haписать программу, которая переводит значение скорости V (вводимого оператором Read) в размерности м/сек в размерность км/час. |
| 8 | Написать программу для вычисления площади круга радиуса R (вводимого оператором Read). Площадь круга вычисляется по формуле S=pi*R*R Где PI = 3.14159 константа определена в системе |
| 9 | Написать программу для вычисления длины круга радиуса R (вводимого оператором Read). Длина круга вычисляется по формуле L=2*pi*R. Где PI = 3.14159 константа определена в системе. |
| 10 | Написать программу для вычисления площади треугольника по основанию А и высоте Н (вводимых оператором Read). Площадь треугольника равна половине произведения основания на высоту. |
| 11 | Написать программу для вычисления площади трапеции по основанию А и В и высоте Н (вводимых оператором Read). Площадь трапеции равна полусумме оснований умноженной на высоту. |
| 12 | Найти объем шара по его диаметру (вводимого оператором Read) ,если известно , что его обьем равен 4/3*PI*R^3. Где PI = 3.14159 константа определена в системе. |
| 13 | Найти полную поверхность шара по его диаметру (вводимого оператором Read) ,если известно , что его поверхность равна 4*PI*R^2. Где PI = 3.14159 константа определена в системе.. |
Источник: school356.ru