#1 PascalABC.NET - SCHOOL - Первая программа

1. Ilyar •
program smg;
uses crt;
type
Human=class
public
Name:string;
Age:integer;
heilting:integer;
hobi:string;
film:string;
city:string;
game:string;
end;

var
h:human;
begin
h:=new Human;
write('Привет давай знакомитьсярасскажи о себе ? ');
writeln();
write('Как тебя зовут ? ');
readln(h.Name);
writeln('Прекрасно ' , h.Name, '');
Writeln('А теперь скажи сколько тебе лет ? ');
readln(h.Age);
if (h.Age>17) then writeln('Здорово ты уже совершенно летний ')
else
writeln('О да ты ещё мал');
writeln('А где ты живешь ? ');
readln(h.city);
writeln(h.city, ' Это очень красивый город ');
writeln('какое твоё хоби? ');
readln(h.hobi);
writeln('В какую игру ты часто играешь ? ');
readln(h.game);
writeln('Какой у тебя вес ?');
readln(h.heilting);
if (h.heilting>50) then
write('Похудей')
else
write('Нормально весишь');
writeln();
writeln('а какой твой любимый фильм? ');
readln(h.film);
writeln();
writeln();
writeln('Спасибо достаточно ');
writeln('Смотри что получилось ');
writeln('Тебя зовут ',h.Name,'');
writeln('Тебе ',h.Age, 'лет');
writeln('Ты живешь в городе ',h.city, '');
writeln('Твой вес ',h.heilting, '');
writeln('Ты играешь в ',h.game, '');
writeln('Твой хоби ',h.hobi, '');
writeln('Вот и всёДо новых встреч');
end.

2. Вадим •
Pascal не определяет варианты ответов, а именно If определил а else нет, пишите обнаружено else а ожидалось оператор О_о
Вот что у меня получилось и дальше ни как
type
Human=class
public
Name:string;
Age:integer;
Height:integer;
end;
Var
h:Human;
Begin
h:=new Human;
write ('Здравствуйте, как вас зовут? ');
readln(h.Name);
write('Очень приятно). ', h.Name, ', А сколько вам лет? ');
readln (h.Age);
If (h.age>17) then
write ('Отлично))).');
else
write ('Ваш возраст не соответствует требованием ');
write ('Ну ладно, а какой ваш рост? (см):');
readln(h.Height);
write ('');
write ('Ну в общем нам о тебе всё известно.');
write ('Тебя зовут', h.Name);
write ('Тебе', h.Age);
write ('Твой рост' ', h.Heoght, "см"');
write ('');
write ('Спасибо, ', h.Name, '. До свидание');
End.

3. Strontium •
Пишет "строка 18" Ожидалось ';'"
вот исходник:
program man;
const
minAge=18;
type
Human=class
public
Name:string;
Age:integer;
Height:integer;
end;
var
h:Human;
begin
h:=new Human
writeln('Привет Я хочу немного узнать о тебе.');
write('Как тебя зовут: ');
readln(h.Name);
writeln('Прекрасно, ', h.Name, 'а теперь скажи сколько тебе лет: ');
readln(h.Age);
if (H.Age>=minAge) then writeln('Здорово Ты уже совершеннолетний')
else writeln('Ой ты еще совсем мал.');
write('Ладно. А скажи-ка, какой тебя рост (см): ');
readln(H.Height);
writeln();
writeln('Ну вот и все. Мы собрали всю необходимую информацию: ');
writeln('Тебя зовут ', h.Name);
writeln('Твой возраст ', h.Age, 'год(а)/лет');
writeln('Твой рост ', h.Height,'см');
writeln(H.Name, 'программа узнала о тебе :)')
end.

