ПОЖАЛУЙСТА!!! Помогите ребята!!! Моя Оценка на ваших руках!!! Я нифига не могу сам делать!!! У нас професор самый левый!!! Нечего не обьясняет!!! ПРОШУ!!!
5-9 класс
|
Создайте программ в ПАСКАЛЬ который считывает из текстового файла DATE.IN по одному номеру из 4 цыфры из каждой линии, и создает другой текстовый файл DATE.OUT
где записывает только номера "хорошо упорядоченные". На экране должно отображаться количество таких цыфр.
Хорошо упорядочнные - Это те номера у которых цыфр 1 2 3 7 9 12, 16 ... (строго возрастают) или у которых цыфр 17 14 8 5 4 2 1 (строго уменьшаются)
ЗАРАНЕЕ СПАСИБО!!! Только 25 очков!!! Имел бы больше!!! Всех бы поставил!!!
Названия и адреса файлов подгоните сами. Я выделю в коде жирным шрифтом.
uses crt;
var i,o:text;
s:string;
ans:integer;
begin
assign(i,'C:\Pascal\input.txt'); reset(i);
assign(o,'C:\Pascal\output.txt'); rewrite(o);
while eoln(i)<>true do
begin
readln(i,s);
if ((s[2]>s[1]) and (s[3]>s[2]) and (s[4]>s[3])) or ((s[2]<s[1]) and (s[3]<s[2]) and (s[4]<s[3])) then
begin
writeln(o,s);
inc(ans);
end;
end;
writeln(ans);
close(o);
end.
Во вложении
-----
p.s. Подразумевается, что файл date.in уже существует с записанными в нем числами. Также файлы date.in и date.out должны находиться в папке с программой, иначе для них следует прописать путь, как это сделал nikolac.
приведи пример а то условие какое-то непонятное
Вот, допустим на первой линии 2361, на второй номер 3689, на третьем 7631 и на четверой линии номер 7497. В другой текстовый файл он должен записать только номер с первой линии 2361, и с третьей линии 7631 потому что цыфры в эти номера строго нарастающие или строго в порядке убывания!! А на экране компютера должно отображатсья в конце сколько таких цыфр нашлись!!! Поняли? Просто я не из России!, извините!!!:-)
Другие вопросы из категории
5-й клас допоможіть будь ласка!!!!
1.VLL-V=XL
2.IX-V=VI
3.VL-IX=III
4.VIII-III=X
Читайте также
Задали сделать презентацию о Белке и Стрелке. Я работаю в "Презентация Microsoft PowerPoint" (в других не понимаю как, мне кажется эта наиболее удобная) и мне надо подобрать космический фон. Там, в "Дизайне" этой презентации ничего подобного нет. Я нашла в интернете подходящую картинку для фона, скачала ее на компьютер но я не знаю как ее вставить. Там есть "Шаблоны оформления на Microsoft Ofice Online", но там я ничего не поняла (написала "Космос", вышли несколько картинок, загрузила одну и теперь она неизвестно где) и есть "Шаблоны оформления: Дополнительные", там он просит найти фото. Я точно знаю куда я его загрузила. проверяю несколько раз, но он не находит. Помогите пожалуйста, 3 дня ответ не могу нигде найти!!!
read.writeln.else.to.if и тд которые сможете
Вот пример идеи для программы, в академию поступают какое то количество учеников, нужно написать сколько учеников сдали документы, сколько пришли на экзамен, и сколько учеников кто прошло и не прошло
возможно не возможно создать программу на этой идее, тогда прделагайте свои со своими программами , пожалуйста помогите!
1) исключи лишнее:
а)микрофон, б)колонки, в) наушники , г) монитор
2)исключи лишнее:
а)процессор, б) монитор, в)клавиатура, мышь
3)установите соответствие. Устройство ПК:
1. клавиатура
2. модем
3.центральный процессор
назначение устройств:
а)передача цифровой информации через каналы связи
б)хранение информации
в)обеспечение общего управления ПК, осуществление вычислений по программе, хранящейся в оперативной памяти
г)визуальное отображение информации, находящейся в оперативной памяти
д)ввод алфавитно-цифровых символов
6.Раздели на группы и дай название каждой группе:
а)принтер,б)сканер,г)мышь,д)проектор,е)веб камера,ж)процессор,з)колонки,и)микрофон, к) монитор
Пожалуйста помогите очень срочно.
Массив содержит 20 случайных чисел из промежутка [1..37] Выводит на экран эдементы больше 11, но меньше 22 ПОжалуйста помогите)
обезьяна, курица, собака и свинья. Зная, что 1984 год был годом мыши, написать программу, выводящую номер года и его название.
Учитель сказал, что это решается через кейс..Только как.ПОЖАЛУЙСТА, ПОМОГИТЕ!!!!!!!!!!