ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
Помогите написать простенькие задачки на pascal |
20.05.2010, 20:05
|
|
Новичок
Регистрация: 03.03.2010
Сообщений: 22
Провел на форуме:
84035
Репутация:
1
|
|
Помогите написать простенькие задачки на pascal
в массиве из 20 элементов определить большее, меньшее и среднее арифметическое.
посчитать количество русских букв в текстовом файле.
запрос числа--если число четное то вывести "четное" если не четное то вывести 1/2 этого числа.
пожалуйста помогите горит экзамен. 
|
|
|
20.05.2010, 20:18
|
|
Он хакер.
Регистрация: 01.11.2008
Сообщений: 1,756
Провел на форуме:
6462214
Репутация:
3171
|
|
хм, неа, я не знаю как это сделать =(
Код:
1) в цикле прогоняем массив, и if arr[i] > MAX then MAX:=arr[i];
3) DIV или MOD, точно не помню уже. Конструкция поулчается вроде такой: c:= a div 2; if c = 0 then writeln('4etkoe'); else...
Последний раз редактировалось m0Hze; 20.05.2010 в 20:24..
|
|
|
|
20.05.2010, 20:23
|
|
Постоянный
Регистрация: 24.06.2009
Сообщений: 542
Провел на форуме:
2101094
Репутация:
672
|
|
а я знаю, но мне лень =(
|
|
|
|
20.05.2010, 20:26
|
|
Постоянный
Регистрация: 24.06.2009
Сообщений: 542
Провел на форуме:
2101094
Репутация:
672
|
|
program shit;
var x:array[1..100] of string; i,n:integer;
begin
for i:=1 to n do read(x[i]);
а дальше лен =(
|
|
|
|
20.05.2010, 20:28
|
|
Он хакер.
Регистрация: 01.11.2008
Сообщений: 1,756
Провел на форуме:
6462214
Репутация:
3171
|
|
Сообщение от Konqi
program shit;
var x:array[1..100] of string; i,n,MAX:integer;
begin
for i:=1 to n do read(x[i]);
а дальше лен =(
for i:=1 to 20 do if x[i] > MAX then MAX:=x[i];
writeln('MAX= ',MAX);
end.
|
|
|
|
20.05.2010, 20:30
|
|
Постоянный
Регистрация: 24.06.2009
Сообщений: 542
Провел на форуме:
2101094
Репутация:
672
|
|
Сообщение от m0Hze
for i:=1 to 20 do if (x[i] > MAX) then MAX:=x[i];
writeln('MAX= ',MAX);
end.
:-P
|
|
|
|
20.05.2010, 20:31
|
|
Он хакер.
Регистрация: 01.11.2008
Сообщений: 1,756
Провел на форуме:
6462214
Репутация:
3171
|
|
Ниабизательно!1 Я на паскале с того года ничего не писал =( практика на цпп у нас =(
|
|
|
|
20.05.2010, 20:36
|
|
Постоянный
Регистрация: 24.06.2009
Сообщений: 542
Провел на форуме:
2101094
Репутация:
672
|
|
Сообщение от m0Hze
Ниабизательно!1 Я на паскале с того года ничего не писал =( практика на цпп у нас =(
у меня сейчас дипломная работа на паскале,я в форме 
d:=detect;
initgraph(d,m,' ');
if graphresult<>0 then halt;
Последний раз редактировалось Konqi; 20.05.2010 в 20:39..
|
|
|
|
20.05.2010, 20:40
|
|
Новичок
Регистрация: 03.03.2010
Сообщений: 22
Провел на форуме:
84035
Репутация:
1
|
|
Сообщение от Konqi
у меня сейчас дипломная работа на паскале,я в форме
d:=detect;
initgraph(d,m,' ');
if graphresult<>0 then halt; ну дык помоги плиз
|
|
|
|
20.05.2010, 20:41
|
|
Он хакер.
Регистрация: 01.11.2008
Сообщений: 1,756
Провел на форуме:
6462214
Репутация:
3171
|
|
Сообщение от FUTsin283
ну дык помоги плиз Да кому это нужно, тем более в болталке. У всех сессии свои, сейчас тебе побегут паскаль кромсать. Я просто из-за лени не буду писать ^_^
И вообще, я пошел кушать!
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
