Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal ABC Блок схема https://www.cyberforum.ru/ pascalabc/ thread949507.html вот подпрограмма вычисления ф(х) PROGRAM Ex1; Uses Crt; Var a, b: Integer; f, x, h: Real; BEGIN ClrScr; writeln('Ââåäèòå êîîðäèíàòó a'); readln(a);	Pascal ABC не могу разобраться PROGRAM PR2; Uses Crt; Var a, b,h,e,f ,x,y: Integer; n,r,g: Real; BEGIN ClrScr; writeln('Ââåäèòå êîîðäèíàòó a'); readln(a);
Pascal ABC Несколько условий if then if (w<=0) and (r=>0) then writeln('Игрок den победил!') ; if (r<=0) and (w=>0) then writeln('Игрок kot победил!'); if (w<=0) and (r<=0) then writeln('Ничья!'); В конструкции if then несколько условий.. Как сделать так ,что бы программа не выдавала ошибку? Читал что если несколько условий после then то надо добавить begin end; а здесь условия после if и что то у меня не получается,прошу... https://www.cyberforum.ru/ pascalabc/ thread949032.html	Pascal ABC определить равно ли колличество открытых и закрытых скобок https://www.cyberforum.ru/ pascalabc/ thread948807.html Дан текстовый файл, содержащий некоторый текст. Определить, равно ли количество открывающих и закрывающих скобой в тексте. Ответ вывести в отдельный файл.
Pascal ABC текстовый файл.латинский алфавит Дан текстовый файл, содержащий буквы латинского алфавита, записанные без пробелов. Создать новый текстовый файл, переписав в него все буквы, кроме ‘a’ и ‘A’.	Pascal ABC Создать новый текстовый файл, переписав в него все буквы в обратном порядке Дан текстовый файл, содержащий буквы латинского алфавита, записанные без пробелов. Создать новый текстовый файл, переписав в него все буквы в обратном порядке https://www.cyberforum.ru/ pascalabc/ thread948804.html
Pascal ABC Движущаяся точка https://www.cyberforum.ru/ pascalabc/ thread948695.html Здравствуйте. Дело в том, что в небольшом окне нужно нарисовать красную точку, которая бы перемещалась хаотично. И хотелось бы еще узнать, возможно будет при остановке программы как-то вывести на экран координаты точки? Если да, то подскажите как.	Pascal ABC Составить блок схему к готовому коду Program primer1; USES CRT; CONST m=-2; n=3; Var t ,b: real; k, l: integer; Begin CLRSCR; Write ('t=');Readln (t); Write ('k=');Readln (k);
Pascal ABC Оптимизация приложения https://www.cyberforum.ru/ pascalabc/ thread948549.html Вот собственно сам код program Figther; var q,w,e,r,t,y,u,i :integer; begin r:=25;//Жизнь kot w:=30;//Жизнь den repeat randomize; q:= Random(7)+5; //урон кулака	Pascal ABC Определить равны ли суммы чисел https://www.cyberforum.ru/ pascalabc/ thread948533.html здравствуйте, подскажите пожалуйста: вот у меня дано, например, 3 числа. как мне определить равны ли суммы этих чисел. заранее спасибо)
Pascal ABC В выходной файл вывести «YES», если указанный ход конем верный Совсем недавно Вася занялся программированием и решил реализовать собственную программу для игры в шахматы. Но у него возникла проблема определения правильности хода конем, который делает пользователь. Т.е. если пользователь вводит значение «C7-D5», то программа должна определить это как правильный ход, если же введено «E2-E4», то ход неверный. Так же нужно проверить корректность записи ввода:...	Pascal ABC Доведи число до нуля https://www.cyberforum.ru/ pascalabc/ thread947999.html для примера ниже код, как довести число a до нуля? Что надо вписать else что бы оно возвращало опять к тому же действию a:=a-s-d; и делала его сново и сново пока А не станет равен нулю? Желательно без циклов.. program dsfsdaf; var a,s,d :integer; begin a:=100; s:=2; d:=5; a:=a-s-d; if a<1 then a:=0 else //может тут что то надо дописать..

Puporev

Почетный модератор

64305 / 47600 / 32743

Регистрация: 18.05.2008

Сообщений: 115,181

07.09.2013, 15:41

кодер-декодер - Pascal ABC - Ответ 5028230

07.09.2013, 15:41. Показов 3952. Ответов 13

Метки (Все метки)

Ответ

Pascal

read(f,s);
   case s of
   'А':a:='11';
   ....
   else a:=' ';
  end;
  write (f,a);

Добавлено через 52 секунды

Сообщение от Ботью

говорю ж исправил

Когда я читал, не было a, и не нужно рычать...

Вернуться к обсуждению:
кодер-декодер Pascal ABC

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

07.09.2013, 15:41

Готовые ответы и решения:

Бинарный кодер.
А проблема вот в чём. Учиться на факультете программирования я начал совсем недавно и мне вот дали...

Кодер/декодер
Как на дельфи можно так закодировать и раскодировать?

Кодер-декодер.
Я недавно начал писать на бейсике и захотелось написать программу которая бы переводила русский...

кодер/декодер
здравствуйте. есть небольшой проект - консольное приложение кодера/декодера (сишные файлы...

	07.09.2013, 15:41

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

07.09.2013, 15:41

Помогаю со студенческими работами здесь

UUE кодер\декодер
Доброго времени суток! Возникла потребность написать на C# кодер и декорер UUE, но я не...

Кодер и декодер на ATtiny2313
кто нибудь делал подобное? http://rodyokot.ru/circuit/digital/outomat/23/

Декодер и Кодер Морзе
Господа форумчане! Необходимо написать кодер и декодер на дельфи. Сигнал принимается с микрофона и...

Кодер-Декодер Хемминга.
Кодер: #include <iostream> unsigned char xr (unsigned char c) { int d; unsigned char s=0;...

Наверх