-21

Есть тут программисты?

друзья, срочно нужна помощь...Завтра сессия. очень нужна ваша помощь в решении ( комменты для минусов оставлю ) п.с язык Паскаль
Есть тут программисты? друзья, срочно нужна помощь...Завтра сессия. очень нужна ваша помощь в решении ( комменты для минусов оставлю )  п.с язык Паскаль

Найдены возможные дубликаты

+3
на каком хоть языке ?
раскрыть ветку 2
-4
паскаль
раскрыть ветку 1
0
Delphi подойдёт? Язык тот же, IDE привычнее..
Если подойдёт-пиши vk.com/v12ten
+2
Конечно не на паскале, но на Питоне я бы без проблем написал, хоть и программирование знаю так на троечку. Смысл быть таким тупым и учится на программиста если это нахер не надо?
раскрыть ветку 1
-2
какой нафиг программист...я в 11 классе, сдаю информатику
+2
6)
function f1(x:integer):boolean;
var i:integer;
begin
y:=x div 1000; //присваиваем игрику первые 3 числа из икса
a:=0;
b:=0;
for i:=1 to 3 do
begin
a:=a+x mod 10; //Прибавляем к а последнее число икса
x div 10; //отнимаем от икса последнее число
b:=b+y mod 10; //прибавляем к а последнее число игрика (третье число икса)
y div 10; //убераем из игрика последнее число
end;
if a = b
then result:=true
else result:=false; //если сумма первых и последних трех равна, то функция выдаст true иначе false
end;
раскрыть ветку 1
+1
Прости, забыл переменные... Во второй строке
var i,a,b:integer;
+1
а язык то какой?
+1
Сессия? Паскаль? На кого ты учишься?! Надеюсь не на программиста, а то это еб*ный дикая пи*дец печалька!

Иллюстрация к комментарию
раскрыть ветку 6
0
11 класс, информатика
раскрыть ветку 5
0
С каких пор в 11 классе сессии?
раскрыть ветку 4
0
Картинку обрезать не судьба?
раскрыть ветку 1
-4
спешил
0
В шестом юзать strtoint, в седьмом хз что за модуль, и без него легко делается, тем же кейсом или массивами или еще стопицотым способом (смотря насколько хочется выпендриться). Судя по всему, автор в проге совсем не бум-бум, если кто напишет готовый ответ - пишите сразу с нормальными комментариями, иначе вальнут при сдаче любым вопросом.
раскрыть ветку 1
-1
верно подметил...я ноль вообще
0
7)
procedure p1 (text:string; var glt,soglt:string); //то что в варе - на вывод.
var gl,sogl:set of char;
begin:
gl:=['а','е','ё','и','о','у','ы','э','ю','я']; //множество гласных букв
sogl:=['б','в','г','д','ж','з','й','к','л','м','н','п','р','с','т','ф','х','ц','ч','ш','щ','ъ','ь']; //множество сщгласных букв
text:=AnsiLowerCase(text); //переводим весь текст в нижний регистр
for i:=0 to length(s)-1 do //цикл чтобы пройти по всем элементам строки
begin
if s[i] in gl //два разных условия чтобы игнорировались знаки препинания и пробелы.
then glt:=s[i];
if s[i] in sogl
then soglt:=s[i];
end;
end;
//данная процедура выводит ВСЕ гласные и согласные с повторением.
раскрыть ветку 3
0
procedure p1 (text:string; var glt,soglt:string); //то что в варе - на вывод.
var gl,sogl:set of char;
begin:
gl:=['а','е','ё','и','о','у','ы','э','ю','я']; //множество гласных букв
sogl:=['б','в','г','д','ж','з','й','к','л','м','н','п','р','с','т','ф','х','ц','ч','ш','щ','ъ','ь']; //множество сщгласных букв
text:=AnsiLowerCase(text); //переводим весь текст в нижний регистр
for i:=0 to length(s)-1 do //цикл чтобы пройти по всем элементам строки
begin
if s[i] in gl //два разных условия чтобы игнорировались знаки препинания и пробелы.
begin
then glt:=s[i];
exclude(gl,s[i]); //убирает из множества гласных букву
end;
if s[i] in sogl
begin
then soglt:=s[i];
exclude(sogl,s[i]); //убирает из множества согласных букву
end;
end;
end;
//данная процедура выводит все гласные и согласные без повторения.
раскрыть ветку 2
0
а тут про цикловую переменную забыл.
var gl,sogl:set of char; i:integer;

и вместо s[] надо text[]
0
и begin без двоеточий...
-1
Как ты, блеать, дальше жить-то будешь, если ты не можешь ни в простейшую логику с математикой, ни в гугл? Не стыдно для 11 класса-то?
раскрыть ветку 3
-1
Только не надо сейчас умничать, у нас программа в разы сложнее, я гуманитарий . Только загружают ненужной программой, это давно уже выяснили
раскрыть ветку 2
0
Нет никаких ненужных предметов. Нет никаких гуманитариев и технарей. Есть только одинаковая и обязательная для всех школьная программа. И ты либо учишь и сдаешь экзамены, либо идешь нахуй.
раскрыть ветку 1
-3
к стати объясню, пишим мы без компов...тупо текстом на бумажке так что нужны только коды
раскрыть ветку 18
0
В 7 буквы из текста не должны повторятся?
раскрыть ветку 17
-1
не знаю, там же не написано что нельзя
-2
показать всю сессию?
раскрыть ветку 15
-5
коммент 1 для -
-5
коммент 2 для -
-5
паскаль
ещё комментарии
Похожие посты
Похожие посты не найдены. Возможно, вас заинтересуют другие посты по тегам: