04.12.2011, 16:47
|
#1 (permalink) |
|
Member
Регистрация: 04.12.2011
Сообщений: 35
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите студенту решить задачки
Цель задания: 1. Обработка данных типа STRING. 2. Использование стандартных процедур и функций при обработке данных типа STRING. Методические указания: 1. Изучить : - правила записи данных строкового типа; - процедуры ввода и просмотра текстовых данных; - процедуры обработки текстовых данных; 2. Составить алгоритм решения задачи согласно варианту. 3. Составить программу согласно алгоритму. Сколько слов содержится в заданном тексте? Вторая задачка: Цель задания: Обработка комбинированных типов данных. Постановка задачи: Для студентов некоторой группы задана следующая информация: порядковый номер, ФИО, дата рождения, курс, год поступления, и оценки на последней сессии. Составить программу, которая обеспечивает вывод полученной информации, распечатку ее в виде таблицы, а также распечатку ее согласно варианту. У которых фамилия начинается с указанной буквой. Зарание благодарю! |
|
|
|
04.12.2011, 16:47
|
|
|
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Скорее всего в данных топиках содержится много дельных ответов Ребят помогите решить две задачки Помогите решить задачки по программированнию Помогите решить задачки |
|
04.12.2011, 17:45
|
#4 (permalink) | |
|
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Насчет количества слов в тексте: в каком виде задан текст? Строка? Текстовый файл? Уточните, пожалуйста. И совсем хорошо, если бы Вы выложили пример текста, подлежащего обработке.
Цитата:
|
|
|
|
|
|
04.12.2011, 17:53
|
#5 (permalink) | ||
|
Member
Регистрация: 04.12.2011
Сообщений: 35
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Цитата:
ВОТ ВСЕ ЗАДАНИЕ! Цитата:
|
||
|
|
|
| Ads | |
|
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|
04.12.2011, 18:02
|
#6 (permalink) |
|
Member
Регистрация: 04.12.2011
Сообщений: 35
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Код:
# ФИО Дата рождения курс Год пост оценки 1 Адам Стас 19.01.1995 1 2011 7.00 2 Богдан Олег 19.02.1995 1 2011 5.00 3 Валошин Садам 19.03.1995 1 2011 8.00 4 Гринько Катя 19.04.1995 1 2011 5.00 5 Джумак Роман 19.05.1995 1 2011 6.35 6 Москал Петя 19.06.1995 1 2011 8.00 7 Тихий Макс 19.07.1995 1 2011 9.00 8 Шадрин Олег 19.08.1995 1 2011 9.55 9 Януш Витя 19.09.1995 1 2011 4.00 |
|
|
|
|
04.12.2011, 18:08
|
#7 (permalink) | |
|
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
VAR
S:String;
N,i:Byte;
BEGIN
Writeln('Enter the string:');
Readln(S);
N:=0;
i:=0;
Repeat
Inc(i);
Until S[i]<>' ';
Repeat
Inc(N);
repeat
Inc(i);
until (S[i]=' ') or (i=Length(S));
If i<Length(S) then
repeat
inc(i);
until (S[i]<>' ') or (i=Length(S));
Until i=Length(S);
Writeln(N,' words');
Readln;
END.
|
|
|
|
|
|
04.12.2011, 19:15
|
#10 (permalink) | |
|
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
1 Адам Стас 19.01.1995 1 2011 7.00 2 Богдан Олег 19.02.1995 1 2011 5.00 3 Валошин Садам 19.03.1995 1 2011 8.00 4 Гринько Кат 19.04.1995 1 2011 5.00 5 Джумак Роман 19.05.1995 1 2011 6.35 6 Москал Пет 19.06.1995 1 2011 8.00 7 Тихий Макс 19.07.1995 1 2011 9.00 8 Шадрин Олег 19.08.1995 1 2011 9.55 9 Януш Вит 19.09.1995 1 2011 4.00 Если файловый ввод не годится и нужен консольный - напишите, переделаю. Код:
TYPE
St=Record
N:Byte;
Name:String;
Bd:String;
Course:Byte;
Year:Word;
Mark:Real;
End;
VAR
Stud:Array[1..9] of St;
i,j:Byte;
f:Text;
C:Char;
BEGIN
Assign(f,'D:\Data.txt');
Reset(f);
For i:=1 to 9 do
With Stud[i] do
begin
Read(f, N);
Name:='';
repeat
read(f,C);
until C<>' ';
Name:=Name+C;
repeat
read(f,C);
Name:=Name+C;
until C=' ';
for j:=1 to 2 do
repeat
read(f,C);
Name:=Name+C;
until C=' ';
Bd:='';
repeat
read(f,C);
until C<>' ';
Bd:=Bd+C;
repeat
read(f,C);
Bd:=Bd+C;
until C=' ';
readln(f, Course, Year, Mark);
end;
Close(f);
For i:=1 to 9 do
With Stud[i] do
begin
write(N);
for j:=1 to 7 do write(' ');
write(Name);
for j:=Length(Name)+8 to 23 do write(' ');
writeln(Bd, Course:7, Year:11, Mark:8:2);
end;
Writeln;
Write('Enter the first letter: ');
Readln(C);
For i:=1 to 9 do
With Stud[i] do
If Name[1]=C then
begin
write(N);
for j:=1 to 7 do write(' ');
write(Name);
for j:=Length(Name)+8 to 23 do write(' ');
writeln(Bd, Course:7, Year:11, Mark:8:2);
end;
Readln;
END.
|
|
|
|
|
| Ads | |
|
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
 |
|
|
Линейный вид
