Nick15
Новичок
|
Ребята помогите исправить, а то завтра отчет здавать. Имеются следущие описания: var d:28..31; m:месяц; Переменной D присвоить количество дней в месяце M (год считать невисокосным). я пробовал решить, но это неправильно. решать надо через TYPE иправте пожалуста задачку. Код program primer_7_18; uses crt; type mesyac=(yanvar,fevral,mart,aprel,may,yun,yul,avgust,sentyabr,octyabr,noyabr,decabr); var d:28..31; m:mesyac; begin clrscr; writeln('vvedite mesyac'); writeln('1:yanvar'); writeln('2:fevral'); writeln('3:mart'); writeln('4:aprel'); writeln('5:may'); writeln('6:yun'); writeln('7:yul'); writeln('8:avgust'); writeln('9:sentyabr'); writeln('10:octyabr'); writeln('11:noyabr'); writeln('12:decabr'); readln(d); case d of 1:writeln('31 den'); 2:writeln('28 dney'); 3:writeln('31 den'); 4:writeln('30 dney'); 5:writeln('31 den'); 6:writeln('30 dney'); 7:writeln('31 den'); 8:writeln('31 den'); 9:writeln('30 dney'); 10:writeln('31 den'); 11:writeln('30 dney'); 12:writeln('31 den'); end; readkey; end.
|
Всего сообщений: 1 | Присоединился: январь 2008 | Отправлено: 2 янв. 2008 19:03 | IP
|
|
KMA
Долгожитель
|
Замени d на m, как в readLn, так и в case.
|
Всего сообщений: 940 | Присоединился: декабрь 2005 | Отправлено: 4 янв. 2008 1:33 | IP
|
|
Guest
Новичок
|
Помогите 8( 1)Даны длины сторон треугольника a,b,c. Определить, является ли он остроугольным? 2)Дана строка. Вывести к-ое слово. 3)Подсчитайте количество различных букв в слове.
|
Всего сообщений: Нет | Присоединился: Never | Отправлено: 4 янв. 2008 21:19 | IP
|
|
usapva
Новичок
|
Помогите уже две недели бьюсь! Дан текстовый файл f .Преобразовать строки файла f по правилу: выбрать строки, которые начинаются и оканчиваются одним и тем же символом. Вставить в середину этих строк пять пробелов!!! Преобразованные строки переписать в файл g
|
Всего сообщений: 20 | Присоединился: январь 2008 | Отправлено: 8 янв. 2008 13:31 | IP
|
|
Guest
Новичок
|
помогите решитьзадачку, а то завтра зачёт определить и отпечатать суммарное количество неудовлетворительных оценок в контрольной работе, в группе состоящей из N человек N=25 0=[5,5,4,3,3,3,4,2,3,5,2,2,3,4,3,5,5,2,3,2,2,4,5,4,4]
|
Всего сообщений: Нет | Присоединился: Never | Отправлено: 8 янв. 2008 19:21 | IP
|
|
KMA
Долгожитель
|
помогите решитьзадачку, а то завтра зачёт
Классное оправдание Чего делал, чего пробовал решать???
Помогите уже две недели бьюсь!
Показывай свои мысли, что ты писал(а). Что именно тебе не понятно? Я же в правилах писал, что так и так, задачи скинутые нагало игнорируются, и вскором удаляются.
|
Всего сообщений: 940 | Присоединился: декабрь 2005 | Отправлено: 8 янв. 2008 21:08 | IP
|
|
Guest
Новичок
|
var m,i:byte; x:array[1..50] of byte; begin writeln('сколько в группе студентов'); readln(m); for i:=1 to m do begin writeln('оценка',i,' го студента'); readln(x[ i ]); end; ну а когда ввели массив, как подсчитать неудовлетворительные оценки? (Сообщение отредактировал KMA 10 янв. 2008 19:35)
|
Всего сообщений: Нет | Присоединился: Never | Отправлено: 8 янв. 2008 22:12 | IP
|
|
usapva
Новичок
|
А что дальше то??
|
Всего сообщений: 20 | Присоединился: январь 2008 | Отправлено: 9 янв. 2008 15:02 | IP
|
|
KMA
Долгожитель
|
А условия задач можно? И еще желательно бы с комментариями, и не обрывать на ползадачи. Еще одно очень важное примечание: если пишите массив и i элемент массива, то делайте пробелы между скобками [ i ].
|
Всего сообщений: 940 | Присоединился: декабрь 2005 | Отправлено: 10 янв. 2008 1:05 | IP
|
|
Guest
Новичок
|
Условие!!! Дан текстовый файл f .Преобразовать строки файла f по правилу: выбрать строки, которые начинаются и оканчиваются одним и тем же символом. Вставить в середину этих строк пять пробелов!!! Преобразованные строки переписать в файл g Вот это точно так, а дольше я не знаю... Program rgr3; Uses crt; Var f,g:text; s:string; ch:char; i:integer Begin Clrscr; assign (f,'abc.txt'); assing (g,'def.txt); reset (f); rewrite (g); while not eof (f) do begin readln (f,s); i:=
|
Всего сообщений: Нет | Присоединился: Never | Отправлено: 10 янв. 2008 9:27 | IP
|
|
|