4. SwaT1k •
Что у меня не так то?(
___________________
uses
crt;
const
minAge=18;
type
Human=class
public
Name:string;
Age:integer;
height:integer;
end;
var
h:Human;
begin
h:=new Human
writeln('Привет я хочу узнать немоного о тебе?');
write('Как тебя зовут: ');
readnl(h.Name);
write('Прекрасно, ', h.Name, ', а теперь скажи, сколько тебе лет: ');
readln(h.Age);
if (h.Age>=minAge) then
writeln('ЗдоровоТы уже совершеннолетний')
else
writeln('Ой Да ты ещё совсем мал(а).');
write('Ладно. А скажи-ка, какой у тебя рост (см): ');
readln(h.height);

writeln();
writeln('Ну вот и всё. Мы собрали всё необхдимую информацию:');
writeln('Тебя зовут ', h.Name);
writeln('Тебе ', h.Age);
writeln('Твой рост: ', h.height), ' см');

writeln();
writeln('Спасибо, ', h.Name, '. До новых встреч');
End.

5. Hemp •
Если у кого ошибка с else вот вам поправочка:
readln(h.Age);
if (h.Age>17) then writeln('Ti uzeSoversheno letniy') else writeln('Oi Da ti ese mal.');
write('Ladno.A skasi svoi rost: ');
P.S Я писал транслитом
Кому надо вот мой скрипт:
type
Human=class
public
Name:string;
Age:integer;
Height:integer;
end;
var
h:Human;
begin
h:=new Human;
write('Privet Ya xochu uznat nemnogo o tebe.');
write('Kak teby zovut: ');
readln(h.Name);
write('Prekrasno, ', h.Name, ', a teper skashi, skok tebe let: ');
readln(h.Age);
if (h.Age>17) then writeln('Ti uzeSoversheno letniy') else writeln('Oi Da ti ese mal.');
write('Ladno.A skasi svoi rost: ');
readln(h.Height);
writeln();
writeln('Nu vot i vse .Mi sobrali vsu neobxodimuy infu:');
writeln('Teby zovut ', h.Name);
writeln('Tebe ', h.Age);
writeln('Tvoi rost: ', h.Height, ' sm');
writeln();
writeln('Sps, ', h.Name, '.S toboi bila Alena, BB');
end.

6. Александр •
Var
Year: integer;
name:string;
Weight: integer;
Growth: integer;
begin;
writeln('Введи своё погоняло:');
readln(name);
writeln('Ты теперь моя новая шоха',' ' ,name);
writeln('Сколько тебе лет' ' ' ,name, '?');
readln(Year);
if (Year>17) then
writeln('Ну нихуя ты ферзь большой')
else
writeln('Слушай, да ты еще шкура малая' ' ',name);
writeln('Ну ладно , какой у тебя рост? надоело ты мне чудо заморзкое');
readln(Growth);
if (Growth>165) then
writeln('Пиздец ты шпала')
else
writeln('Полтараха ебаная');
writeln('А весишь то сколько' ' ',name,'?');
readln(Weight);
if (Weight>50) then
writeln('Свинья жирная иди убейся об тумбочку')
else
writeln('Тощая доска ни жопы ни хуя , иди пожри');
end.

7. Alex •
Никчемное видео, тот кто ничего не знал о языке, так ничего и не поймет, а тот кто в теме даже и смотреть не станет. Где обяснение что такое строковая переменная, класс и т.д. Что означают в данном синтаксисе те или иные написанные знаки, все это идет мимо человека, который хочет чему-то научиться. Хорошая иллюстрация того, что не каждый способен донести знание до другого, т.е. не каждый может быть педагогом и обучать других. Лично я бы не хотел обучаться у такого педагога, который самозабвенно пишет код "сам с собой" и отбивает всякое желание обучаться.

8. Jugzzly •
PROGRAM Calculator;
uses crt;
VAR X,Y,Z:REAL;
BEGIN
WRITELN('Въведи X и Y в полето');
READLN(X,Y);
Z:=X+Y;
WRITELN('Стойността на израза е ',Z);
WRITELN('Вие получихте стойността при събиране');
Z:=X-Y;
WRITELN('Стойността на израза е ',Z);
WRITELN('Вие получихте стойността при изваждане');
Z:=XY;
WRITELN('Стойността на израза е ',Z);
WRITELN('Вие получихте стойността при умножение');
Z:=X/Y;
WRITELN('Стойността на израза е ',Z);
WRITELN('Вие получихте стойността при делене');
WRITELN('Край');
END.
Bulgarian Calculator :D

