Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Инфоурок / Информатика / Другие методич. материалы / Годовые задачи с решением для ввода в среду программирования Turbo Pascal

Годовые задачи с решением для ввода в среду программирования Turbo Pascal


  • Информатика

Документы в архиве:

Название документа Задачи по паскалю.docx

Поделитесь материалом с коллегами:

Задачи для ввода в среду программирования Turbo Pascal

Задача 1.
Напишите программу ввода трёх произвольных чисел X, Y и Z с клавиатуры. Если X больше Z, то вывести на экран сумму X и Y, иначе вывести на экран значение Z.
Решение:
program Project1;
uses
var
x, y, z, rez: real;
begin
{Вод значений с клавиатуры}
write('Wwedi X:'); readln(x);
write('Wwedi Y:'); readln(y);
write('Wwedi Z:'); readln(z);
{Сравниваем значения по условию задачи}
if x > z then rez:= x + y else rez:= z;
{Выводим результат на экран}
writeln(rez:0:2);
readln;
 {Задержка закрытия программы}
end.

Задача 2.
Напишите программу ввода с клавиатуры трёх произвольных чисел X,Y,Z. Программа должна найти наименьшее число из введённых, и вывести его на экран.
Решение:

program Project1;
uses
var
x, y, z, min: real;
begin
{Вод значений с клавиатуры}
write('Wwedi X:'); readln(x);
write('Wwedi Y:'); readln(y);
write('Wwedi Z:'); readln(z);
{Присваиваем начальное значение минимуму}
min:= x;
{Делаем проверку}
if min > y then min:= y;
if min > z then min:= z;
{Выводим результат на экран}
writeln('Minimum = ', min);
readln;
 {Задержка закрытия программы}
end.






Задача 3.
Длина прямоугольного участка земли равна X метров, а ширина равна Y метров. Напишите программу вычисления количества досок для забора на заданном участке, если ширина доски равна 10 сантиметров.
Решение:

program Project1;
uses
var
x, y, rez: real;
begin
{Вод значений с клавиатуры}
write('Wwedi dlinu X:'); readln(x);
write('Wwedi shirinu Y:'); readln(y);
{Вычисляем периметр участка}
rez:= 2*x + 2*y;
{Вычисляем нужное количество досок}
rez:= rez/0.1;
{Выводим результат на экран}
writeln('Chislo dosok = ', rez:0:2);
readln;
 {Задержка закрытия программы}
end.


Краткое описание документа:

Иногда нужна помощь для составлении задачи, решение которой нужно написать на языке программирования Pascal. Конечно понимание как пишутся программы должно быть у каждого учителя информатики, но ведь сложно с первого раза взять и написать программу, которая еще и выполнится!!!

Вот хорошая шпаргалка!!!

Автор
Дата добавления 24.08.2016
Раздел Информатика
Подраздел Другие методич. материалы
Просмотров270
Номер материала ДБ-164625
Получить свидетельство о публикации


Включите уведомления прямо сейчас и мы сразу сообщим Вам о важных новостях. Не волнуйтесь, мы будем отправлять только самое главное.
Специальное предложение
Вверх