Задачи на Pascal

BugrovR · 6 Фев 2014

нужно проверять т.к. это все написано в блокноте без проверок

1. Площадь круга
Program CircleS;
Uses Crt;
const
Pi=3.14159265358979;

var S,C,D,r:real;

begin

Clrscr;

write('Введите длину окружности C:');

readln(C);
//обманулся я тут
//D := S/Pi;
//r:= D/2;
//S:=C/2*r;
r:=L/2*Pi;
S:=Pi*Sqr(r);
//вроде так
writeln('Площадь круга равна:',S);

end.

BugrovR · 6 Фев 2014

а вообще топик стартеру предлагаю погуглить форумы типа делфикингдом киберфорум и т.п.
в свое время я жил на них

все задачи которые тут а также много других уже давно решены и гуляют по сети, кто-то даже и продает их

BugrovR · 6 Фев 2014

Найти все трехзначные числа средняя цифра которых равна сумме первой и третей цифр
program z_number;
uses crt;
var CounterI: word;
begin
clrscr;
writeln('Все трехзначные числа средняя цифра которых равна сумме первой и третей цифр');
for CounterI := 110 to 990 do
if ((CounterI mod 10) + (CounterI div 100) = (CounterI div 10 mod 10) ) then
writeln(CounterI);
readln;
end.

4-ая задача
program arrays;
var first,last : byte;

begin

first:=0;
last:=0;

for i=2 to i < 10 do
if (A[1] < A AND A < A[10]) then
begin
if (first = 0) first:=i;
last:=i;
end;

writeln ('первый индекс =',first,' последний =',last);

end;

еще одна

// Дана строка.
// Если она представляет собой запись целого числа,
// то вывести 1, если вещественного (с дробной частью) — вывести 2;
// если строку нельзя преобразовать в число, то вывести 0.
// Считать, что дробная часть вещественного числа отделяется от его целой части
// десятичной точкой «.».
Program String19;
var
i:integer; // счетчик в цикле
temp :integer; // количество точек
otvet:integer; // результат
er:boolean; // флаг ошибки
S:string;
begin
// ввод данных
Write('Введите строку S ');
readln(S);
// решение
// начальное значение
otvet:=0;
temp:=0;
er:=true;
// цикл прохода по строке
for i:=1 to length(S) do
begin
case S of
'1','2','3','4','5','6','7','8','9': otvet:=1; // если цифра
'.':inc(temp); // если точка
else er:=false; // если иной символ
end;
end;
if temp>1 then er:=false; // если много точек
otvet:=otvet+temp; // сумма покажет какое число целое или вещественное
// вывод результата
if er then Writeln('Ответ :',otvet)
else Writeln('Ответ : 0');
end.

Nivl · 6 Фев 2014

Фу, паскаль... Его еще где-то преподают?
Сейчас нормальные учебные языки: Ruby, Python, C/C++, Java

BugrovR · 6 Фев 2014

Дык это ж самые азы, не васик же преподавать
С++ у него позже будет и будут классы проходить

_kj_ · 6 Фев 2014

Топик-стартер, если ты на прикладную информатику учится пошел, то просто обязан такие задачки решать влет. Так что не ленись, вникай и решай! А насчет паскаля - у меня, например, в универе только C/C++ был и asm x86, чему я очень рад

ЗЫ. Перепись программеров СТИ-клуба

NickSchumacher · 6 Фев 2014

даешь решение на Ассемблере блеать ! ))))
вот это будут реал программеры, а не всякие делфисты и си шарперы

п.с. я не программер, но учился на инженер-математика, к 3му курсу понял, что не мое, но научился учиться - считаю это главнее всего

автору - не очкуй, учись, логику прочувствуешь и все будет гуд !

True · 6 Фев 2014

Ну у нас на первом курсе тоже паскаль был...правда в виде лаб по вышке...и асм. А дальше просто учили пользоваться информацией и мозгами...а инструментарий каждый выбирал сам, кто си кто дельфу...но и год был правда 1998-2003

BugrovR · 7 Фев 2014

_kj_ написал(а):
Топик-стартер, если ты на прикладную информатику учится пошел, то просто обязан такие задачки решать влет. Так что не ленись, вникай и решай! А насчет паскаля - у меня, например, в универе только C/C++ был и asm x86, чему я очень рад

ЗЫ. Перепись программеров СТИ-клуба

у нас в универе сначала паскаль был потом асм потом с++ и T-SQL тоже был, пытались жаву еще преподавать но как то не срослось препод слишком отвлекался