9. Akhma •
type
Human=class
public
Name:integer;
Age:integer;
Growth:integer;
end;
var
h:Human;
begin
h:=new Human;
writeln('Привет,я хочу узнать о тебе');
write('Как тебя зовут: ');
readln(h.Name);
write('Прекрастно,а сколько тебе лет?');
readln(h.Age);
if (h.Age>15) then
writeln('ООО класно')
else
writeln('Маленький еще');
write('Какой у тебя рост?');
readln(h.Growth);
writeln();
writeln('Все свободен');
writeln('you name ' , h.Name);
writeln('you age ' , h.Age);
writeln('you growth ' , h.Growth);
end.
Не могу найти ошибку

10. Panamarev •
Program gg;
var
a,b,c,d:string;
Humen:string;
Name:string;
Age:integer;
begin
write('поприветствуй бота ' );
readln(a);
writeln('Приветик, Мне нужно собрать твои данные');
writeln('И для этого, напиши своё имя');
read(Name);
writeln('Отличное имя ' ,Name, ' А теперь введи в строку сколько тебе лет' );
read(Age);
writeln('Замечательно,' ,Name, ' Теперь я эту информацию заложу в хранилище');
writeln('Приятно иметь с вами дело, пока');
end.

11. Smerch •
Неплохо, неплохо. Но если ты делал этот урок для новичков, то тут стоит объяснять поэтапно, т. е. думаю не все сразу же смогут освоить материал и написать свою первую, hello, world. Сначала нужно объяснить принцип работы ввода вывода, отдельно уделить внимание( в другом видео уроке), понятию что такое метод приват или паблик, отдельно поговорить про модули. Но повторюсь материал подан хорошо, но для новеньких будет менее понятно.

12. blck •
Что не так?
type
Human=class
public
Name:string;
Age:integer;
Weight:integer;
end;
var
h:Human;
begin
h:=new Human;
writeln ('Я хочу познакомиться');
write ('Как тебя зовут?: ');
readln(h.Name);
write ('Приятно,Меня Сергей,h.Name а сколько тебе лет?: ');
readln(h.Age);
if (h.Age>17) then
writeln ('А ты совершеннолетний ');
else
writeln ('А ты школьник');
write ('Окей,'h.Name' а скажи свой вес: ');
readln (h.Weight);
writeln ('а ты молодец')
end.

13. P •
Программка простых чисел
var a,b,c:integer;
begin
writeln ('Ваедите до какого числа вы хотите получить простые числа');
read(b);
for a:=1 to b do
begin
if a mod 2 = 0 then c:=c+1;
if a mod 3 = 0 then c:=c+1;
if a mod 5 = 0 then c:=c+1;
if a mod 7 = 0 then c:=c+1;
case c of
1,2,3,4:write('');
else write (a,',');
end;
c:=0;
if a mod 2 = 0 then c:=c+1;
if a mod 3 = 0 then c:=c+1;
if a mod 5 = 0 then c:=c+1;
if a mod 7 = 0 then c:=c+1;
case c of
1,2,3,4:write('');
else write (a,',');
end;
c:=0;
end;

14. Евгений •
Идея прекрасная НО изложение материала, напоминает мне вот что:
"одно яблоко плюс одно яблоко - будет два яблока; два яблока плюс одно яблоко - будет три яблока... А теперь, когда мы научились производить вычисления - рассчитаем массу черной дыры, зная коэффициент гравитационного искажения света, проходящего на расстоянии n..."

15. Tigran •
Дружище ты определись -либо ты обучаешь, либо просто показываешь как ты умеешь программировать.
-с начало бы потрудились хотя бы алгоритм придумать как ознакомить нас с возможностями программы, и какое мышление от нас требуется чтобы понять программу .
Введение -только не заумными словами -а простыми понятными для восприятия ...

16. Fx •
Program Privetik;
var
a:string;
b:string;
c:string;
d:string;
e:string;
begin
writeln('Как тебя зовут красотуля :0');
readln(a);
Writeln('Шо поделываешь?');
readln(d);
Writeln('Ты бяка. Что ты сможешь мне ответить?');
readln(c);
Writeln('Сам(а) такой(ая) _');
readln(d);
Writeln('Ну все, я обиделся :(');
readln(e);
Writeln('Ой,всё');
end.

