Паскаль

[Psayker]

Здравствуйте, пожалуйста помогите! Это всё хвосты, если не сдам мне ... Прошу, не откажите в помощи!
1.Напишите программу, которая определяет, входит ли заданная цифра во введенное трехзначное число.
Во втором задании должен быть оператор case.
2.Напишите программу, которая по введенному с клавиатуры символу определяет, является ли он строчной или прописной, латинской или русской буквой, цифрой или относится к прочим символам.
А эти задания на 1.while и 2.repeat...until
3.Известно время начала и окончания работы автобусного маршрута с одним автобусом на линии (например, 6:00 и 23:30), а также протяженность маршрута в один конец (в минутах) и время отдыха на конечных остановках. Напишите программу, которая составляет суточное расписание этого маршрута (моменты отправления с конечных пунктов) без учета времени на обед и пересмену.
4.Напишите программу, которая для заданных значений a и p вычисляет , используя рекуррентную формулу Ньютона: x0 = a. Сколько итераций надо выполнить, чтобы для заданной погрешности ξ выполнялось соотношение ?
5.Напишите программу вывода таблицы квадратов чисел от 1 до N с шагом K
6.Напишите программу, которая создает таблицы стоимости товара в диапазоне от 1 до 100 штук. Цена единицы товара вводится.
Пожалуйста только пишите с объясниниями, я наконец хочу разобраться в этом паскале, а то я в нём вообще ни чего не понимаю!

[Stilet]

1.Напишите программу, которая определяет, входит ли заданная цифра во введенное трехзначное число.

Допустим так:

var i,k:integer; s2,s:string; err:integer;
begin
 i:=234; k:=3;
 str(i,s); str(k,s2);
 if pos(s2,s)<>0 then write('Есть') else writeln('нет');
end.

[Psayker]

Сообщение от Stilet

Допустим так:

var i,k:integer; s2,s:string; err:integer;
begin
 i:=234; k:=3;
 str(i,s); str(k,s2);
 if pos(s2,s)<>0 then write('Есть') else writeln('нет');
end.

А ты можешь объяснить где что?

[Stilet]

Могу, Это перевод числа в строку (str) и поиск цифры в строке (pos)

[Psayker]

Сообщение от Stilet

Могу, Это перевод числа в строку (str) и поиск цифры в строке (pos)

Спасибо, теперь я хоть преподу это объясню=)

[maladoy]

{Напишите программу, которая по введенному с клавиатуры символу определяет, 
является ли он строчной или прописной, латинской или русской буквой, цифрой или 
относится к прочим символам.}
var a:char;
begin
readln(a);
case a of							{начало оператора выбора}
  'a'..'z': writeln('строчная латинская');
  '0'..'9': writeln('цифра');
  'а'..'я': writeln('строчная русская');
  'A'..'Z': writeln('Прописная латинская');
  'А'..'Я': writeln('Прописная русская')
  else writeln('прочие символы');
  end; 							{конец оператора выбора}
readln;
end.

//Напишите программу вывода таблицы квадратов чисел от 1 до N с шагом K
var i,n,k:integer;
begin
readln(k,n);
i:=1;
repeat
 writeln(i,'_',sqr(i));
 i:=i+k;
until i>n;
end.

//Напишите программу, которая создает таблицы стоимости товара
// в диапазоне от 1 до 100 штук. Цена единицы товара вводится.

var i:integer;
    cost:real;
	sum:real;
begin	
readln(cost);
for i:=1 to 100 do begin
sum:=i*cost;
write (i:6, sum:6:2);
writeln;
end;
end.

{3.Известно время начала и окончания работы автобусного маршрута с одним автобусом на линии 
(например, 6:00 и 23:30), а также протяженность маршрута в один конец (в минутах) 
и время отдыха на конечных остановках. 
Напишите программу, которая составляет суточное расписание этого маршрута 
(моменты отправления с конечных пунктов) без учета времени на обед и пересмену.}
var i,path,otdyh,ch,min:integer;
begin
i:=360;// 6:00 в минутах
readln(path,otdyh);
repeat 
ch:=i div 60;
min:=i-ch*60;
writeln(ch:3,':',min:3);
i:=i+path+otdyh;
until i>1410; // 23:30 в минутах
readln;
end.

[Psayker]

Спасибо огромное, вы меня выручили!

[Psayker]

Вот ещё:
1.Вычислите значение функции на заданом интервале с шагом H=0,5. Z=100ln x-ln y, где y=2.0; 1<=x<=4
Печать оформить в виде таблици значений x и y.
2.Найти произведение ненулевых членов последовательности: ln(1.1+sin5), ln(1.1+sin10),..., ln(1.1+sin100)
3.Дана последовательность: cos7, cos9,..., cos99.
Найти количество неотрицательных элементов и их порядковый номер.
4.Найти минимальный член последовательности и его порядковый номер:
a(k)=0,75sintk+1,3cos(k+1), где k=1,2,...,6; t=0,5
5.Напишите программу, которая определяет, пройдет ли шар радиуса r через ромбовидное отверстие с размерами диагоналей ромба p и q.

Это задания так, для себя решил разобрать. Но всё равно не могу понять. Помогите разобраться!

[maladoy]

выкладывайте свои попытки! и читайте правила раздела!!!

[IT-man]

1. 
y:=2;
writeln('x   y   z ');
for i:=2 to 8 do begin
x:=i*0.5;
z:=100*ln(x)-ln(y);
writeln (x:6:3,y:4:2,z:6:3);
end;
2
p:=1;
for i:=1 to 20 do begin
l:=ln(1.1+sin(i*5));
if l<>0 then p:=p*l
end;
3
i:=7;
k:=1;
l:=1;
repeat 
if cos(i)>=0 then begin
  write(l:4);//Вывод номеров
  inc(k); // увеличение количества 
end;
inc(l);
i:=i+2;
until i<99;
writeln(k);	 

4
for i:=1 to 6 do 
a[i]:=0,75sin(0.5*i)+1,3cos(i+1);
min:=a[1]; mini:=1;
for i:=2 to 6 do
if a[i]<min then begin min:=a[i];
imin:=i;
end;
writeln(min,imin);