Всем привет!
Значит так, мне нужно выучить Паскаль или хотябы самое важное в нем за буквально 1,5 месяца!
Из школы я знаю команды типа writeln и readln ну и еще десяток. Литературу собственно я достал и уже приступил к изучению.
Но вот даже и не знаю что с этим делать, всмысле со знаниями, может кто нибудь придумает для меня задачку?
Только не типа вывести "Hello world!" на экран а что-то посложнее чтобы во время выполнения этой задачи я бы смог много чему научиться!
Зарание спасибо

Хм... попался ты мне. вот держи:

Задача №1 (простенькая....)
Даны два числа m и n. Известно, что m/n - неправильная дробь. Задача: сократить эту дробь и выделить целую часть. Входные параметры - два числа (m,n). выходные - целая часть и оставшаяся несократимая правильная дробь.
Пример:
Вход: 33 6
Выход:5 1 2 (5 - челая часть, и дробь 1/2)

Как решишь дам еще задачку...

хм у мне есть 2 вопроса:

1) А как ты можешь выдать дробь подобную 1/2 ведь паскаль считает все в десятичных то есть в данном случае он выведт 0,5!

2) Составил прогу (конечно алгоритм не самый лучший) но что то она глючит насчет последнего действия:

Код

program calc; uses crt; var f,g,d:real; m,n:integer; begin clrscr; writeln('vvedite 2 4isla'); readln(m,n); d:=m/n; g:=trunc(d);   (* Это выводит целую часть от деления!*) f:=m mod n;  (*Здесь хранится остаток от деления*) f:=f/n;     (*А вот тут он ддолжен становиться 0,5 но нет - почемуто не считает!!!!!*) writeln(g:2:0,f:2:0); (* вывожу цифры но последняя выводится не корректоно!*) readln; end.

Очень странно если проследить по действиям то все должно работать в принципе! Может это какая то специфика языка? Или я чето торможу?

PHP-Script Вот тебе подборка задач, по которым меня учил преподаватель. Это - основа основ. Ты начни с самого простого (это именно типа Hello World). Решай, выкладывай сюда решения, а я буду проверять.
Добавлено @ 22:29
З.Ы. Переименуй файл Simple в файл Simple.rar

Присоединённый файл ( Кол-во скачиваний: 17 )
 SIMPLE

Цитата(PHP @ 6.3.2005, 19:56)

А как ты можешь выдать дробь подобную 1/2 ведь паскаль считает все в десятичных то есть в данном случае он выведт 0,5

Вот так:

Код

program pr; uses crt; var  i1,i2:integer; {входные данные}  i:integer; {целая часть}  r:real; {остаток от деления}  r1:real; {знаменатель} Begin  clrscr;  writeln('Введите 2 числа через пробел:');  write('Вход:'); readln(i1,i2);  i:=i1 div i2; {Более простой способ подсчёта целой части}  r1:=1; {счётчик знаменателя}  r:=(i1-i*i2)/i2; {остаток от деления}  while (r*r1-int(r*r1))<>0 do    r1:=r1+1;  writeln('Выход:',i,' ','1 ',r1:0:0);  readkey End.

PHP-Script И еще: насколько я понял, тебе это для олимпиады нужно? Тогда не используй модуль CRT. Но олимпиадах это запрещено. Тем более, это нужно только для того, чтоб очистить экран.
Добавлено @ 22:33
Да. Тебе еще нужно узнать не в первую, но во вторую очередь, как работать с текстовыми файлами. Прочитай в книге либо создай тему, я объясню.
Добавлено @ 22:37
Вот те задачи которые я тебе дал - за два-три дня порешай. А то и быстрее. А потом я тебе еще олимпиадных подкину.

Код

var tch, zn: integer; t: integer; i:integer; begin readln(tch, zn); t:= tch div zn;  {получили целую часть} tch:=tch - t * zn; {получили числитель} i:=2; while i <= tch do  begin   if (tch mod i = 0) and (zn mod i = 0)    then     begin      tch:=tch div i;      zn:=zn div i;      end;    inc(i)   end; if t <> 0  then   write(t, ' '); writeln(tch, ' ', zn); readln; end.

