Форум
» Назад на решение задач по физике и термеху
Регистрация | Профиль | Войти | Забытый пароль | Присутствующие | Справка | Поиск

» Добро пожаловать, Гость: Войти | Регистрация
    Форум
    Информационные технологии
        Решение задач на Pascal. Форум 2
Отметить все сообщения как прочитанные   [ Помощь ]
» Добро пожаловать на форум "Информационные технологии" «

Переход к теме
<< Назад Вперед >>
Несколько страниц [ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 ]
Модераторы: paradise, KMA
  

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.  

-----
Gentoo, FreeBSD 7.2, PHP, JavaScript (jQuery), Python, Shell
Помогаю с задачами только на форуме.
Все мои действия четко согласуются с правилами раздела. Поэтому никаких претензий и обид.

Всего сообщений: 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



Долгожитель


помогите решитьзадачку, а то завтра зачёт


Классное оправдание Чего делал, чего пробовал решать???


Помогите уже две недели бьюсь!


Показывай свои мысли, что ты писал(а). Что именно тебе не понятно? Я же в правилах писал, что так и так, задачи скинутые нагало игнорируются, и вскором удаляются.

-----
Gentoo, FreeBSD 7.2, PHP, JavaScript (jQuery), Python, Shell
Помогаю с задачами только на форуме.
Все мои действия четко согласуются с правилами раздела. Поэтому никаких претензий и обид.

Всего сообщений: 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 ].

-----
Gentoo, FreeBSD 7.2, PHP, JavaScript (jQuery), Python, Shell
Помогаю с задачами только на форуме.
Все мои действия четко согласуются с правилами раздела. Поэтому никаких претензий и обид.

Всего сообщений: 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

Эта тема закрыта, новые ответы не принимаются

Переход к теме
<< Назад Вперед >>
Несколько страниц [ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 ]

Форум работает на скрипте © Ikonboard.com