|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Результаты опроса: помогите написать программу на дельфи | |||
напишите программу | 1 | 100.00% | |
не получается что то | 1 | 100.00% | |
Опрос с выбором нескольких вариантов ответа. Голосовавшие: 1. Вы ещё не голосовали в этом опросе |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
25.04.2013, 00:44 | #1 |
Новичок
Джуниор
Регистрация: 25.04.2013
Сообщений: 1
|
задачки
program Project2;
{$APPTYPE CONSOLE} uses SysUtils; const MaxCountRec = 20; type r=record f:string[15]; i:string[15]; o:string[15]; oc1:2..5; oc2:2..5; oc3:2..5; end; var f:text; k,n,i:Integer; mas:array[1..MaxCountRec]of r; procedure getzapis(var t:r); var s: string; c: char; begin s := ''; read(f, c); while c <> ' ' do begin s := s + c; read(f, c); end; t.f := s; s := ''; while c = ' ' do read(f, c); while c <> ' ' do begin s := s + c; read(f, c); end; t.i := s; Read(f,t.oc1); Read(f,t.oc2); Readln(f,t.oc3); end; begin k:=0; n:=0; Assign(f,'f.txt'); Reset(f); while not Eof(f) and (n<=MaxCountRec) do begin Inc(n); getzapis(mas[n]); end; Close(f); for i:=1 to n do with mas[i] do if (oc1>=4)and (oc2>=4) and(oc3>=4) then inc(k); Writeln(k); readln; end. оценки не считываются из файла Скориков Степан 3 5 4 Фандорин Эраст 5 5 5 Князев Денис 2 3 4 Тушканчиков 2 3 3 Дамман Яна 4 5 4 Макарова Ольга 5 5 5 _____________________ 1. Название темы должно адекватно отражать СУТЬ решаемой задачи или проблемы 2. Опрос не надо создавать, если он не нужен 3. Исходный код нужно оформлять тегами ( Код нужно оформлять по правилам: тегом [CODE]..[/СODE] (кнопочка на панели форматирования с решёточкой #) Не забывайте об этом! Модератор. p.s. И я бы на вашем месте тему создавал в разделе "Помощь студентов", больше шансов получить помощь... Последний раз редактировалось Serge_Bliznykov; 25.04.2013 в 10:20. |
25.04.2013, 01:43 | #2 |
Старожил
Регистрация: 30.12.2009
Сообщений: 11,426
|
1. Опрос убрать.
2. пост оформить ПО ПРАВИЛАМ. 3. НАПИСАТЬ ЧТО У ВАС В КОДЕ НЕ ПОЛУЧАЕТСЯ ТЕЛЕПАТОВ НЕТ. И только после этого, вам может помогут. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Задачки | Юлькаа | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 21.12.2011 13:31 |
Задачки..... | OJleG | Общие вопросы Delphi | 0 | 10.12.2010 19:42 |
задачки | Торька | Помощь студентам | 1 | 14.10.2010 20:21 |
Задачки | Kitte | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 18.06.2009 15:52 |
Задачки на Паскале помогите пожалуйста решить 2 задачки, а то отчислят. плиз | VADOS2009-1 | Помощь студентам | 0 | 03.06.2009 18:11 |