17. Prokhor •
Не очень люблю, когда паскаль объясняют с программы "Здравствуй, мир". У нас препод по информатике заставил записывать штук 15 операторов и описание к ним, потом начал объяснять программу типа "a+b=c", где и присутствовали все эти операторы, не знаю, как сверстникам, но мне было понятно.

18. Юлия •
Отличное видио Все понятно и по теме, ни чего лишнего ))) Обязательно просмотрю все видио, думаю, что узнаю много нового А те кто говорят, что им не понятно о чем идет речь, так начните с азов, а потом уж переходите на темы посложнее тогда точно все будет понятно

19. Ксандр •
Есть от чего оттолкнутся)) Большая часть коментов правильно говорят, очень трудно понять что к чему. Но ни кто ведь не мешает покопаться в интернете и найти объяснение что к чему))Видео Уроки самый раз) спасибо тебе за работу которую ты сделал....

20. Просто •
var
a,b,c:real;
begin
writeln('Введите целое:');
read(a);
writeln('Введите число состовляющее часть от целого: ');
read(b);
c := b/(a/100);
writeln('Число ',b,' состовляет ',c,'% от числа ',a);
end.
он выщитывает процент от числа проверьте

21. Boulevard •
Этот урок для новичков,которые в первый раз увидели Pascal будет трудный. Я 2 дня запоминал что такое переменная. А ты сразу клас вводишь.. ужас. Я смотреть не советую. Программу напишите, а как вообще это работает вы знать не будете.

22. StarPro_1945 •
Привет мне понравился очень этот урок но скажи мне где тут ошибка:
type
Human=class // ;
public
Name:string;
Age: integer;
Height: integer;
end;

var
h:Human ;
begin
h:= new Human //
writeln(' .');
write (' :');
readln(h.Name);

23. Дмитрий •
а возможно узнать в какой матрице он пишет что за прога я нуубб со стажем так все нравиться спасибо . и еще где почитать о инструментах паскаля и его командах что они означают и с чем их есть ??хотя может я загоняюсь ?

24. Порядочный •
в принципе научится можно ( даже не зная английского, лично я все его слова перевожу и пишу их в тетрадку ) если разбирать данное видео и потратить на это 2-3 часа то понять можно что к чему. было бы желание

25. timax •
спасибо все повторил все получилось. очень хочу научиться программировать так как получил травму руки и больше не смогу работать. посмотрю все твои уроки и обязательно попробую что нибудь от себя

26. MR.DimKon •
Скажите пожалуйста Почему я когда создал программу и проверил её на работоспособностью, она мне выдала ошибку на слово ELSE и писалсось ОЖИДАЛОСЬ ПЕРЕМЕННАЯ
Пожалуйста помогите

27. Mr •
Короче, люди, которые хотят сделать такую развертку (линию) зайдите в "Сервис - Настройки - Редактор" и поставьте галочку на разрешение сворачивания кода, и будет вам счастье. =)

28. КЛИФ •
У меня со второй программой проблема, пишет " слишком мало или слишком много аргументов передающихся функции "new" " хотя всё вроде точь в точь сделал.

29. Нетёс •
спасибо я написал по этому гайду калькулятор взял write('напиши второе число которое нужно прибавить : ');
readln (h.operatorB); ну там изи вообще 10 мин спасибо)))

30. zodiak •
А допустим написал программу ,как сделать чтоб она отдельная работала, а не только в паскале, допустим ,чтоб была возможность её установить и она работала

31. A&Z. •
автор у меня вопрос. а у меня андроид и в нем есть паскаль прогг. и я сделал как ты все отлично. но new human. (new) прогг. не принимает как справит и с чем заменить new

32. Andrey •
var
n:string;
begin
write('как вас зовут: ');
readln(n);
wrineln('Hello, world');
end.
Вывод
Как вас зовут:
Андрей
почему оно у меня в столбик пишет?

33. Илья •
Ребят ну помогите плиз. На видео у него слева в окне все команды группируются,
у меня же идут сплошным переносом вниз. как сделать что бы как у него?