Дан текстовый файл. составьте программу, которая считывает текст из файла, вычисляет количество слов в каждой строке. вставьте в конце каждой строки количество слов и записать в новом файле.
194
357
Ответы на вопрос:
Var s : string; finish,k,i : longint; begin assign(input,'input.txt'); reset(input); assign(output,'output.txt'); rewrite(output); finish: =0; while(finish=0) do { если finish будет < > 0 то программа перестанет читать текст} begin writeln('читать? если да, то 0 если нет, то 1'); readln(finish); k: =0; if finish=0 then begin readln(s); for i: =1 to length(s) do if s[i]=' ' then inc(k); end else exit; inc(k); writeln(k); end; end.
Type point = record x: integer; y: integer; end; line = record p: point; q: point; len: double; end; procedure linelength(var pl: line); // вычисляет и сохраняет значение длины отрезка begin pl.len : = sqrt(sqr(pl.q.x - pl.p.x) + sqr(pl.q.y - pl.p.y)) end; var a, b, c, d: point; ab, ac, ad, bc, bd, cd: line; begin writeln('введите попарно координаты четырех точек'); readln(a.x, a.y, b.x, b.y, c.x, c.y, d.x, d.y); with ab do begin p.x : = a.x; p.y : = a.y; q.x : = b.x; q.y : = b.y; linelength(ab); end; with ac do begin p.x : = a.x; p.y : = a.y; q.x : = c.x; q.y : = c.y; linelength(ac); end; with ad do begin p.x : = a.x; p.y : = a.y; q.x : = d.x; q.y : = d.y; linelength(ad); end; with bc do begin p.x : = b.x; p.y : = b.y; q.x : = c.x; q.y : = c.y; linelength(bc); end; with bd do begin p.x : = b.x; p.y : = b.y; q.x : = d.x; q.y : = d.y; linelength(bd); end; with cd do begin p.x : = c.x; p.y : = c.y; q.x : = d.x; q.y : = d.y; linelength(cd); end; writeln(ab.len, ' ', ac.len, ' ', ad.len, ' ', bc.len, ' ', bd.len, ' ', cd.len); if ab.len = cd.len then begin // ab и cd - претенденты if ac.len = bd.len then // нашли abdc writeln('параллелограмм abdc') else if ad.len = bc.len then // нашли abcd writeln('параллелограмм abcd') end else if ac.len = bd.len then begin // ac и bd - претенденты if ad.len = bc.len then // нашли acbd writeln('параллелограмм acbd') else if ab.len = cd.len then // нашли abcd writeln('параллелограмм acdb') end else if ad.len = bc.len then begin // ad и вс - претенденты if ac.len = bd.len then // нашли adbc writeln('параллелограмм adbc') else if ab.len = cd.len then // нашли adcb writeln('параллелограмм adcb') end else writeln('параллелограмм построить невозможно'); end. контрольный прогон: введите попарно координаты четырех точек 5 1 10 3 8 9 3 6 5.3851648071345 8.54400374531753 5.3851648071345 6.32455532033676 7.61577310586391 5.8309518948453 параллелограмм построить невозможно введите попарно координаты четырех точек 5 1 10 4 8 9 3 6 5.8309518948453 8.54400374531753 5.3851648071345 5.3851648071345 7.28010988928052 5.8309518948453 параллелограмм abcd введите попарно координаты четырех точек 5 1 8 9 10 4 3 6 8.54400374531753 5.8309518948453 5.3851648071345 5.3851648071345 5.8309518948453 7.28010988928052 параллелограмм acbd
Популярно: Информатика
-
annasuhanova013нюта08.09.2022 15:37
-
ssnz34422.06.2023 21:29
-
Kamilla070715.07.2020 06:47
-
Maximus2000003.04.2022 09:39
-
Mikhail55Rus09.03.2020 09:34
-
kapitoshka20222.03.2021 16:35
-
айдын2331.03.2023 22:35
-
Kkb19409.03.2023 20:52
-
elbrosso04.01.2023 00:52
-
Nadya111111111111107.07.2020 07:09