о сайте• контакты• предложить программу
Софт - Архив

программы - новости - IT обзоры - статьи



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


#1 PascalABC.NET - SCHOOL - Первая программаСоздаем первую программу в PascalABC. Разбираем основные моменты. кто непонял, читайте вот что. в конце каждого действия нужно ставить точку с запятой, они отделяют одну команду от другой. var это переменная, то что вы там напишете это значение переменной и её тип(числовой-числа, строковый-буквы или то что будет читаться как буквы, тоесть не будет складываться, булевой-слишком долго объяснять идите гуглить). остальное по мелочам, сами потом поймёте, но видео реально для тех кто уже хоть как-то разобрался.

Дата: 2019-04-04 Программист

Рейтинг: 4 из 5
Голоса: 2




Комментарии и отзывы: 33

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. Илья
Ребят ну помогите плиз. На видео у него слева в окне все команды группируются,
у меня же идут сплошным переносом вниз. как сделать что бы как у него?
Добавить отзыв, комментарий




Copyright © Софт - Архив 2008 - 2018 Алексей Егоров
Сайт использует технологию Cookie для сохранения настроек пользователя.