З.Ы. топик стартер задачу "Найти все трехзначные числа средняя цифра которых равна сумме первой и третей цифр"
попробуй решить другим способом только самостоятельно

ну или с помощью гугла

BugrovR · 7 Фев 2014

Описать функцию Fact(N) целого типа, вычисляющую значение факториала N! = 1·2·...·N (N > 0 - параметр целого типа). С помощью этой фунции вычислить факториалы 10 данных чисел.

var
n, i: Integer;

function Fact(n: Integer): LongInt;
var
Factorial: LongInt;
i: Integer;
begin
Factorial:=1;
for i:=1 to n do
Factorial:=Factorial * i;
Fact:=Factorial;
end;

begin
for i:=1 to 10 do
begin
write(i, ' число: ');
readln

;
writeln(n, '! = ', Fact

);
end;
end.

это 7-ая задача по образу и подобию сделай как нужно для твоих условий
http://fmi.asf.ru/Library/Book/LabInf1/Lab7.html

З.Ы. если сам не разберешься что к чему, очень тяжело будет

З.З.Ы.
А это походу методичка ваша да?
http://fmi.asf.ru/Library/Book/LabInf1/Index.html

levchik1984 · 7 Фев 2014

Привет! Спасибо за помощь))) Методичка действительно один в один

BugrovR · 7 Фев 2014

Привет, не за что, все уже решено давно. Задачи лет так 30 уже не меняются я думаю. Давай начинай разбираться сам что к чему. Будут вопросы, задавай, чем сможем поможем

KliM · 7 Фев 2014

Что-то не по зубам мне задачки, хотя если порыться в закромах, почитать старые записи в тетрадях и достать с пыльного харда задачки, то пару штук может и решу ))

levchik1984 · 7 Фев 2014

Есть толстая книжка по турбо паскалю, вот наверное надо начинать читать ее)))

Nivl · 7 Фев 2014

_kj_ написал(а):
А насчет паскаля - у меня, например, в универе только C/C++ был и asm x86, чему я очень рад

Ruby, Java, PHP + T-SQL, Haskel, Prolog, C (вот С++ было на само-подготовке, ООП на Java было), Asm в простейшем виде, еще Lisp, но курс по нему прошел мимо меня
Все языки давались поверхностно - только основы. Под каждую парадигму программирования свой язык. Детальное изучение отводилось на само-подготовку.

Мат алгоритмы, которые лень было писать самим или в случае сложностей, находили на алголисте

KliM · 7 Фев 2014

в свои годы я также думал и даже книжку купил, но..))))

BugrovR · 7 Фев 2014

levchik1984 написал(а):
Есть толстая книжка по турбо паскалю, вот наверное надо начинать читать ее)))

сначала нужно разобраться с составлением алгоритмов, можешь даже блок-схемы порисовать. Как только алгоритм сформируешь, решение уже можно на любом языке программирования нарисовать, это не проблема.

levchik1984 · 7 Фев 2014

Поставил себе паскаль на работе, сейчас вот задачки проверяю, по факториалам не могу понять работает или нет)))

True · 7 Фев 2014

BugrovR написал(а):
сначала нужно разобраться с составлением алгоритмов, можешь даже блок-схемы порисовать. Как только алгоритм сформируешь, решение уже можно на любом языке программирования нарисовать, это не проблема.

+1 книжка это всего лишь инструкция от экскаватора, а вот какой ширины или глубины капать яму, она не поможет...для этого и существует предмет информатика, задача которого научить логичному с точки зрения машины мышлению.

BugrovR · 7 Фев 2014

levchik1984 написал(а):
Поставил себе паскаль на работе, сейчас вот задачки проверяю, по факториалам не могу понять работает или нет)))

по факториалам это функция, тебе нужно написать программу и вызывать эту функцию

как бы все просто, но чуть подумать тоже нужно
по ссылке там вроде 8-ая лаба описано как использовать процедуры и функции

Добро пожаловать в Sti Club!

Задачи на Pascal

BugrovR

Субарист

BugrovR

Субарист

BugrovR

Субарист

Nivl

Субарист

BugrovR

Субарист

_kj_

Новичок

NickSchumacher

Новичок

True

Повелитель STI-хий

BugrovR

Субарист

BugrovR

Субарист

levchik1984

Субарист

BugrovR

Субарист

KliM

Субарист

levchik1984

Субарист

Nivl

Субарист

KliM

Субарист

BugrovR

Субарист

levchik1984

Субарист

True

Повелитель STI-хий

BugrovR

Субарист