может это более прозрачный код...


Добавлено @ 22:38
Про CRT... Это еще зависит от конкретной олимпиады и комиссии... Иногда можно и юзать... Иногда нет...

Ну спасибо вам - решили задачку я аж поумнел все паскаль знаю на 100%

Вот тебе еще две задачи на закуску...

Цитата

Множество символов I-ричной системы счисления (2 <= I <= 36) образуют символы 0, ..., 9, A, B, ..., Z. Если I < 36, то соответствующее количество последних букв латинского алфавита в качестве цифр не используются. Если I < 10, то не используются соответствующие цифры. Необходимо написть программу, которая по двум текстовым строкам, означающим одно и то же число в I-ричной и J-ричной системе счисления, определяет минимальные значения I и J. Пример входных данных: 10 2 Пример выходных данных: 2 3

Цитата

Имеется N точек и известны расстояния между некоторыми из них. Нужно написать программу, которая проверяет, можно ли эти точки расположить на плоскости так, чтобы указанные расстояния между ними сохранились. INPUT В файле исходных данных записано количество точчек N (1 <= N <= 100) и расстояния между некоторыми из них ы ыиде номер первой точки, нмер второй точки, расстояние. Расстояние - вещественное неотрицательное число, не превосходящее 1000. Номер точки - целое число из отрезка 1..N. Все числа разделяются проьелами и/или символами перевода строки. OUTPUT Ответом должно быть слово Yes или No соответственно. EXAMPLE INPUT: 3 1 2 10 2 3 20 3 1 100 OUTPUT: No

Это сообщение отредактировал(а) Pakshin A. S. - 6.3.2005, 22:46

Да, кстати, PHP-Script, зайди на acm.timus.ru - зарегься и поздавай там задачи. Очень полезно при подготовке к олмпиаде.

Итак решил такие задачки:
Глава 3 программа CountODD
Подсчитывает все нечетные числа вводимые пользователем:

Код

program countODD; var g,a,b:integer; c:real; begin writeln('vvedite 4islo'); a:=1; while a<>0 do begin readln(a); c:=a mod 2; if c<>0 then inc (g); end; writeln('Est ',g,' ne4etnyh 4isla'); readln; end.

Дальше папка 3 задание MAX
Выводит максимальное число вводимое пользователем:

Код

program MAX; var u,i:integer; a:array[0..9]of integer; begin writeln('vvedite 10 4isel'); i:=0; while (i<=9) do begin readln(a[i]); inc(i); end; i:=a[0]; u:=0; while (u<10) do begin if (a[u]>i) then i:=a[u]; inc (u); end; writeln('naibolshee', i); readln; read; end.

И папка 3 задание whileODD
вводим числа до тех пор пока не введем четное:

Код

program whileODD; label write1; var c,a:integer; begin write1: writeln('vvedite 4islo'); readln(a); c:= a mod 2; if ( c=0) then HALT else goto write1; end.

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

CountOdd
зачем c - real? достаточно integer или byte. К тому же в паскале есть функция

Код

Odd(a:integer):boolean;

Она принимает true когда число нечетное и false когда четное.

Max
Задача вообще прдполагала решение без массива.

WhileOdd
Ну намудрил! Достаточно было просто цикл сделать обычный.
Вообще, наличие лейблов и goto в любом языке (может кроме асма) считается плохим стилем программирования. И лучше этими гото пользоваться только при крайней необходимости если они действительно упрощают программу.
Добавлено @ 02:05
И еще к задаче Max
Если ты делаешь массив и тебе нужно по нему пройтись и ты знаешь колличество елементов в нем, то лучше использовать цикл for. Это как минимум нагляднее.

Да спасибо огромное - хорошая критика.
Все понятно, учту в будущем!

PHP-Script там в одной из папок есть задача subsets. Попробуй - интересная. В этой задаче есть уже не только техника, но нужно и идею найти

Это сообщение отредактировал(а) Fedor - 7.3.2005, 08:48

Слушай а у меня вопрос - как можно в турбо паскале писать на русском языке?? или нужен другой компилятор??