Задачи на паскале [Turbo Pascal]

[zaharovart]

всем доброго вечера. собственно нужно помочь верно решить задачи на паскале, базовый курс 11 класса.
за решение отблагодарю 7значными уинами, если же нуждаетесь в деньгах напишите в icq ;)
или же буду очень благодарен за предоставленную помощь.
контакт оставлю ниже задач

задачи помещу в цитаты

1 Задача решена.

2 задача решена.

3 задача
Из трехзначного числа х вычли его послденюю цифру. когда результат разделили на 10, а к частному слева приписали последнюю цифру числа х, то получилось число у.
найти число х по заданному значению числа у. значение у вводится с клавиатуры; 99 < y < 1000; число десятков в у не равно нулю.

4 задача
В трехзначном числе х зачеркнули его второую цифру.
когда к образовавшемуся двухзначному числу влева приписали вторую цифру числа х, то получилось число у. По заданому у найти чисто х.
значение у вводится с клавиатуры; 99 < y < 1000; число десятков в у не равно нулю.

5 задача решена.

6 задача решена

7 задача решена

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

решения задач можно выкладывать прямо в топик или в личку. если же нужны 7 значные номера или оплата деньгами пишите в номер 356-909-444.
всем спасибо.

[.MeDkyshal]

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

1 Задача
Дано трехзначное число. в нем зачеркнули последнюю справа цифру и приписали ее в конце. Найти полученое число.

аххахахахаах спасибо порал от души.
зачеркнули последнюю цифру и ее же опять приписали, аахахахах писец

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

5 задача
С начала суток пришло n секунд. определить, сколько целых часов прошло с начала суток.

b:=n/3600
writeln b:1;
я точно не помню как сделать, чтобы после запятой не было цифр или просто округлить до целой.
b и есть число часов
в шестой очень похоже на это

[Ronaldo]

2 задача

var
sin,s_out:string;
begin
repeat
writeln('Enter 4 digit');
readln(sin);
until length(sin) = 4;
s_out:='0000';
s_out[1]:=sin[3];
s_out[2]:=sin[4];
s_out[3]:=sin[1];
s_out[4]:=sin[2];
writeln(s_out);
end.

нагуглил, чего и тебе советую, в инете полно такого добра...

[zaharovart]

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

1. Задача
Uses crt;
Var a,b,c,d:integer;
Begin;
ClrScr;
Writeln ('вводим число а'); readln(a);
b:=a mod 10;
c:= (a div 10) mod 10;
d:= a div 100;
a:=b*100+d*10+c;
Writeln ('=',a);
Readln;
End.

То или не то?

все абсолютно верно. только вместо
Uses crt; пишем program qq;
после begina символ ";" не ставится
с переменной "ClrScr;" программа не запускается. убрал эту переменную чтоб запустилось, первая цифра переходит на второе место. должна быть на последнем

[xo0x]

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

все абсолютно верно. только вместо Uses crt; пишем program qq; после begina символ ";" не ставиться с переменной "ClrScr;" программа не запускается. убрал эту переменную чтоб запустилось, первая цифра переходит на второе место. должна быть на последнем

а как мне решить 3 задачу?

[zaharovart]

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

например как:

sin,s_out:string;
repeat
s_out[4]:=sin[2];
writeln(s_out);

спасибо конечно за помощь.
1 задача решена.
решение:

var i,p: integer;
begin
readln (i);
p:= i div 100;
i:= i mod 100;
i:= i*10+p;
write (i);
end.

[Fresh1k]

#6

program Project2;
var x:integer;
begin
writeln ('Vvedit chislo'); readln(x);
writeln ('Chislo tisyach ravno = ',x div 1000);
writeln ('Chislo soten ravno = ',(x div 100)mod 10);
writeln ('Chislo desyatkov ravno = ',(x div 10)mod 10);
writeln ('Chislo edinic = ',(x div 1)mod 10);
readln
end.

[Ronaldo]

4 задача вроде так

var x, s, d, e: integer;
begin
write('Введите трехзначное число ->');
readln(x);
e:=x mod 10;
d:=x div 10 mod 10;
s:=x div 100;
writeln('Новое число = ', d*100+s*10+e);
end.

[zaharovart]

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

#6

program Project2;
var x:integer;
begin
writeln ('Vvedit chislo'); readln(x);
writeln ('Chislo tisyach ravno = ',x div 1000);
writeln ('Chislo soten ravno = ',(x div 100)mod 10);
writeln ('Chislo desyatkov ravno = ',(x div 10)mod 10);
writeln ('Chislo edinic = ',(x div 1)mod 10);
readln
end.

спасибо тебе. введу некую поправочку:

var x:integer;
begin
writeln ('Vvedit chislo'); readln(x);
writeln ('Chislo tisyach ravno = ',x div 1000);
writeln ('Chislo soten ravno = ',(x div 100)mod 10);
writeln ('Chislo desyatkov ravno = ',(x div 10)mod 10);
writeln ('Chislo edinic = ',(x mod 10));
readln
end.

и задача решена

Добавлено через 12 минут
Ronaldo, спасибо за решение четвертой задачи. осталась задача №3

[Ronaldo]

задача 3 вроде так, лень проверять, проверь на паскале

program fuck;
var x,y:integer;
begin
writeln ('Vvedite chislo'); readln(y);
x := (x div 10);
if y >= 100 then x := y mod 10 * 100
else x := y mod 10 * 10;
writeln ('Chislo = ',x);
readln
end.

[zaharovart]

переменных else не было. нужен упрощенный вариант

[[rod-on]]

zaharovart, выложи пожалуйста, все задачи, в т.ч. решенные, я щя Паскалю обучаю человека, пригодится

[Grutal]

zaharovart

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

все абсолютно верно. только вместо
Uses crt; пишем program qq;
с переменной "ClrScr;" программа не запускается. убрал эту переменную чтоб запустилось,

ClrScr это процедура, которая содержится в модуле crt и естественно убрав uses crt; получаем обибку о неизвестной процедуре. Зачем же вместо, если program qq; можно в начале всунуть? просто это всегда опускают, если прогу пишут на коленке, а не в паскале :)