Задачи на Pascal

  • Автор темы levchik1984
  • Дата начала

BugrovR

Субарист
Сен
5
18
нужно проверять т.к. это все написано в блокноте без проверок
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

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

BugrovR

Субарист
Сен
5
18
Найти все трехзначные числа средняя цифра которых равна сумме первой и третей цифр
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

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

BugrovR

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

_kj_

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

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

NickSchumacher

Новичок
Июн
22
0
даешь решение на Ассемблере блеать ! ))))
вот это будут реал программеры, а не всякие делфисты и си шарперы
п.с. я не программер, но учился на инженер-математика, к 3му курсу понял, что не мое, но научился учиться - считаю это главнее всего

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

True

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

BugrovR

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

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

BugrovR

Субарист
Сен
5
18
Описать функцию 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

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

BugrovR

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

KliM

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

levchik1984

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

Nivl

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

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

KliM

Субарист
Мар
4
18
в свои годы я также думал и даже книжку купил, но..))))
 

BugrovR

Субарист
Сен
5
18

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

levchik1984

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

True

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

BugrovR

Субарист
Сен
5
18
по факториалам это функция, тебе нужно написать программу и вызывать эту функцию как бы все просто, но чуть подумать тоже нужно
по ссылке там вроде 8-ая лаба описано как использовать процедуры и функции
 
Войдите или зарегистрируйтесь для ответа.
Меню
Вход
Регистрация